Операции чтения из файлов и записи в файлы, страница 2

while not seekeof(f) do

begin

while not seekeoln(f) do

begin

read (f,x);

if abs(x)<10.3 then y:=(ln(abs(2+sin(x))))/(ln(10)) else y:=x;

write (g,y:6:2,' ');

end;

writeln (g);

end;

close (f);

close (g)

end.

Результаты:

0.4535 0.4638 0.3306 0.0945 0.0175 0.2357

0.4244 0.4756 0.3824 0.1632 11.0000 12.0000

13.0000 14.0000 15.0000 16.0000 17.0000 18.0000

19.0000 20.0000 21.0000 22.0000 23.0000 24.0000