home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / turbopas / pas_sci.arc / RANTST.PAS < prev    next >
Pascal/Delphi Source File  |  1985-07-21  |  706b  |  32 lines
  1. PROGRAM rantst(output);
  2. { test random number generator RANDOM }
  3. { procedure MEANSTD and function RANDOM
  4.   are also required }
  5.  
  6. TYPE
  7.     ary = ARRAY[1..100] of REAL;
  8.  
  9. VAR
  10.    x:ary;
  11.    n,i,j:INTEGER;
  12.    r,mean,std,seed:REAL;
  13.  
  14. {$I RANDOM.LIB}
  15.  
  16. {$I MEANSTD.LIB}
  17.  
  18. BEGIN {main program}
  19.       seed:=4.0;
  20.       n:=48;
  21.       writeln;
  22.       writeln('   mean   std dev');
  23.       writeln('  (0.5)   (0.2887)');
  24.       writeln(' ===============================');
  25.       FOR j:= 1 to 20 DO
  26.           BEGIN
  27.                FOR i:=1 to n DO
  28.                    x[i]:=RANDOM(0);
  29.                    MEANSTD(x,n,mean,std);
  30.                    writeln(mean:10:4,std:10:4)
  31.           END {j loop}
  32. END.