home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / interpre / p_pascal / samples / gcd.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-25  |  417 b   |  21 lines
  1. (*$c+,d+*)
  2. PROGRAM example(input,output);
  3. VAR x, y : integer;
  4. FUNCTION gcd(a, b: integer) : integer;
  5. BEGIN
  6.  {GREATEST COMMON DENOMINATOR PROGRAM:}
  7.   CASE b = 0 OF
  8.    true: gcd := a;
  9.   false: gcd := gcd(b, a MOD b)
  10.   END
  11. END;
  12. BEGIN
  13.   write('type x = ');
  14.   readln(x);
  15.   writeln('x = ', x : 2);
  16.   write('type y = ');
  17.   readln(y);
  18.   writeln('y = ', y : 2);
  19.   writeln('gcd = ', gcd(x,y) : 2, '.')
  20. END.
  21.