Решаем задачи Абрамян на Паскале. 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.

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

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

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