Форум «Всё о Паскале» _ Задачи _ Проблема с выводом текста
Автор: Tonny_Bennet 24.02.2007 0:14
Всем привет. Вот написал программу в которой использовал данную процедуру
Procedure write_to_file; Var x:integer; begin Writeln('Vvedite chisla: (dlya vihoda Ctrl+z) '); while not eof do begin Write('x= '); readln(x); Write(fint,x); end; close(fint) end;
а приглашение Write('x= '); выводится как-то страноо, когда цикл работает первй раз строка x= не печатается
Vvedite chisla: (dlya vihoda Ctrl+z) 7 x=5 x=4 x=
в последующих рзах всё нормально работает. Скажите пожалуйста почему.
Автор: volvo 24.02.2007 0:35
Цитата
while not eof do
будет ожидать ввода с клавиатуры, что, собственно, и происходит - и пока ты что-то не введешь, дальше не продвинешься. Если ты прогонишь программу пошагово, то убедишься в этом...