Return to numericio.p CVS log

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

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

1.1       root        1: program numericIO(f,output);
                      2:   const n = 500; d = 0.12345;
                      3:   var i: integer; x,s: real;
                      4:       f: file of real;
                      5: begin writeln(wallclock);
                      6:   x := 1.0; s := 0; rewrite(f);
                      7:   for i := 1 to n do
                      8:     begin write(f,x); s := s+x; x := x+d
                      9:     end ;
                     10:   writeln(wallclock, s);
                     11:   reset(f); s := 0;
                     12:   while not eof(f) do
                     13:     begin read(f,x); s := s+x
                     14:     end ;
                     15:   writeln(wallclock, s)
                     16: end .

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