[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 .
Commit	Line	Data
fde98a2d BJ	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(clock);
	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(clock, s);
	11	reset(f); s := 0;
	12	while not eof(f) do
	13	begin read(f,x); s := s+x
	14	end ;
	15	writeln(clock, s)
	16	end .