Таблица с абитуриентами Опции

[Schumi]

Ребята, нужна помощь.
смысл задачи таков:
вводится 5 абитуриентов и 5 предметов
паскаль заполняет всю таблицу оценками и высчитывает средний балл.
потом надо расставить абитуриентов по рейтингу в зависимости от среднего бала.
я сделал только до рейтинга
вот

Код

program tabel10A;
uses wincrt;
Var familii:array [1..5] of string[7];
Var predmetu:array [1..5] of string[3];
var srb:array [1..3] of integer;
Var otcenki: array [1..5,1..5] of integer;
Var i,j:integer;
Var a,b,c,d,e;real;
begin;
Begin randomize;
For i:=1 to 5 DO for j:= 1 to 5 do Otcenki [i,j]:=random(6-2)+2;
end;
writeln('введите фамилии');
for i:=1 to 5 do readln(familii[i]);
writeln('введите предметы');
For i:= 1 to 5 do readln(Predmetu[i]);
writeln;
For j:= 1 to 72 do write('_');
writeln;
write('| ФИО   |');
For i:= 1 to 5 do begin write('   ',predmetu[i],'    |') end;
write('  Ср.б. ','  |');
write ('');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[1],' |    ',otcenki[1,1],'     |      ', otcenki [1,2], '   |   ',
otcenki [1,3],'      |     ', otcenki[1,4],'    |  ', otcenki [1,5], '   |    ');
a:=(otcenki[1,1]+otcenki[1,2]+otcenki[1,3]+otcenki[1,4]+otcenki [1,5])/5;
write(a:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[2],' |    ',otcenki[2,1],'     |      ', otcenki [2,2], '   |   ',
  otcenki [2,3],'      |     ', otcenki[2,4],'    |  ', otcenki [2,5], '   |    ');
b:=(otcenki[2,1]+otcenki[2,2]+otcenki[2,3]+otcenki[2,4]+otcenki [2,5])/5;
write(b:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[3],' |    ',otcenki[3,1],'     |      ', otcenki [3,2], '   |   ',
otcenki [3,3],'      |     ', otcenki[3,4],'    |  ',otcenki [3,5], '   |    ');
c:=(otcenki[3,1]+otcenki[3,2]+otcenki[3,3]+otcenki[3,4]+otcenki [3,5])/5;
write(c:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[4],' |    ',otcenki[4,1],'     |      ', otcenki [4,2], '   |   ',
otcenki [4,3],'      |     ', otcenki[4,4],'    |  ', otcenki [4,5], '   |    ');
d:=(otcenki[4,1]+otcenki[4,2]+otcenki[4,3]+otcenki[4,4]+otcenki [4,5])/5;
write(d:6:2,'  |');
writeln;
For j:= 1 to 72 do write('=');
writeln;
write('|');
write(familii[5],' |    ',otcenki[5,1],'     |      ', otcenki [5,2], '   |   ',
otcenki [5,3],'      |     ', otcenki[5,4],'    |  ', otcenki [5,5], '   |     ');
e:=(otcenki[5,1]+otcenki[5,2]+otcenki[5,3]+otcenki[5,4]+otcenki [5,5])/5;
write(e:6:2,'  |  ');
writeln;
For j:= 1 to 72 do write('=');
writeln;
end

помогите составить рейтинг
а то ничего не получается.
Заранее Спасибо.

Добавлено через 4 мин.
точнее расставить абитуриентов в таблице по рейтингу

[Schumi]

Срочно ребята!!!
Очень надо!

[Rom1k]

а это обязательно в массиве делать?

[Schumi]

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

[Rom1k]

а вы изучали записи,списки?

[Schumi]

хз ....нет

Добавлено через 1 мин.
вроде бы нет

[мисс_граффити]

Количество абитуриентов задано, поэтому я не вижу смысла в использовании списков.
А вот записи... Задача явно на них. Уточняй у препода.

[Schumi]

если б мог спросить.
надо позарез иначе будет фигово.
Ребята на вас одна надежда.
а что там за списки то?

[Rom1k]

оу.ну я даже не знаю.поищи тут же в поиске "Записи".
2мисс_граффити
я не такой умный,как Вы!

[Schumi]

Помогите усовершенствовать мою.
Плиз

[мисс_граффити]

усовершенствовать-то не проблема.
только как ты будешь с преподом объясняться, если вы этого вообще не проходили?..

я не такой умный,как Вы!

это вообще к чему?

[Schumi]

только как ты будешь с преподом объясняться, если вы этого вообще не проходили?..

да без разницы
главное-результат-таблица, а на текст препод не смотрит.
Плиз, помоги

[Schumi]

Мне до завтрашнего утра, точнее до 8-9 утра надо.
Помогите, Плиз!!

[Schumi]

Ребята, у меня вопрос: мне есть на что надеяться?

Все равно всем спасибо!

[мисс_граффити]

я не понимаю, чего ты хочешь
на код он не смотрит? зачем тогда усовершенствования кода? не похоже, что стремишься разобраться...

[Schumi]

В смысле на код не смотрю?
Не совсем тебя понял.
У меня ступор на этом, не получается их по рейтингу расставить.
Я сегодня и так целый день сижу с этой прогой.

Помогите плиз.

Добавлено через 16 мин.
Юля, на тебя одна надежда.
Помоги пожалуйста.
Усовершенствуй, если не сложно. ПОЖАЛУЙСТА. Очень Прошу.

ЗАРАНЕЕ ГИГАНТСКОЕ СПАСИБО!

З.Ы. Только до утра плиз, а то мне завтра рано вставать.

[мисс_граффити]

так?

type student=record
  familia: string[10];
  ocenka: array[1..5] of byte;
  srb: real;
  end;

var abitura: array[1..5] of student;
vsp: student;
i,j: integer;

begin
for i:=1 to 5 do
  with abitura[i] do
    begin
    writeln('familia?');
    readln(familia);
    srb:=0;
    for j:=1 to 5 do
      begin
      writeln('ocenka ',j,'?');
      readln(ocenka[j]);
      srb:=srb+ocenka[j];
      end;
    srb:=srb/5;
    end;

for i:=1 to 4 do //исключительно корявая и неэффективная сортировка. можешь взять любую другую
  for j:=1 to 4 do
    if abitura[j].srb>abitura[j+1].srb then
      begin
      vsp:=abitura[j];
      abitura[j]:=abitura[j+1];
       abitura[j+1]:=vsp;
      end;

for i:=1 to 5 do //можешь выводить и другие поля...
  write( abitura[i].familia:10);
writeln;
for i:=1 to 5 do
  write( abitura[i].srb:10:3);
readln;
end.

мне самой в 8 утра курсовик показывать... и что теперь? я ж никого не напрягаю тем, что вовремя его не села делать ;)

[Schumi]

ОГРОМНЫЙ РЕСПЕКТ!!!!!!!



Если не сложно с какого момента это нужно вставить в мою прогу?

Сообщение отредактировано: Schumi - 2.05.2007 0:31

[мисс_граффити]

это - ПОЛНАЯ прога.
к твоей отношения не имеет

[Schumi]

Я когда пытаюсь запустить он мне ошибку выдает Runtime error 105
что это такое?