Delphi Файлы

[shadezx]

Даны два файла целых чисел одинакового размера. Создать текстовый файл, содержащий эти числа, расположенные в два столбца шириной по 30 символов (в первом столбце содержатся числа из первого исходного файла, во втором — из второго файла). В начало и конец каждой строки текстового файла добавить разделитель «|». Числа выравниваются по правому краю столбца.

[Stilet]

var q,w:file of integer; e,r:integer; 
begin
 assignfile(output,'text.txt'); 
 assignfile(q,'1'); reset(q);
 assignfile(w,'2'); reset(w);
 while (not eof(w)) and (not eof(q)) do begin
  read(q,e);read(w,r);writeln('|',e:30,w:30,'|');
 end; 
 closefile(q);closefile(w);
end.

Это если не ошибаюсь. Не проверял.

[Sciv]

Это если не ошибаюсь.

ну разве что еще output закрыть не мешало бы...

[Poma][a]

ну разве что еще output закрыть не мешало бы...

Наверное, не закрыть, а перенаправить на ''..

[Stilet]

А он сам должен закрыться.

[Serge_Bliznykov]

Сообщение от Stilet

А он сам должен закрыться.

да должен то должен, но намного лучше закрыть его принудительно!

CloseFile(output);

кроме того, где логика - файлы, которые открываются НА ЧТЕНИЕ, у Вас в программе закрываются (при чтении шансы потерять данные минимальны). А файл, в который идёт запись - бросаете на произвол судьбы.
Раньше, в DOS программах подобное поведение вполне могло привести к тому, что последний записываемый кусок может не попасть в файл (я лично сталкивался с подобными багами).
Поэтому, я бы лично файлик всё таки закрыл, так оно и правильнее и надежнее будет!

[Stilet]

Ну пусть будет так

[Vanta11a]

Опять же, в некоторых версиях Паскаля, изменения в файл пишутся только по факту его закрытия (практический опыт). Т.е. не закрыли - изменений нет.

[shadezx]

Сообщение от Stilet

var q,w:file of integer; e,r:integer; 
begin
 assignfile(output,'text.txt'); 
 assignfile(q,'1'); reset(q);
 assignfile(w,'2'); reset(w);
 while (not eof(w)) and (not eof(q)) do begin
  read(q,e);read(w,r);writeln('|',e:30,w:30,'|');
 end; 
 closefile(q);closefile(w);
end.

Это если не ошибаюсь. Не проверял.

Благодарю за помощь!