Неверный числовой формат при вводе

@nulor · Регистрация: 17.05.2017

Author24 — интернет-сервис помощи студентам

ЭТО В УЧЕБНИКЕ

Pascal

Program Examen;
Type results = record
  Fam: string|15|;
  Rus: 2. .5;
  Alg: 2. .5;
  Phiz: 2 . . 5
End;
Var list: array|1..30| of results; {Массив записей}
     i: Integer; FI, F2: text;
Begin
  Assign(Fl, 'E:\10_a.txt'); {Связывание FI с файлом 10_a.txt}
  Assign(F2, 'E:\Best.txt'); {Связывание F2 с файлом Best.txt}
  Reset(F1);{Открытие файла FI для чтения}
  Rewrite(F2);{Открытие файла F2 для записи}
  ReadLn(Fl); ReadLn(Fl); {Пропуск 2 строк в файле F1}
{Цикл ввода из файла F1}
  For i:=1 То 30 Do
  ReadLn(FI,list|i|.Fam, list|i|.Rus, list|i|.Alg, list|i|.Phiz);
{Цикл отбора отличников и вывода их фамилий}
  For i:=1 То 30 Do If (list|i|.rus=5) and (list|i|.alg=5)and (list|i|.phiz=5}
         Then
             Begin
               WriteLn(list|i|.fam}; {Вывод фамилии на экран}
               WriteLn(F2, list|i|.fam) {Запись фамилии в файл F2}
            End;
 Close(Fl); Close(F2){Закрытие файлов}
End.

МОЙ ШЕДЕВР(Помогите найти ошибку):

@Kitayets · 17.05.2017, 16:51

ну во первых у вас ABC pascal - на freepascal это программа даже не скомпилируется.

на сколько я понимаю у вас файл с исходными данными не верного формата. фамилии и оценки на разных строках.

на мой взгляд должно быть так:

1. стр | <шапка>
2. стр | <пустая строка>
3. стр | <фамилия> <оценки>
4. стр | <фамилия> <оценки>
...
32 стр | <фамилия> <оценки>

@Puporev · 17.05.2017, 17:01

Сообщение от nulor

МОЙ ШЕДЕВР

А выложить свой шедевр не картинкой а текстом ума не хватило?

@nulor · 17.05.2017, 17:19 **[ТС]**

Таблица содержит данные с фамилиями и оценками 30 учеников класса. Обратите внимание на то, что фамилии записываются в отдельных строках. Необходимость этого связана с реализацией алгоритма (см. далее): при вводе символьной строки прочитывается полностью очередная строка текстового файла до признака EOLN. При этом фамилии должны содержать не более 15 символов

Добавлено через 4 минуты
Простите

Pascal

program ex1;
type results=record
 Fam: string[15];
 Rus: 2..5;
 Alg: 2..5;
 Phiz: 2..5
end;
var list: array[1..30] of results;
    i: integer; F1, F2: text;
begin
 assign(F1, '10_b.txt');
 assign(F2, 'Best.txt');
 reset(F1);
 rewrite(F2);
 readln(F1); readln(F1);
 for i:=1 to 30 do
  readln(F1, list[i].Fam, list[i].Rus, list[i].Alg, list[i].Phiz);
 for i:=1 to 30 do
  if (list[i].rus=5) and (list[i].alg=5) and (list[i].phiz=5)
  then
  begin
   writeln(list[i].fam);
   writeln(F2, list[i].fam)
  end;
 close(F1); close(F2)
end.

Добавлено через 8 минут

И так тоже пытался, ошибка та же самая

@Kitayets · 17.05.2017, 23:50

это какая то специфика ABC Pascal, лучше в том разделе спрашивать.

Добавлено через 6 часов 23 минуты
вот такой код:

Кликните здесь для просмотра всего текста

Delphi

program ex1;
 
{$mode objfpc}{$H+}
 
uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes, sysutils { you can add units after this };
 
type
  results = record
    Fam: string[15];
    Rus: Integer;
    Alg: Integer;
    Phiz: Integer;
  end;
var
  list: array[1..30] of results;
  i: integer;
  F1, F2: Text;
begin
  Assign(F1, '10_b.txt');
  Assign(F2, 'Best.txt');
  reset(F1);
  rewrite(F2);
  readln(F1);
  readln(F1);
  for i := 1 to 30 do begin
    readln(F1, list[i].Fam);
    readln(F1, list[i].Rus, list[i].Alg, list[i].Phiz);
  end;
  for i := 1 to 30 do
    if (list[i].rus = 5) and (list[i].alg = 5) and (list[i].phiz = 5) then
    begin
      writeln(list[i].fam);
      writeln(F2, list[i].fam);
    end;
  Close(F1);
  Close(F2);
end.

для такого исходного файла:

Кликните здесь для просмотра всего текста

Фамилия Русский язык Алгебра Физика

Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5
Антонов
4 5 5
Андреева
5 3 4
Боброва
5 5 5

выдает такой результирующий файл:

Кликните здесь для просмотра всего текста

Боброва
Боброва
Боброва
Боброва
Боброва
Боброва
Боброва
Боброва
Боброва
Боброва

@bormant · 18.05.2017, 09:37

nulor,
по предложенному файлу данных:
1а) убрать в стр.15 второй ReadLn(f1), иначе он вычитает строку с первой фамилией
1б) или в файле добавить строку до 1-й фамилии
2) в файле нет данных на 30 персон, или цикл до 3-х, или читать сколько есть, не более 30:

Pascal

  n:=0;
  while (n<=30) and not SeekEoF(f1) do begin
    Inc(n);
    with list[n] do ReadLn(f1, Fam, Rus, Alg, Phiz);
  end;
  for i:=1 to n do ...

@nulor · 18.05.2017, 14:08 **[ТС]**

Код

uses {$IFDEF UNIX} {$IFDEF UseCThreads}
  cthreads, {$ENDIF} {$ENDIF}
  Classes, sysutils

Модули не найдены

@bormant · 18.05.2017, 14:53

Сообщение от nulor

Модули не найдены

Просто уберите эти строки, следующий за ними код их не использует.

@Kitayets 442 / 371 / 132 Регистрация: 09.09.2011 Сообщений: 1,339
	17.05.2017, 16:51	2
	ну во первых у вас ABC pascal - на freepascal это программа даже не скомпилируется. на сколько я понимаю у вас файл с исходными данными не верного формата. фамилии и оценки на разных строках. на мой взгляд должно быть так: 1. стр \| <шапка> 2. стр \| <пустая строка> 3. стр \| <фамилия> <оценки> 4. стр \| <фамилия> <оценки> ... 32 стр \| <фамилия> <оценки> 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.05.2017, 17:01	3
	Сообщение от nulor МОЙ ШЕДЕВР А выложить свой шедевр не картинкой а текстом ума не хватило? 0

@nulor 0 / 0 / 0 Регистрация: 17.05.2017 Сообщений: 4
	18.05.2017, 14:08 [ТС]	7
	Код uses {$IFDEF UNIX} {$IFDEF UseCThreads} cthreads, {$ENDIF} {$ENDIF} Classes, sysutils Модули не найдены 0

@bormant Модератор 7792 / 4616 / 2829 Регистрация: 22.11.2013 Сообщений: 13,112 Записей в блоге: 1
	18.05.2017, 14:53	8
	Сообщение от nulor Модули не найдены Просто уберите эти строки, следующий за ними код их не использует. 0