home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / languags / modula2 / useafai.mod < prev    next >
Text File  |  1987-01-08  |  499b  |  20 lines
  1. MODULE useafai;
  2.  
  3. FROM Terminal  IMPORT WriteString, WriteLn;
  4. FROM RealInOut IMPORT ReadReal, WriteReal;
  5. FROM afai      IMPORT sqrt, log, recip;
  6.  
  7. VAR x: REAL;
  8.  
  9. BEGIN
  10.   WriteString(' Square root test, Enter number> ');
  11.   ReadReal(x); WriteLn;
  12.   WriteReal(sqrt(x),12); WriteLn;
  13.   WriteString(' Log test, Enter number> ');
  14.   ReadReal(x); WriteLn;
  15.   WriteReal(log(x),12); WriteLn;
  16.   WriteString(' Reciprocal test, Enter number> ');
  17.   ReadReal(x); WriteLn;
  18.   WriteReal(recip(x),12); WriteLn;
  19. END useafai.
  20.