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

[saur]

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

[Lapp]

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

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

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

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

[saur]

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

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

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

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

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

Да?

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

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

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

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


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