Работа с фалами, Считать f1, считать f2. Записать все в f3 Опции

[saur]

Стоит задача считать f1 - c:\temp\f1.txt
Затем считать f2 - c:\temp\f2.txt
И все это записать в f3 - c:\temp\f3.txt

Вот что накодил.

program laba;

var f1, f2, f3:text;

    a:integer;

begin

assign(f1, 'c:\temp\f1.txt');

reset(f1);

assign(f2, 'c:\temp\f2.txt');

reset (f2);

assign (f3, 'c:\temp\f3.txt');

rewrite(f3);

while not eof(f1)  do

begin

read (f1,a);

write (f3, a);

end;

append(f3);

while not eof(f2) do

begin

read(f2,a);

write(f3,a);

end;



write('complete');

close(f1);

close(f2);

close(f3);

end.

Все ли сделано верно?

Сообщение отредактировано: saur - 26.05.2010 21:56

[volvo]

по идее перед append надо close(f3) сделать.

Не надо:

Append (procedure)
Opens an existing file for appending.
<...>
Append opens the existing external file with the name assigned to F. An error occurs if no external file of the given name exists. If F is already open, it is closed, then reopened. The current file position is set to the end of the file.