Задача на списки, массивы

[Альбиша]

Please, help me!!!
___________________________________ ______________________________
200 учеников шести школ города (номера школ заданы) принимают участие в тестировании по математике. Правильные численные ответы к пяти предложенным задачам даны. О каждом ученике известно: фамилия, номер школы и пять ответов на задачи. Сведения об учениках не имеют определенной упорядоченности. Составить списки учеников по школам, расположив в каждом списке фамилии в порядке убывания количества решенных задач. Предусмотреть возможный ответ "не решил".
___________________________________ ______________________________

[Альбиша]

Помоооогитеее, ну неужели никто не знает как это сделать.

[Sazary]

Так а чем вам помочь? Написать за вас?
Вы спрашивайте, что непонятно.
Вроде, все в задании ясно написано.

[Альбиша]

Да я практически дуб дубом в программировании. =( Посмотри это:

program zadacha_1;
 uses crt;
  type
  s=record {Список учеников}
   f: string[15];{фамилия}
   sсh:integer;{№ школы}
   h:integer;{переменная счетчик}
   oc_1: 1..5; {оценка по первой задаче}
   oc_2: 1..5; {оценка по второй задаче}
   oc_3: 1..5; {оценка по третьей задаче}
   oc_4: 1..5; {оценка по четвертой задаче}
   oc_5: 1..5; {оценка по пятой задаче} 
  end;
  var
   a: array [1..200] of s; {массив учащихся}
   n: integer;{количество учащихся в каждой школе}
   i: integer;
  begin
   clrscr;
   writeln('Введите количество учащихся');
   readln(n);
    for i:=1 to n do
     with a[i] do
      begin
       write('Введите фамилию ',i,' учащегося--> ');
       readln (f);
        write('Введите школу-->');
       readln(sch);
       write ('введите его пять оценок ');
         readln (oc_1, oc_2, oc_3, oc_4, oc_5);
        end;
      end;

Дальше я не сильна. Как предусмотреть ответ не решил? Можешь по возможности написать дальнейшие действия, пожалуйста!

[Sazary]

Как предусмотреть ответ не решил?

Просто если количество решенных задач = 0, то выводить "не решил". Я так понимаю.

У вас будут 3 массива (3 школы). Идете по исходному массиву. Смотрите, сколько задач решил текущий ученик. Смотрите на его школу и помещаете в соответствующий массив. При этом помещаете в нужное место (чтобы массив был отсортирован). Или можно просто сначала раскидать учеников по 3-м массивам и уже потом их отсортировать по количеству решенных задач.

[Альбиша]

насчет не решил, так будет:
oc: 0; {не решил}???
Если не трудно, можешь мне на языке программирования хотя бы описать первый массив.

[Sazary]

Альбиша, на самом деле, как-то непонятно, где это "не решил" должно быть и куда его надо писать. Возможно, ответы задаются не числами, а строками.
Сделайте пока остальное:
пройдите по исходному массиву и распределите учеников по 3-м массивам (в соответствии со школой).
Потом уже эти массивы отсортируете.

[Альбиша]

Тут наверно имеется в виду : решил/не решил, я так поняла?

[Sazary]

Тут наверно имеется в виду : решил/не решил, я так поняла?

Не думаю. Похоже, вот так:
есть массив правильных ответов (5 элементов). Массив строк.
А у каждого ученика есть массив ответов. И вот там может быть ответ "не решил". Только вот не вижу смысла что-то предусматривать, т.к. неправильный ответ и "не решил", фактически, одно и то же.

[Альбиша]

Можно как-нибудь проще написать эту программку, так чтобы места занимала поменьше Посмотрите пожалуйста:

Program 1;
Const
No_1:=1;      /номера школ/
No_2:=4;
No_3:=5;
No_4:=6;
No_5:=8;
No_6:=9;
N:=200;         /кол-во учеников всего/
Var
	Sp: array [1..n] of string [15];   /список фaмилий/
	Sch:  array [1..n] of integer;  /список номеров школ/
	Sp1: array [1..n] of string [15];    /список фамилий учеников 1-ой школы №1/
	Sp2: array [1..n] of string [15];    
	Sp3: array [1..n] of string [15];    
	Sp4: array [1..n] of string [15];    
	Sp5: array [1..n] of string [15];    
	Sp6: array [1..n] of string [15];    
K1: array [1..n] of integer;      /кол-во решенных задач учеников 1-ой школы №1/
K2: array [1..n] of integer;      
K3: array [1..n] of integer;      
K4: array [1..n] of integer;      
K5: array [1..n] of integer;      
K6: array [1..n] of integer;    
PO: array [1..5] of real;    /правильные ответы/
OT: array [1..n, 1..5] of real;  /ответы учеников/
x,i j,k,i1,i2,i3,i4,i5,i6,x1,x2,x3,x4,x5,x6: integer;
	Begin
		Writeln(' введите 5 правильных ответов');
		For j:=1 to 5 do
		Readln(PO[j]);
Writeln('vvedite',n,'familiy');
For i:=1 to n do
Readln(sp[i]);
Writeln(' введите номера школ');
For i:=1 to n do
Readln(sch[i]);
Writeln(' введите 5 ответов каждого из',N,'учеников');
For i:=1 to n do
For j:=1 to 5 do
Read(OT[i,j]);
Writeln('schola',No_1);
x1:=0;              /количество учеников школы/
For i:=1 to n do
Begin
If sch[i]=No_1 then
           Begin
 x1:=x1+1;
i1:=x1;
sp1[i1]:=sp[i];   /переносим ученика из общего списка в список учеников 1-ой школы/
for j:=1 to 5 do
begin
if OT[i,j]=PO[j] then
k:=k+1; 
end;
   k1[i1]:=k;
    end;
end;
x:=0;    /число повторений обхода сортировки/
repeat
for i1:=1 to x1 do
begin
	if k1[i1]<k1[i1+1] then
                   	begin
		k1[i1]:=k1[i1+1];
		k1[i1+1]:=k1[i1];
		sp1[i1]:=sp1[i1+1];
		sp1[i1+1]:=sp1[i1];
		x:=x+1;
		end;
end;
until x=x1;
for i1:=1 to x1 do
writeln(sp1[i1]);
writeln('школа',No_2);
x2:=0;
…………………………………….

Если можно уменьшить, напишите пожалуйста код.