home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / log10k.pzs / LOG10K.PAS
Pascal/Delphi Source File  |  1987-07-20  |  768b  |  42 lines
  1. program log10k;
  2.  
  3.  
  4. {
  5.  
  6. T.A. Elkin's Log(10K!) Benchmark.
  7.  
  8. Computes number of decimal digits in 10,000 factorial.
  9. Exact answer is 35660
  10.  
  11. See COMPUTERWORLD. 3/20/87 for more info.
  12.  
  13. Adapted by the CP/M Basic Version by Jim Lill 7/20/87
  14.  
  15. Comparision Times:
  16.  
  17. IBM Compatible, GW-BASIC:   149 secs
  18. MBASIC 5.0 @ 10MHz:         110 secs
  19. Turbo Pascal (CP/M @10MHz): 108 secs
  20.  
  21. }
  22.  
  23. const bell = ^G;
  24.       exact = 35660.0;
  25.  
  26. var i : integer;
  27.     e,x,y,z : real;
  28.  
  29. begin;  {log10k}
  30.   z:= 10.0;
  31.   x:= 0.0;
  32.   writeln('Elkins Log(10K!) Benchmark',bell);
  33.   for i := 2 to 10000 do
  34.     begin
  35.       y:= i;
  36.       x:= x + ln(y);
  37.     end;
  38.   writeln('Done',bell);
  39.   writeln('Error: ',(exact- x/ln(z)))
  40. end.  {log10k}
  41.  
  42.