home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / LibLink / Mathe / test.mod < prev    next >
Encoding:
Text File  |  1992-11-02  |  1023 b   |  34 lines
  1. MODULE Test;
  2.  
  3. IMPORT io, im: IntMathe, NoGuru;
  4.  
  5. VAR
  6.   a,b: LONGINT;
  7.  
  8. BEGIN
  9.  
  10.   io.WriteString("\n GGT / KGV: \n\n");
  11.   REPEAT io.WriteString(" a = ") UNTIL io.ReadInt(a);
  12.   REPEAT io.WriteString(" b = ") UNTIL io.ReadInt(b);
  13.   io.WriteString("\n GGT(a,b) = "); io.WriteInt(im.GGT(a,b),10);
  14.   io.WriteString("\n KGV(a,b) = "); io.WriteInt(im.KGV(a,b),10);
  15.  
  16.   io.WriteString("\n\n Wurzel : \n\n");
  17.   REPEAT io.WriteString(" x = ") UNTIL io.ReadInt(a);
  18.   io.WriteString("\n Sqrt(x) = "); io.WriteInt(im.Sqrt(a),10);
  19.  
  20.   io.WriteString("\n\n Fakultät: \n\n");
  21.   REPEAT io.WriteString(" x = ") UNTIL io.ReadInt(a);
  22.   io.WriteString("\n\n Fak(x) = "); io.WriteInt(im.Fak(a),10);
  23.  
  24.   io.WriteString("\n\n Binomialkoeffizient: \n\n");
  25.   REPEAT io.WriteString(" n = ") UNTIL io.ReadInt(a);
  26.   REPEAT io.WriteString(" k = ") UNTIL io.ReadInt(b);
  27.   io.WriteString("\n\n BinKoeff(n,k) = "); io.WriteInt(im.BinKoeff(a,b),10);
  28.   io.WriteString("\n\n n ^ k = "); io.WriteInt(im.Pow(a,b),10);
  29.  
  30.   io.WriteString("\n\ntschüß!\n\n");
  31.  
  32. END Test.
  33.  
  34.