Ошибка окончания ввода информации в текстовый файл - Free Pascal
Формулировка задачи:
пример проги взят из учебника "Turbo Pascal учебный курс 7.0"
стр.124 листинг 6.4
чтобы закончить ввод текста предлагается
клик Ctrl + Z затем Enter
после ввода инфы и Ctrl + Z ,Enter
ввод не прекращается ...
Листинг программы
- assign( f , 'string.txt');
- rewrite( f );
- while not eof do begin
- readln( s );
- writeln( f , s );
- end;//while
- close( f );
Решение задачи: «Ошибка окончания ввода информации в текстовый файл»
textual
Листинг программы
- Assign(input,''); Reset(input);
- { стандартное использование ввода/ввода }
- AssignCrt(input);
- { использование ввода/вывода через Crt }
Объяснение кода листинга программы
Assign(input, '');
- присваивает переменнойinput
пустую строкуReset(input);
- сбрасывает позицию ввода в начало файлаAssignCrt(input);
- присваивает переменнойinput
дескриптор стандартного ввода- Стандартное использование ввода/вывода
- Использование ввода/вывода через Crt
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д