BSD 1 development

[unix-history] / tests / numericIO.p

program numericIO(f,output);
 const n = 500; d = 0.12345;
 var i: integer; x,s: real;
     f: file of real;
begin writeln(clock);
 x := 1.0; s := 0; rewrite(f);
 for i := 1 to n do
   begin write(f,x); s := s+x; x := x+d
   end ;
 writeln(clock, s);
 reset(f); s := 0;
 while not eof(f) do
   begin read(f,x); s := s+x
   end ;
 writeln(clock, s)
end .