Слияние 2х файлов в третий файл

@Alex_Che · Регистрация: 14.06.2012

Составить программу сцепления двух файлов с созданием третьего файла
Т.е. первый файл записывается в третий, а далее второй файл записывается в третий.

Pascal

var
fil1, fil2, fil3 : text;
i:integer;
begin
Assign(fil1, 'd:\t1.txt');
Assign(fil2,'d:\t2.txt');
Assign(fil3,'d:\t3.txt');
Reset(fil1);
Reset(fil2);
ReWrite(fil3);
begin
while not Eof(fil1) do
begin
read(fil1,??);
end;
while not Eof(fil2) do
begin
read(fil2,??);
end;
writeln(fil3,??);
writeln(fil3,??);
end;
close(fil1);
close(fil2);
close(fil3);
end.

код кривой, извините

@CodeR · 14.06.2012, 09:32

Вот короче я свой написал...

Pascal

Var f,g,h:text;
    s:string;
Begin
    Assign(f,'a.txt');Reset(f);
    Assign(g,'b.txt');Reset(g);
    Assign(h,'c.txt');Rewrite(h);
    While not Eof(f) do
     Begin
      readln(f,s);
      writeln(h,s);
     End;
    While not Eof(g) do
     Begin
      readln(g,s);
      writeln(h,s);
     End;
    Close(f);Close(g);Close(h);
    writeln('Формирование окончено!');
    readln;
End.

Опции темы