Return to random.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/random.p, revision 1.1.1.1

1.1       root        1: program random(output);
                      2: 
                      3: const
                      4: size = 110;
                      5: tries = 10000;
                      6: 
                      7: type
                      8: density=array[0..size] of integer;
                      9: 
                     10: var
                     11: den :density;
                     12: count :integer;
                     13: loc :integer;
                     14: 
                     15: begin
                     16: for count:=0 to size do
                     17:        den[count] := 0;
                     18: for count:=1 to tries do begin
                     19:        loc := round(random(1.0) * (size - 10));
                     20:        den[loc] := den[loc] + 1;
                     21:        end;
                     22: for count:=0 to size div 10 - 1 do begin
                     23:        for loc:=10 * count to 10 * count + 9 do
                     24:                write(den[loc]:7);
                     25:        writeln;
                     26:        end;
                     27: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.