[unix-history] / tests / t09.p

program sideffect(output);
var
	a, z: integer;
function sneaky(x: integer): integer;
	begin
		z := z-x;
		sneaky := sqr(x);
	end;
begin
	z := 10;
	a := sneaky(z);
	writeln(a, z);
	z := 10;
	a := sneaky(10) * sneaky(z);
	writeln(a, z);
	z := 10;
	a := sneaky(z) * sneaky(10);
	writeln(a, z);
end.
Commit	Line	Data
fde98a2d BJ	1	program sideffect(output);
	2	var
	3	a, z: integer;
	4	function sneaky(x: integer): integer;
	5	begin
	6	z := z-x;
	7	sneaky := sqr(x);
	8	end;
	9	begin
	10	z := 10;
	11	a := sneaky(z);
	12	writeln(a, z);
	13	z := 10;
	14	a := sneaky(10) * sneaky(z);
	15	writeln(a, z);
	16	z := 10;
	17	a := sneaky(z) * sneaky(10);
	18	writeln(a, z);
	19	end.