Помощь - Поиск - Пользователи - Календарь
Полная версия: Файлы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Ursula
Почему когда я хочу открыть файл он зацикливается, т.е. записи вводятся бесконечно, может я ввод или вывод не так сделала посмотрите пожалуйста
" (Показать/Скрыть)
Lapp
Потому что ты его не читаешь. Оператор Read в твоем коде процедуры Vivod отсутствует. Соответственно, не может наступить конец файла, по которому ты прекращаешь цикл. В результате на экран бесконечно выводится мусор, который был в памяти на момент запуска программы.

Кроме того, у тебя жуткая путаница с переменными. В нижеследующем фрагменте я исправил кусок, он теперь заполняет массив a[i] одновременно с выводом на экран записей.

  i:=1;
while not (Eof(Fz)) do begin
Read(fz,a[i]);
with a[i] do
Writeln(Org,'. ',Dist,' км. ',Dolgn,',',Razr,'разряд, стаж - ',Stag,
' зарплата - ',Zarpl,' руб., страховка - ',Strah);
Inc(i);
end;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.