home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Beispiele / GGT.mod < prev    next >
Encoding:
Text File  |  1992-10-10  |  411 b   |  27 lines
  1. MODULE GGT;
  2.  
  3. IMPORT io;
  4.  
  5. VAR
  6.   a,b: INTEGER;
  7.  
  8. PROCEDURE ggt*(a,b: INTEGER): INTEGER;
  9. BEGIN
  10.   WHILE a#b DO
  11.     IF a>b THEN
  12.       DEC(a,b)
  13.     ELSE
  14.       DEC(b,a)
  15.     END;
  16.   END;
  17.   RETURN a;
  18. END ggt;
  19.  
  20. BEGIN
  21.   io.WriteString("a = "); io.ReadIntegerOk(a);
  22.   io.WriteString("b = "); io.ReadIntegerOk(b);
  23.   IF (a>0) & (b>0) THEN
  24.     io.WriteString("GGT(a,b) = "); io.WriteInt(ggt(a,b),0); io.WriteLn;
  25.   END;
  26. END GGT.
  27.