Входная строка имела неверный формат - Pascal

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

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

Здравствуйте. Небольшая загвоздочка вышла, не понятная мне. Не мог бы кто-нибудь подсказать в чем дело, пожалуйста? В программе с подключением внешнего файла, и считыванием значений из него, выползает ошибка "Входная строка имела не верный формат", какую строку указывал "неверной" пометила:
Program Ex2_2;
Uses Crt;
Var
  f: text;
  c: real;
Begin
  ClrScr;
  Assign(f, 'ex2.txt');
  Reset(f);
  Writeln('В последовательности:');
  While not eof(f) do
    begin
      Read(f, c); <- Вот эту
      Write(c, ' ');
    end;
  Writeln;
  Close(f);
End.

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

textual
Листинг программы
Reset(f);
While not seekeof(f) do
 begin
  Read(f, c);
  Write(c:0:2,' ');//если числа вещественные
 end;
Close(f);

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

  1. Reset(f); - открывает файл f для чтения.
  2. While not seekeof(f) do - начинается цикл, который будет выполняться до тех пор, пока не достигнут конец файла f.
  3. Read(f, c); - считывает значение из файла f и сохраняет его в переменной c.
  4. Write(c:0:2,' '); - выводит содержимое переменной c с двумя знаками после запятой в стандартный вывод.
  5. Close(f); - закрывает файл f после окончания чтения.

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


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

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

15   голосов , оценка 3.933 из 5
Похожие ответы