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

File46. Дана строка $$S_0$$, целое число $$N$$ $$(\le 4)$$ и $$N$$ файлов одного и того же типа с именами $$S_1, …, S_N$$. Объединить содержимое этих файлов (в указанном порядке) в новом файле с именем $$S_0$$.

Решение:

program File46;
var

 N,i:Integer;
 Buf : Char;
 S: String;
 F,F2 :File;

begin
  Write('S0: ');
  Readln(S);

  Assign(F,S);
  Rewrite(F,1);

  Write('N: ');
  Readln(N);


  For i:=1 to N do
   begin
    Write('S: ');
    Readln(S);

    Assign(F2,S);
    Reset(F2,1);


    while not Eof(F2) do
     begin
      BlockRead(F2, Buf, SizeOf(char));
      BlockWrite(F, Buf, sizeof(char));
     end;
    Close(F2);
   end;
  Close(F);
end.

program File46;

var

N,i:Integer;

Buf : Char;

S: String;

F,F2 :File;

begin

Write('S0: ');

Readln(S);

Assign(F,S);

Rewrite(F,1);

Write('N: ');

Readln(N);

For i:=1 to N do

begin

Write('S: ');

Readln(S);

Assign(F2,S);

Reset(F2,1);

while not Eof(F2) do

begin

BlockRead(F2, Buf, SizeOf(char));

BlockWrite(F, Buf, sizeof(char));

end;

Close(F2);

end;

Close(F);

end.

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

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

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

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