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     ! 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.