home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t11.p < prev    next >
Text File  |  1980-02-17  |  303b  |  20 lines
  1. program recursivegcd(output);
  2. var
  3.     x, y, n: integer;
  4. function gcd(m,n: integer): integer;
  5.     begin
  6.         if n=0 then
  7.             gcd := m else
  8.             gcd := gcd(n, m mod n);
  9.     end;
  10. procedure try(a, b: integer);
  11.     begin
  12.         writeln(a, b, gcd(a, b));
  13.     end;
  14. begin
  15.     try(18, 27);
  16.     try(312, 2142);
  17.     try(61, 53);
  18.     try(98, 868);
  19. end.
  20.