home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / printer / laser.arc / GAUSS.PAS < prev    next >
Pascal/Delphi Source File  |  1988-03-27  |  704b  |  34 lines
  1. program gauss;
  2. var i,j:integer;
  3.     sum1,sum2:real;
  4.     outfile:text;
  5.  
  6. begin
  7.   assign (outfile, 'gauss.dat');
  8.   rewrite(outfile);
  9.   writeln(outfile,2);
  10.   writeln(outfile,300);
  11.   writeln(outfile,'n');
  12.   writeln(outfile,'y');
  13.   for i:=1 to 300 do
  14.   begin
  15.     sum1 := 0.0;
  16.     sum2 := 0.0;
  17.     for j:=1 to 100 do
  18.     begin
  19.       sum1 := sum1 + random;
  20.       sum2 := sum2 + random;
  21.     end;
  22.     writeln(outfile,(sum1  )/100:6:4);
  23.     writeln(outfile,(sum2+sum1)/200:6:4);
  24.   end;
  25.   writeln(outfile,21);
  26.   writeln(outfile,'y');
  27.   writeln(outfile,'n');
  28.   For I:=0 to 20 do
  29.   begin
  30.     writeln(outfile,0.4+I/100);
  31.     writeln(outfile,0.44+I*0.006);
  32.   end;
  33.   close(outfile);
  34. end.