home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
RUNPLI1A.ZIP
/
FACTORIA
< prev
next >
Wrap
Text File
|
1987-09-28
|
312b
|
16 lines
PRINT(SYSPRINT,'Number? ');
number=GETREAL(SYSIN);
i=number;
mantissa=1.0;
exponent=0;
DO WHILE(i > 1.0);
mantissa=mantissa*i;
DO WHILE(mantissa >= 10.0);
exponent=exponent+1;
mantissa=mantissa/10.0;
END;
i=i-1.0;
END;
PRINT(SYSPRINT,number,'! = ',mantissa,'E',exponent);
PUTCRLF;