home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pli / runpli1a.arc / FACTORIA < prev    next >
Text File  |  1987-09-28  |  312b  |  16 lines

  1. PRINT(SYSPRINT,'Number? ');
  2. number=GETREAL(SYSIN);
  3. i=number;
  4. mantissa=1.0;
  5. exponent=0;
  6. DO WHILE(i > 1.0);
  7.   mantissa=mantissa*i;
  8.   DO WHILE(mantissa >= 10.0);
  9.     exponent=exponent+1;
  10.     mantissa=mantissa/10.0;
  11.   END;
  12.   i=i-1.0;
  13. END;
  14. PRINT(SYSPRINT,number,'! = ',mantissa,'E',exponent);
  15. PUTCRLF;
  16.