Задание на записи

[Mr_sniper]

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

Помогите пожалуйста хотя бы с описанием в разделе Type и как разместить в порядке убывания фамилии по баллу

[AVer]

Type
Student = record
  GroupNo:Integer;
  Name:String[50];
  SrBall:Real;
  End;

Создаешь массив таких записей,например Studs:array[1..10] of Student. А потом простоая сортировка по Studs[I].SrBall

[ViktorR]

например так:

Const N= 100; {допустимое число студентов}
Type Trec = record
         Ngr: word;          {номер группы}
         Fam: string[15];  {Фамилия}
         Mid: word;          {Средний бал}
       end;
       Tmas = array[1..N] of Trec; {список студентов}

Var masstud: Tmas;

Сортировку лучше сделать по ключу вида:
K:= Tmas[i].Ngr * 10 + Tmas[i].Mid.
В этом случае, после сортировки, массив будет состоять из элементов, подряд идущих одногрупников, например, с убыванием среднего балла.
Ну вот, опередили. Хотя и не во всём

[AVer]

function Swap(x: <целый тип>): <целый тип>;

Меняет местами младший и старший байты аргумента.

X - выражение типа Integer или Word.

Это не то. Поменяй значения вручную через переменную.

[Mr_sniper]

получилось что-то типо того

type spisok=record
          group:string;
          family:string;
          bal:byte;
         end;
     arr=array[1..100] of spisok;
          
var zap:arr;
    i,j,n:byte;
    
Begin
 
write('Введите кол-во записей:');readln(n);
 
//Ввод данных
for i:=1 to n do
begin
 
write('Группа ',i,'-го студента: ');readln(zap[i].group);
write('ФИО ',i,'-го студента: ');readln(zap[i].family);
write('Бал ',i,'-го студента: ');readln(zap[i].bal);
 
end;
 
//Сортировка  
for i:=1 to n-1 do
 for j:=1 to n-1 do
  if zap[j].bal<zap[j+1].bal then swap(zap[i],zap[i+1]);
 
writeln;
 
//Вывод
for i:=1 to n do
begin 
 write(zap[i].group,'  ',zap[i].family,'  ',zap[i].bal);
 writeln;
end;
 
End.

Здесь ошибка (Integer expression expected), подскажите пожалуйста что исправить нужно

then swap(zap[i],zap[i+1]);

[Serge_Bliznykov]

не знаю, что за алгоритм сортировки Вы используете /я уже молчу о том, что Вы пытаетесь поменять местами НЕ ТЕ ЭЛЕМЕНТЫ, которые Вы сравнили!/ (я предпочитаю сортировку "пузырьком" - она же сортировка методом простых обменов).

но суть в том, что командой SWAP вы хотите поменять местами два элемента.
это можно сделать так
1) в переменный программы описать дополнительную переменную такого же типа, как и элементы массива. в данном случае типа spisok

var
  ...
  TempOne : spisok

2) вместо swap написать:

  if zap[j].bal<zap[j+1].bal then begin
    TempOne := zap[j];
    zap[j] := zap[j+1];
    zap[j+1] := TempOne;
  end;

p.s. я бы сортировку написал так:

  (* *** Сортировка *** *)

  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if zap[i].bal < zap[j].bal then begin
        TempOne := zap[i];
        zap[i] := zap[j];
        zap[j] := TempOne;
  end;

[Mr_sniper]

Спасибо огромное за помощь, всё получилось