|
#1
|
||||
|
||||
помогите
вывод на экран фамилий, имен и суммарного балла по предмету В, упорядочив записи по суммарному баллу в порядке убывания
|
#2
|
||||
|
||||
И что не получается?
Код:
type rejtung=record prizv:string[10] ; spec: string[10] ; grupa: real; predmet: string[10]; b1: Real; b2: Real; end; а не мало ли длина строки 10? "математический" уже не влезет. Помогаю платно. Помогаю иногда бесплатно. Последний раз редактировалось @Rafa3L, 14.06.2012 в 00:21. |
Этот пользователь сказал Спасибо @Rafa3L за это полезное сообщение: | ||
Светка Іванюк (14.06.2012)
|
#3
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Светка Іванюк (14.06.2012)
|
#4
|
||||
|
||||
эти вещи я могу изменить, при нажатой кнопки, которая вычисляет первый элемент выводит странно, прошу посмотрите, если вам не трудно.
|
#5
|
||||
|
||||
Перепиши всё на русский, иначе я там ничего не понимаю.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#6
|
||||
|
||||
там организуется:
1. добавление записей в файл 2.Возможность просмотра записей в файле 3.Возможность поиска информации о студентах по фамилии 4.вывод фамилий, названий групп и суммарного балла (1-ий модуль + второй модуль) по предмету В, упорядочив записи балу в порядке убывания вот 4 условие(btn5click) работает со странным выводом первого элемента, помогите исправить эту ошибку .. |
#7
|
||||
|
||||
--------------------------
|
#8
|
||||
|
||||
Сегодня уже поздно (или рано ) - всё завтра.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#9
|
||||
|
||||
Цитата:
|
#10
|
||||
|
||||
Весьма черновой набросок, только в качестве показа способа сортировки. Дальше думай сама.
P.S. Файл "Рейтинг.dat" записан с ошибкой. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. Последний раз редактировалось angvelem, 14.06.2012 в 03:25. |
#11
|
|||
|
|||
Цитата:
Код:
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; Вот исправленный вариант: Код:
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; |
Этот пользователь сказал Спасибо MiraLaklamon за это полезное сообщение: | ||
Светка Іванюк (15.06.2012)
|
#12
|
||||
|
||||
дякую)))
|