home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
LANGUAGS
/
MODULA2
/
USEAFAI.MOD
< prev
next >
Wrap
Text File
|
2000-06-30
|
499b
|
20 lines
MODULE useafai;
FROM Terminal IMPORT WriteString, WriteLn;
FROM RealInOut IMPORT ReadReal, WriteReal;
FROM afai IMPORT sqrt, log, recip;
VAR x: REAL;
BEGIN
WriteString(' Square root test, Enter number> ');
ReadReal(x); WriteLn;
WriteReal(sqrt(x),12); WriteLn;
WriteString(' Log test, Enter number> ');
ReadReal(x); WriteLn;
WriteReal(log(x),12); WriteLn;
WriteString(' Reciprocal test, Enter number> ');
ReadReal(x); WriteLn;
WriteReal(recip(x),12); WriteLn;
END useafai.