Ошибка окончания ввода информации в текстовый файл

@ujif · Регистрация: 08.12.2012

Студворк — интернет-сервис помощи студентам

пример проги взят из учебника "Turbo Pascal учебный курс 7.0"
стр.124 листинг 6.4

Pascal
1
2
3
4
5
6
7
 assign( f , 'string.txt');
  rewrite( f );
 while not eof do begin
  readln( s );
  writeln( f , s );
 end;//while 
close( f );

чтобы закончить ввод текста предлагается
клик Ctrl + Z затем Enter
после ввода инфы и Ctrl + Z ,Enter
ввод не прекращается ...

@bormant · 15.04.2014, 12:57

FPC 2.6.2, Windows 7 SP1, тестовый пример:

Pascal
1
2
3
4
5
6
7
8
9
10
var
  f: text;
  s: string; 
begin
  assign(f, 'string.txt'); rewrite(f);
  while not eof do begin
    readln(s); writeln(f, s);
  end; 
  close(f);
end.

Все работает как ожидалось, по Ctrl+Z вводится ^Z, по последующему Enter ввод благополучно завершается.

Добавлено через 1 минуту
PS. В Windows вместо Ctrl+Z можно использовать F6.
PPS. В Linux вместо Ctrl+Z используется Ctrl+D.

@ujif · 15.04.2014, 13:31 **[ТС]**

извините Уважаемый bormant ,но после ввода
Ctrl+Z у меня ничего не завершается
не пойму для чего ^Z пробовал вводить и эти 2 знака
тот же результат
F6 тоже ни к чему не привело

@volvo · 15.04.2014, 13:44

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

но после ввода
Ctrl+Z у меня ничего не завершается

Завершается. Когда нажал Ctrl и Z одновременно, в консоли появилось сочетание ^Z? Вот как только оно появилось - жмешь Enter, и цикл благополучно завершается.

@ujif · 15.04.2014, 13:57 **[ТС]**

жму Ctrl и Z одновременно как и написано...
наверно в консоли ничего не появляется
в чем причина не пойму

@bormant · 15.04.2014, 15:20

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

в чем причина не пойму

Подобное поведение наблюдал, когда
1) программа использует crt (uses crt), и
2) запущена в эмуляторе DosBox.

Не ваш случай?

ps. Предлагаете всем форумом гадать, в каких условиях вы наблюдаете ошибку?

@ujif · 15.04.2014, 16:34 **[ТС]**

дак а что еще прога должна использовать кроме uses crt ?
и запущена в window 8 64 bit
fpc 2.6.4

@bormant · 15.04.2014, 17:11

ujif, уберите "uses crt;", тем более не видно, чтобы хоть что-то из него явно использовалось. Проблема полечилась? Если да, то на время, когда нужен файловый ввод с консоли, можете использовать:

Pascal
1
2
3
4
  Assign(input,''); Reset(input);
  { стандартное использование ввода/ввода }
  AssignCrt(input);
  { использование ввода/вывода через Crt }

Либо использовать для консольного ввода отдельную файловую переменную:

Pascal
1
2
3
4
5
6
7
8
var
  con: text;
...
  Assign(con,'con'); Reset(con);
  while not eof(con) do begin
    ReadLn(con,s);
    ...
  end;

Добавлено через 6 минут
PS. Разница между Assign(f,'') и Assign(f,'con') в том, что во втором случае переменная будет связана с консолью в любом случае, даже если при запуске будет использовано перенаправление ввода/вывода, а в первом -- файловая переменная будет связана со стандартным вводом (по Reset(f)) или выводом (по Rewrite(f) или Append(f)), перенаправление ввода/вывода будет учтено.

@ujif · 15.04.2014, 19:25 **[ТС]**

спасибо Уважаемый bormant сделал как Вы написали = все получилось
как и должно быть...пишут много умного в умных книгах но мелкие подробности
опускаются и приходится "плавать"

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

Ошибка окончания ввода информации в текстовый файл

Решение

Решение

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	15.04.2014, 13:31 [ТС]
	извините Уважаемый bormant ,но после ввода Ctrl+Z у меня ничего не завершается не пойму для чего ^Z пробовал вводить и эти 2 знака тот же результат F6 тоже ни к чему не привело 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	15.04.2014, 13:57 [ТС]
	жму Ctrl и Z одновременно как и написано... наверно в консоли ничего не появляется в чем причина не пойму 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	15.04.2014, 16:34 [ТС]
	дак а что еще прога должна использовать кроме uses crt ? и запущена в window 8 64 bit fpc 2.6.4 0

@ujif 37 / 31 / 13 Регистрация: 08.12.2012 Сообщений: 815
	15.04.2014, 19:25 [ТС]
	спасибо Уважаемый bormant сделал как Вы написали = все получилось как и должно быть...пишут много умного в умных книгах но мелкие подробности опускаются и приходится "плавать" 0