Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии - Turbo Pascal
Формулировка задачи:
Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи - индекс группы, фамилия студента, оценки по пяти экзаменах, признак участия в общественной работе: 1 - активное участие 0 - неучастие.
Решение задачи: «Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии»
textual
Листинг программы
{ Создать массив записей, содержащий сведения о сдаче студентами 1 курса сессии. Структура записи - индекс группы, фамилия студента, оценки по пяти экзаменах, признак участия в общественной работе: 1 - активное участие 0 - неучастие. } const n_max=20; type stud=record indexg:integer; fio:string[128]; ekz1,ekz2,ekz3,ekz4,ekz5:integer; obch:byte; end; var n,i:integer; s:array[1..n_max] of stud; begin write('Введите количество студентов: '); readln(n); for i:=1 to n do begin with s[i] do begin write('Введите индекс группы: '); readln(indexg); write('Введите фамилию студента: '); readln(fio); write('Введите оценку за 1-й экзамен: '); readln(ekz1); write('Введите оценку за 2-й экзамен: '); readln(ekz2); write('Введите оценку за 3-й экзамен: '); readln(ekz3); write('Введите оценку за 4-й экзамен: '); readln(ekz4); write('Введите оценку за 5-й экзамен: '); readln(ekz5); write('Введите признак участия в общественной работе: '); readln(obch); end; end; readln; end.
Объяснение кода листинга программы
- Создается тип данных
stud
, который представляет запись о студенте. - Создается переменная
n
для хранения количества студентов. - Создается массив
s
типаarray[1..n_max] of stud
, который будет хранить данные о студентах. - Задается максимальный размер массива
n_max
. - Выводится сообщение для ввода количества студентов.
- В цикле for перебираются все студенты от 1 до
n
. - Для каждого студента создается переменная
i
для хранения индекса студента в массивеs
. - Внутри цикла для каждого студента выводится сообщение для ввода данных о студенте.
- Для каждого студента выводится сообщение для ввода индекса группы.
- Для каждого студента выводится сообщение для ввода фамилии студента.
- Для каждого студента выводится сообщение для ввода оценки за 1-й экзамен.
- Для каждого студента выводится сообщение для ввода оценки за 2-й экзамен.
- Для каждого студента выводится сообщение для ввода оценки за 3-й экзамен.
- Для каждого студента выводится сообщение для ввода оценки за 4-й экзамен.
- Для каждого студента выводится сообщение для ввода оценки за 5-й экзамен.
- Для каждого студента выводится сообщение для ввода признака участия в общественной работе.
- Цикл for завершается.
- Выводится сообщение для ввода данных о студенте.
- Программа завершается.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д