[unix-history] / tests / t10.p

program expon2(output);
var
	pi, spi: real;

function power(x: real; y: integer): real;
	var
		z: real;
	begin
		z := 1;
		while y>0 do
		begin
			while not odd(y) do
			begin
				y := y div 2;
				x := sqr(x);
			end;
			y := y-1;
			z := x*z;
		end;
		power := z;
	end;
begin
	pi := 3.14159;
	writeln(2.0, 7, power(2.0, 7));
	spi := power(pi, 2);
	writeln(pi, 2, spi);
	writeln(spi, 2, power(spi, 2));
	writeln(pi, 4, power(pi, 4));
end.
Commit	Line	Data
fde98a2d BJ	1	program expon2(output);
	2	var
	3	pi, spi: real;
	4
	5	function power(x: real; y: integer): real;
	6	var
	7	z: real;
	8	begin
	9	z := 1;
	10	while y>0 do
	11	begin
	12	while not odd(y) do
	13	begin
	14	y := y div 2;
	15	x := sqr(x);
	16	end;
	17	y := y-1;
	18	z := x*z;
	19	end;
	20	power := z;
	21	end;
	22	begin
	23	pi := 3.14159;
	24	writeln(2.0, 7, power(2.0, 7));
	25	spi := power(pi, 2);
	26	writeln(pi, 2, spi);
	27	writeln(spi, 2, power(spi, 2));
	28	writeln(pi, 4, power(pi, 4));
	29	end.