[Светка Іванюк]

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

[@Rafa3L]

И что не получается?

Код:

type
    rejtung=record
      prizv:string[10] ;
      spec: string[10] ;
      grupa: real;
      predmet: string[10];
      b1: Real;
      b2: Real;
      end;

Зачем в названии группы тип риал? Типа может буть группа 24,214333333?
а не мало ли длина строки 10? "математический" уже не влезет.

[angvelem]

Сообщение от Светка Іванюк

... упорядочив записи по суммарному баллу в порядке убывания

Изучаем методы сортировки. Как частность - TList, TStringList.

[Светка Іванюк]

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

[angvelem]

Перепиши всё на русский, иначе я там ничего не понимаю.

[Светка Іванюк]

там организуется:
1. добавление записей в файл
2.Возможность просмотра записей в файле
3.Возможность поиска информации о студентах по фамилии
4.вывод фамилий, названий групп и суммарного балла (1-ий модуль + второй модуль) по предмету В, упорядочив записи балу в порядке убывания
вот 4 условие(btn5click) работает со странным выводом первого элемента, помогите исправить эту ошибку ..

[Светка Іванюк]

--------------------------

[angvelem]

Сегодня уже поздно (или рано ) - всё завтра.

[Светка Іванюк]

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

Сегодня уже поздно (или рано ) - всё завтра.

дякую/спасибо

[angvelem]

Весьма черновой набросок, только в качестве показа способа сортировки. Дальше думай сама.
P.S. Файл "Рейтинг.dat" записан с ошибкой.

[MiraLaklamon]

Сообщение от Светка Іванюк

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

Ошибка у тебя в этом месте:

Код:

    while not (Eof(f)) do
    begin
      read(f, a);
      if (a.predmet = c) then
      begin
        n := n + 1;
        x[i] := a.b1 + a.b2;
        g[i] := a.grupa;
        p[i] := a.prizv;
      end;
      i := i + 1;
    end;

Смотри. У тебя переменная i увеличивается всякий раз при чтении очередной записи, а должна увеличиваться только если название предмета в записи совпадает с искомым (так как переменная i у тебя отвечает за заполнение массивов с информацией только по искомому предмету, а не по всем).
Вот исправленный вариант:

Код:

    while not (Eof(f)) do
    begin
      read(f, a);
      if (a.predmet = c) then
      begin
        n := n + 1;
        x[i] := a.b1 + a.b2;
        g[i] := a.grupa;
        p[i] := a.prizv;
        i := i + 1;
      end;
    end;

[Светка Іванюк]

дякую)))