Return to t11.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Initial revision

program recursivegcd(output);
var
	x, y, n: integer;
function gcd(m,n: integer): integer;
	begin
		if n=0 then
			gcd := m else
			gcd := gcd(n, m mod n);
	end;
procedure try(a, b: integer);
	begin
		writeln(a, b, gcd(a, b));
	end;
begin
	try(18, 27);
	try(312, 2142);
	try(61, 53);
	try(98, 868);
end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.