Решаем задачи Абрамян на Паскале. Param55

Param55. Описать процедуру StringFileToText($$S$$), преобразующую двоичный строковый файл с именем $$S$$ в текстовый файл с тем же именем. Используя эту процедуру, преобразовать два данных строковых файла с именами $$S_1$$ и $$S_2$$ в текстовые.
Решение:

program param55;

type

St=String [100];

var

S1,S2:String;

Procedure StringFileToText(S:String);

var

F_in: File of St;

TempS:St;

F_out: Text;

begin

Assign(F_in,S);

Reset(F_in);

Assign(F_out,'~'+S);

ReWrite(F_out);

While not(eof(F_in)) do

begin

Read(F_in,TempS);

Writeln(F_out,TempS);

end;

Close(F_out);

Close(F_in);

Erase(F_in);

Rename(F_out,S);

end;

begin

Write('S1: ');

Readln(S1);

StringFileToText(S1);

Write('S2: ');

Readln(S2);

StringFileToText(S2);

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param55

Комментарии:

Добавить комментарий Отменить ответ