Добавление содержимого нескольких нетипизированных файлов к первоначально пустому файлу - Turbo Pascal

Формулировка задачи:

Реализуйте последовательное добавление содержимого нескольких нетипизированных файлов к первоначально пустому файлу с заданным именем.


textual

Код к задаче: «Добавление содержимого нескольких нетипизированных файлов к первоначально пустому файлу - Turbo Pascal»

Var f,g:text;
    s,name,st:string;
    i,n:integer;
Begin
    write('Имя файла: ');readln(name);
    Assign(f,name);Rewrite(f);
    n:=2;
    For i:=1 to n do
    Begin
      s:='in.txt';
      Str(i,st);
      Insert(st,s,3);
      Assign(g,s);Reset(g);
      While not Eof(g) do
      Begin
        readln(g,s);
        writeln(f,s);
      End;
      Close(g);
    End;
    Close(f);
    writeln('Результат в файле ',name);
    readln;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 4.364 из 5

Источник