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

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

program param56;

type
 St=String [100];

var S1,S2:String;
    K:integer;

Procedure TextToStringFile(S:String);
var
 F_in: Text;
 F_out: File of St;
 TempS:St;

begin
 Assign(F_in,S);
 Reset(F_in);

 Assign(F_out,'~'+S);
 ReWrite(F_out);

 While not(eof(F_in)) do
  begin
   Readln(F_in,TempS);
   Write(F_out,TempS);
  end;
 Close(F_out);
 Close(F_in);

 Erase(F_in);
 Rename(F_out,S);
end;

begin
 Write('S1: ');
 Readln(S1);
 TextToStringFile(S1);
 Write('S2: ');
 Readln(S2);
 TextToStringFile(S2);
end.

program param56;

type

St=String [100];

var S1,S2:String;

K:integer;

Procedure TextToStringFile(S:String);

var

F_in: Text;

F_out: File of St;

TempS:St;

begin

Assign(F_in,S);

Reset(F_in);

Assign(F_out,'~'+S);

ReWrite(F_out);

While not(eof(F_in)) do

begin

Readln(F_in,TempS);

Write(F_out,TempS);

end;

Close(F_out);

Close(F_in);

Erase(F_in);

Rename(F_out,S);

end;

begin

Write('S1: ');

Readln(S1);

TextToStringFile(S1);

Write('S2: ');

Readln(S2);

TextToStringFile(S2);

end.

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

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

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

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