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

TheMaker

0 / 0 / 0

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

Сообщений: 4

Метки pascal abc (Все метки)

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

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

Program P1;
Type journal = record
   Fam: string[18];
   Rus: 2..5;
   Math: 2..5;
   Eng: 2..5
end;
Var list: array[1..8] of journal;
    i:integer; F1, F2: text;
Begin
  
  Assign(F1, 'C:10_М.txt');
  Assign(F2, 'C:SoFar.txt');
  Reset(F1);
  Rewrite(F2);
  ReadLn(F1); ReadLn(F1);
  
   For i:=1 to 8 do 
     ReadLn(F1, list[i].Fam, list[i].Rus, list[i].Math, list[i].Eng);
   For i:=1 to 8 do
     If (list[i].Rus=3) or (list[i].Math=3) or (list[i].Eng=3)then 
     begin
       WriteLn(list[i].Fam);
       WriteLn(F2, list[i].Fam)
     end;
  Close(F1); Close(F2);
end.

При этом программа выдает: «1.pas(19) : Ошибка времени выполнения: Входная строка имела неверный формат.»
Файл с таблицей прилагаю. Заранее премного благодарен.

64270 / 47569 / 32739

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

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

Спасибо и на этом.

6108 / 2847 / 1299

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

Сообщений: 5,738

Записей в блоге: 1

TheMaker, в файле C:10_М.txt обеспечьте, чтобы было 18 символов под фамилию + 19ый символ пробел:

Иванов             3 4 5
Петров             3 3 3
Сидоров            3 4 5

Добавлено через 34 секунды
Так нельзя:

Иванов 3 4 5
Петров 3 3 3
Сидоров 3 4 5

0 / 0 / 0

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

Сообщений: 4

ildwine, так там предусмотрен абзац.
Т.е.

Иванов
3. 4. 5
Петров
2. 4. 3

Или есть смысл писать все 1 строкой?

ildwine

6108 / 2847 / 1299

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

Сообщений: 5,738

Записей в блоге: 1

1

ReadLn(F1, list[i].Fam, list[i].Rus, list[i].Math, list[i].Eng);

Эта строка предусматривает, что данные находятся в одной строке через пробел.

0 / 0 / 0

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

Сообщений: 4

ildwine

6108 / 2847 / 1299

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

Сообщений: 5,738

Записей в блоге: 1

У меня заработало, после того как я сформировал правильный файл.
И ещё нужно убрать строку:

1

ReadLn(F1); ReadLn(F1);

10_М.txt

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

Program P1;
Type journal = record
   Fam: string[18];
   Rus: 2..5;
   Math: 2..5;
   Eng: 2..5
end;
Var list: array[1..8] of journal;
    i:integer; F1, F2: text;
Begin
  
  Assign(F1, 'D:10_М.txt');
  Assign(F2, 'D:SoFar.txt');
  Reset(F1);
  Rewrite(F2);
  
   For i:=1 to 8 do 
     ReadLn(F1, list[i].Fam, list[i].Rus, list[i].Math, list[i].Eng);
   For i:=1 to 8 do
     If (list[i].Rus=3) or (list[i].Math=3) or (list[i].Eng=3)then 
     begin
       WriteLn(list[i].Fam);
       WriteLn(F2, list[i].Fam)
     end;
  Close(F1); Close(F2);
end.

0 / 0 / 0

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

Сообщений: 4

Выдаёт ошибку:
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-то века знакомился с данным господином.