eof pascal

Ответ от Миоко Таканава[гуру]
program N69712465; var inFile, outFile:file of real; x, y:real; i, n:byte; begin randomize; n := random(91) + 10; assign(inFile,\'input.dat\'); rewrite(inFile); for i := 1 to n do begin x := 200 * random - 100; write(inFile, x) end; reset(inFile); assign(outFile,\'output.dat\'); rewrite(outFile); while not EOF(inFile) do begin read(inFile, x); y := (sqr(x) + 1) / (x * sqr(x) + 2); write(outFile, y) end; close(inFile); close(outFile); reset(inFile); reset(outFile); repeat i := 0; while (i < 24) and not EOF(inFile) do begin inc(i); read(inFile,x); read(outFile,y); writeln(x:10:4,y:10:4) end; if not EOF(inFile) then begin write(\'Для продолжения нажмите Enter\'); readln end until EOF(inFile); close(inFile); close(outFile); readln end. Проверено в Turbo Pascal, Free Pascal и Delphi. B Delphi процедуры assign и close нужно заменить на AssignFile и CloseFile соответственно, и между первой и второй строками вставить {$APPTYPE CONSOLE}