Работа с фалами, Считать 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

[Client]

по идее перед append надо close(f3) сделать. Но тут append и не нужен, пишешь подряд и пишешь...

[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.

[saur]

А так все верно? Просто я писал по памяти. Компилятора нет под рукой, я с телефона сижу, поэтому и попросил проверить.

[Lapp]

А так все верно?

Нет.
Про чтение: поскольку файл текстовый, то сказать этого нельзя. Может быть и верно, и неверно - все зависит от формата входных файлов.
Про запись: заведомо неверно. Ты лепишь числа одно к другому без разделителей - как потом этот файл читать?

А append лучше действительно убрать..

P.S.
и что это за новая мода - писать код через строку и без форматирования?..

[saur]

Нет.
Про чтение: поскольку файл текстовый, то сказать этого нельзя. Может быть и верно, и неверно - все зависит от формата входных файлов.

Только числа на входе в файле через пробел

Про запись: заведомо неверно. Ты лепишь числа одно к другому без разделителей - как потом этот файл читать?

Т.е. писать лучше так:

read(f2,a);
write(f3,a);
write(f3, ' ');

Да?

А append лучше действительно убрать..

Он и так будет писать в конец файла?

P.S.
и что это за новая мода - писать код через строку и без форматирования?..

Это называется пишу через оперу мини. Тут не очень удобно пробелами выравнивать код


Сообщение отредактировано: saur - 27.05.2010 0:31

[Lapp]

Только числа на входе в файле через пробел

Тогда вроде верно..

Т.е. писать лучше так:

read(f2,a);
write(f3,a);
write(f3, ' ');

Да?

Так:

read(f2,a);
write(f3,a,' ');

Он и так будет писать в конец файла?

А откуда ему вообще знать, что у тебя один файл закончился и начался второй? и какое ему до этого дело? ))
Процесс записи идет сам по себе, как шел, если ты не сделал reset на f3.

[saur]

Может кто нибудь откомпилировать и проверить корректность? Мало ли чего. Заранее благодарен за помощь.

[Ozzя]

Может кто нибудь откомпилировать и проверить корректность?

Программу и файлы приложи, проверю.

[saur]

f1.txt

Код

1 2 3 4 5

f2.txt

Код

6 7 8 9

f3.txt пуст.

После работы программы должно записаться в f3.txt

Код

1 2 3 4 5 6 7 8 9

[Ozzя]

Ответ получился:

123456789

Если числа должны идти через пробел в f3.txt. то измени

write (f3, a);

на

write (f3, a,' ');

Сообщение отредактировано: Ozzя - 28.05.2010 7:21

[saur]

Благодарю всех за помощь. Тему можно закрыть.