home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D4.DMS / in.adf / Beispiele / Fak.mod < prev    next >
Encoding:
Text File  |  1992-10-10  |  286 b   |  19 lines
  1. MODULE Fak;
  2.  
  3. IMPORT BI := BigIntegers, Out;
  4.  
  5. VAR
  6.   i: INTEGER;
  7.   bi: BI.BigInteger;
  8.  
  9. BEGIN
  10.   bi := BI.Create(1);
  11.   FOR i:=1 TO 100 DO
  12.     Out.Int(i,4); Out.String("! =");
  13.     bi := bi.Mul(BI.Create(i))(BI.BigInteger);
  14.     Out.String(bi.ConvertToString()^);
  15.     Out.Ln;
  16.   END;
  17. END Fak.
  18.  
  19.