Program1 pas 10 ошибка времени выполнения входная строка имела неверный формат

Ze7ra

0 / 0 / 0

Регистрация: 24.10.2015

Сообщений: 6

Метки нет (Все метки)

Здравствуйте. Небольшая загвоздочка вышла, не понятная мне. Не мог бы кто-нибудь подсказать в чем дело, пожалуйста?
В программе с подключением внешнего файла, и считыванием значений из него, выползает ошибка «Входная строка имела не верный формат», какую строку указывал «неверной» пометила:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

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.

93 / 11 / 23

Регистрация: 11.04.2016

Сообщений: 34

Ze7ra

0 / 0 / 0

Регистрация: 24.10.2015

Сообщений: 6

WindAndRain, да, дело, видимо в нем. Но что-то до меня не доходит как тогда исправить сам код или тип переменной, чтобы такой ошибки не выходило. Вот код самого файла:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

Program Ex2_2;
Uses Crt;
Var
  f: text;
  c: real;
  p: char;
  n, i: integer;
Begin
  ClrScr;
  Assign(f, 'ex2.txt');
  Rewrite(f);
  Write('Сколько чисел в последовательности: '); Readln(n);
  p:=' ';
  For i:=1 to n do
    begin
      Write('Введите ', i, ' число:');
      Readln(c);
      Write(f, c, p);
    end;
  Writeln;
  Writeln('Файл заполнен');
  Close(f);
End.

Если что, прикреплю еще задание, которое нужно сделать. Помогать с ним не прошу, но очень хочется понять, что делать с этой ошибкой, спасибо:

«В текстовом файле записана непустая последовательность действительных чисел, разделенных пробелами (пробелов может быть больше одного). Написать функцию для нахождения наибольшего из этих чисел.»

318 / 208 / 162

Регистрация: 08.12.2015

Сообщений: 863

Вас же попросили,

, и тогда дойдет хотя бы до нас, что вам ответить на вопрос «как исправить».
Имеется ввиду текстовый файл ваш с данными.

0 / 0 / 0

Регистрация: 24.10.2015

Сообщений: 6

0 / 0 / 0

Регистрация: 24.10.2015

Сообщений: 6

318 / 208 / 162

Регистрация: 08.12.2015

Сообщений: 863

Puporev

64270 / 47569 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

Читать текстовый файл с числами и пробелами

1
2
3
4
5
6
7

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

Выдаёт ошибку:
Program1.pas(12) : Ошибка времени выполнения: Входная строка имела неверный формат.
Код:

program massbouble;
var
f:text;
buf:array [0..20] of integer;
i,j,z,temp:integer;
begin
 assign(f,'input.txt');
  reset(F);
  i:=0;
  while (not eof(f)) do
begin 
  read(f,buf[i]);
  i:=i+1
end;
for j:=0 to i-1 do
for z:=0 to i-j-1 do 
  begin
   if buf[z]<buf[z-1]
   then
   begin
   temp:=buf[z];
   buf[z]:=buf[z-1];
   buf[z-1]:=temp;
end;
close(F);
end;
assign (f,'output.txt');
 rewrite (F);
  for j:=0 to i-1 do
  write (f,buf[j]);
  close (F);
end.

Отредактировал: looks12, — 21.6.2014, 19:32

Цитата(Revelation @ 21.6.2014, 20:33)

Содержимое input.txt ?

20 19 18 1 5 2 4 3 6 8 7 9 17 15 16 10 12 11 13 14

Теперь
Program1.pas(18) : Ошибка времени выполнения: Индекс находился вне границ массива.

А где крутые хацкеры или дудосеры?

Отредактировал: looks12, — 21.6.2014, 20:08

Поблагодарили 2 раз

Цитата(Predat0r @ 21.6.2014, 21:09)

На cyberforum’e

Оффтоп:
Predator,
Хах. Так ты же вроде хвастался, что Pascal учит логике и все такое.
А почему не выучил то?

Цитата(Esecman @ 21.6.2014, 21:19)

Хах. Так ты же вроде хвастался, что Pascal учит логике и все такое.

Как я мог такое сказать, если паскаль говн%?

Отредактировал: Predat0r, — 21.6.2014, 21:12

Поблагодарили 4 раз

как бэ символы, которые читаются имеют формат CHAR, а не Integer
индекс вне границ массива — естественно, ибо читается каждый символ:

(20) = 2символа + пробел =3
(19) = 2 +пробел = 3
и т.д..
зы. Еще у тебя «close» в цикле весит, отсюда еще одна ошибка

короче ошибок уйма

Отредактировал: nsgenn, — 22.6.2014, 5:28

Цитата(nsgenn @ 22.6.2014, 6:17)

Спасибо, но уже нашёл и исправил ошибки.
Да паскаль не радость на задача была поставлена и её надо было решить.

Отредактировал: looks12, — 22.6.2014, 8:11

Цитата(looks12 @ 22.6.2014, 10:10)

Да паскаль не радость на задача была поставлена и её надо было решить.

Вы еще с асмом не знакомились. Попривыкали к халявному алфавиту ))

Отредактировал: nsgenn, — 22.6.2014, 8:45

Цитата(nsgenn @ 22.6.2014, 9:44)

Вы еще с асмом не знакомились. Попривыкали к халявному алфавиту ))

В KOI-то века знакомился с данным господином.