Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/msdos/pli/runpli1a.arc/FACTORIA

Text File | 1987-09-28 | 312 b | 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;