ВУЗ:
Составители:
Рубрика:
72
' читается следующая запись из основного файла базы данных
' вычисляется средний балл и созданная запись о среднем
' балле выводится во вспомогательный файл
For i = 1 To N
R.ReadFromFile(f1, i)
S.Sb = 0
For j = 1 To R.Kol
S.Sb = S.Sb + R.M(j - 1)
Next j
S.Sb = S.Sb / R.Kol
S.Kurs = R.Kurs
S.Group = R.Group
S.FIO = R.FIO
S.writeToFile(F3, i)
Next i
' вспомогательный файл закрывается
F3.Close()
End Sub
Вычисление количества студентов и среднего балла для каждой учебной
группы реализовано в процедуре обработки события выбора команды меню «От-
четы Æ Количество и средний балл».
В файле исходных данных содержатся только оценки, поэтому в этой про-
цедуре, сначала формируется вспомогательный файл с данными о студентах
(курс, группа, ФИО, средний балл
). Затем вспомогательный файл упорядочивает-
ся по курсу и группе. После этого вычисляется количество записей в группе с
одинаковыми значениями курса и группы, а также средний балл в этой же группе.
Алгоритм вычислений похож на алгоритм, используемый для вывода спи-
сков по группам. Во внешнем цикле перебираются курсы, во вложенном в
него
цикле перебираются номера групп, и в следующем по уровню вложенности цикле
(для одинаковых значений курса и группы во всех записях) увеличиваются значе-
ния счетчика для количества студентов и суммы для накопления средних баллов.
Значения счетчика и суммы обнуляются перед входом во внутренний цикл, после
выхода из которого выводится количество
студентов в группе и вычисляется и
Страницы
- « первая
- ‹ предыдущая
- …
- 70
- 71
- 72
- 73
- 74
- …
- следующая ›
- последняя »
