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

Узнай цену своей работы

Формулировка задачи:

пример проги взят из учебника "Turbo Pascal учебный курс 7.0" стр.124 листинг 6.4
Листинг программы
  1. assign( f , 'string.txt');
  2. rewrite( f );
  3. while not eof do begin
  4. readln( s );
  5. writeln( f , s );
  6. end;//while
  7. close( f );
чтобы закончить ввод текста предлагается клик Ctrl + Z затем Enter после ввода инфы и Ctrl + Z ,Enter ввод не прекращается ...

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

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

Объяснение кода листинга программы

  1. Assign(input, ''); - присваивает переменной input пустую строку
  2. Reset(input); - сбрасывает позицию ввода в начало файла
  3. AssignCrt(input); - присваивает переменной input дескриптор стандартного ввода
  4. Стандартное использование ввода/вывода
  5. Использование ввода/вывода через Crt

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут