Выяснить в каких классах насчитывается более 35 учащихся

@Necottin · Регистрация: 13.06.2016

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

Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дан файл f, содержащий сведения об учениках школы.Выяснить в каких классах насчитывается более 35 учащихся.
Как я понял нужно создать файл , внести в него информацию и потом считать и выяснить в каких из классов насчитывается более 35 учащихся.
Собственно что я и сделал:
Создание файла

Pascal

Type
KOMP=Record
 fam:string[10];
 classn:byte;
 classb:char;
end;
var
fp:file of KOMP;
A:KOMP;
i,n:integer;
begin
Assign(fp,'Data.bta');
Rewrite(fp);
write ('Введите кол-во записей: ');
Readln (N);
for i:=1 to N do begin
Write ('Введите фамилию и имя ');
Readln (A.fam);
write ('Введите номер класса ');
Readln (A.classn);
write ('Введите букву класса ');
Readln (A.classb);
write (fp,A);
end;
close(fp);
End.

Считывание

Pascal

Type
KOMP=Record
 fam:string[10];
 classn:byte;
 classb:char;
end;
var
   i :byte;
   A :KOMP;
   fp : file of KOMP;
   m : array [1..11] of integer;
begin
   assign(fp,'Data.bta');
   reset(fp); 
   for i :=1 to 11 do m[i] := 0;
   while not eof  (fp) do
   begin
      read(fp,A);
      inc(m[A.classn]);
   end;
   close(fp);
   for i:= 1 to 11 do
      if m[i] > 35 then writeln (i);
   readln;
end.

Но выдается ошибка времени выполнения , что делать ?
Так же , похоже , 2 программа не правильная

@Sergio Leone · 13.06.2016, 23:44

попробуй вывести номера классов на экран, возможно, что ты вбил номер класса ноль или больше 11.

Pascal

ну и такие классы можешь выбрасывать:
while not eof  (fp) do
  begin
      read(fp,A);
      if (A.classn>0) and (A.classn<=11) then
           inc(m[A.classn]);
   end;

только это тебя не спасёт.
тут алгоритм посложнее городить придётся - тебе же не только номер класса нужен,
но и буква (сколько там школьников в 1"A", сколько школьников - в 1"Б" и т.д.)

@Necottin · 14.06.2016, 16:42 **[ТС]**

Сведения об ученике состоят из его имени и фамилии и названия класса (года обучения и буквы), в котором он учится. Дан файл f, содержащий сведения об учениках школы.Выяснить в каких классах насчитывается более 35 учащихся.
Как я понял нужно создать файл , внести в него информацию и потом считать и выяснить в каких из классов насчитывается более 35 учащихся.
Собственно что я и сделал:
Создание файла

Pascal

Type
KOMP=Record
 fam:string[10];
 classn:byte;
 classb:char;
end;
var
fp:file of KOMP;
A:KOMP;
i,n:integer;
begin
Assign(fp,'Data.bta');
Rewrite(fp);
write ('Введите кол-во записей: ');
Readln (N);
for i:=1 to N do begin
Write ('Введите фамилию и имя ');
Readln (A.fam);
write ('Введите номер класса ');
Readln (A.classn);
write ('Введите букву класса ');
Readln (A.classb);
write (fp,A);
end;
close(fp);
End.

Считывание

Pascal

Type
KOMP=Record
 fam:string[10];
 classn:byte;
 classb:char;
end;
var
   i :byte;
   A :KOMP;
   fp : file of KOMP;
   m : array [1..11] of integer;
begin
   assign(fp,'Data.bta');
   reset(fp); 
   for i :=1 to 11 do m[i] := 0;
   while not eof  (fp) do
   begin
      read(fp,A);
      inc(m[A.classn]);
   end;
   close(fp);
   for i:= 1 to 11 do
      if m[i] > 35 then writeln (i);
   readln;
end.

Но выдается ошибка времени выполнения , что делать ?
Так же , похоже , 2 программа не правильная

@Sergio Leone · 15.06.2016, 00:27

https://www.cyberforum.ru/post9268843.html

@Necottin · 15.06.2016, 00:39 **[ТС]**

Посложнее у меня вряд ли получится сгородить , мне этот то с трудом дался , очень мало материала по типизированным файлам , не мог бы ты помочь с этим ?

@Sergio Leone · 15.06.2016, 00:55

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

Pascal

1	fp : file of KOMP;

писать в него надо Write(fp, A);
читать из него — Read(fp, A);

что же касается буковок в названии класса.
я простого решения не вижу. а сложное сейчас писать некогда.
если бы ограничить буквы класса, только, скажем, символами "A" "Б" "В" "Г" "Д" "Е" "Ж" ... "Я"

тогда можно замутить что-то вроде:

Pascal

Type
KOMP=Record
 fam:string[10];
 classn:byte;
 classb:char;
end;
var
   i :byte;
   A :KOMP;
   fp : file of KOMP;
   m  : array [1..11,'A'..'Я'] of integer;
   ch : char;
begin
   assign(fp,'Data.bta');
   rewrite(fp);
   A.fam := 'Sidor'; A.classn:=2; A.classb:='Б';
   write(fp,A);
   A.fam := 'Ivanov'; A.classn:=2; A.classb:='А';
   write(fp,A);
   A.fam := 'Sidor3'; A.classn:=2; A.classb:='Б';
   write(fp,A);
   A.fam := 'Sidor4'; A.classn:=2; A.classb:='Б';
   write(fp,A);
   close(fp);
   reset(fp);
   for i :=1 to 11 do
     for ch:='А' to 'Я' do m[i, ch] := 0;
   while not eof  (fp) do
   begin
      read(fp,A);
      if (A.classn in [1..11]) and (A.classb in ['A'..'Я']) then
          inc(m[A.classn, A.classb]);
   end;
   close(fp);
   for i:= 1 to 11 do
     for ch:='А' to 'Я' do
        if m[i,ch] > 2 {тут поставь 35} then writeln ('В классе ',i,ch,' учеников: ',m[i,ch]);
   readln;
end.

@Necottin · 15.06.2016, 15:58 **[ТС]**

А если мы будем сами вводить учеников , получится такая же реализация ?

@Sergio Leone · 15.06.2016, 22:12

да.

только при вводе (в своей программе номер 1) ты проверяй, чтобы classn был от 1 до 11
а classb был прописной буквой in ['A'..'Я']
иначе этот ученик будет при подсчёте проигнорирован.

@Necottin · 17.06.2016, 14:06 **[ТС]**

Разделил программу на две (ввод данных и вывод где больше учеников) , но теперь при запуске 2 проси ничего не происходит, в чем может быть проблема?

@Sergio Leone · 17.06.2016, 23:05

дай взглянуть на сами программы и на тот файл, который ты создал в первой программе - Data.bta.
можешь запаковать файл в архив и архив сюда прикрепить

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	15.06.2016, 00:27	4
	https://www.cyberforum.ru/post9268843.html 0

@Necottin 0 / 0 / 0 Регистрация: 13.06.2016 Сообщений: 5
	15.06.2016, 00:39 [ТС]	5
	Посложнее у меня вряд ли получится сгородить , мне этот то с трудом дался , очень мало материала по типизированным файлам , не мог бы ты помочь с этим ? 0

@Necottin 0 / 0 / 0 Регистрация: 13.06.2016 Сообщений: 5
	15.06.2016, 15:58 [ТС]	7
	А если мы будем сами вводить учеников , получится такая же реализация ? 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	15.06.2016, 22:12	8
	да. только при вводе (в своей программе номер 1) ты проверяй, чтобы classn был от 1 до 11 а classb был прописной буквой in ['A'..'Я'] иначе этот ученик будет при подсчёте проигнорирован. 0

@Necottin 0 / 0 / 0 Регистрация: 13.06.2016 Сообщений: 5
	17.06.2016, 14:06 [ТС]	9
	Разделил программу на две (ввод данных и вывод где больше учеников) , но теперь при запуске 2 проси ничего не происходит, в чем может быть проблема? 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	17.06.2016, 23:05	10
	дай взглянуть на сами программы и на тот файл, который ты создал в первой программе - Data.bta. можешь запаковать файл в архив и архив сюда прикрепить 0