Схема программы к задаче 12

Текст программы к задаче 12.

Program Ex_10;

Uses Crt;

Var f1, f2, f3:text;

i, j: integer;

Begin

ClrScr;

Assign(f1, ‘g:\sum\1.txt’);

Assign(f2, ‘g:\sum\2.txt’);

Assign(f3, ‘g:\sum\3.txt’);

Reset(f1);

Reset(f2);

Rewrite(f3);

While not Eof (f1) do begin

Readln (f1, x);

Readln(f2, y1);

Readln(f2, y2);

Readln(f2, y3);

For i:=1 to Length(x) do

If x[i]=’.’ then x[i]:=’*’;

Writeln(f3, x);

Writeln(f3, y1);

Writeln(f3, y2);

Writeln(f3, y3);

End;

Writeln(‘Результирующий файл:’);

Reset(f3);

While not Eof(f3) do begin

Readln(f3, x);

Writeln(x);

End;

Close(f3);

Readln;

End.