Для поступления в вуз абитуриенты предоставляют информацию по трем экзаменам в баллах (до 100) - Turbo Pascal
Формулировка задачи:
Для поступления в вуз абитуриенты предоставляют информацию по трем экзаменам в баллах (до 100). Описать структуру с полями: ФИО, экзамен_1, экзамен_2, экзамен_3. Написать программу, выполняющую следующие действия:
• Заполнение массива структуры из 6 элементов;
• Вывод на экран списка поступивших студентов, если проходной балл – 156.
Решение задачи: «Для поступления в вуз абитуриенты предоставляют информацию по трем экзаменам в баллах (до 100)»
textual
Листинг программы
- const
- NMAX = 6;
- MINBORDER = 156;
- type
- TAbitur = record
- fio: String;
- egzam1, egzam2, egzam3: 0..100;
- end;
- var
- abiturs: Array[1..NMAX] Of TAbitur;
- i: 1..NMAX;
- begin
- for i := 1 to NMAX do
- with abiturs[i] do
- begin
- Write('ФИО: '); ReadLn(fio);
- Write('Экзамен 1: '); ReadLn(egzam1);
- Write('Экзамен 2: '); ReadLn(egzam2);
- Write('Экзамен 3: '); ReadLn(egzam3);
- end;
- WriteLn('Список поступивших:');
- for i := 1 to NMAX do
- with abiturs[i] do
- if (egzam1 + egzam2 + egzam3 >= MINBORDER)
- then
- WriteLn(fio);
- end.
Объяснение кода листинга программы
- В начале объявляются константы NMAX и MINBORDER, которые представляют максимальное количество абитуриентов и минимальный порог баллов для поступления соответственно.
- Затем объявляется тип TAbitur, который представляет информацию об абитуриенте, включая его ФИО и баллы по трем экзаменам.
- После этого объявляется переменная abiturs типа Array[1..NMAX] Of TAbitur, которая будет хранить информацию об абитуриентах.
- Далее, в цикле for i := 1 до NMAX do, происходит чтение информации об абитуриентах из файла. Для каждого абитуриента выполняется:
- Вывод сообщения
ФИО:
для чтения ФИО абитуриента. - Вывод сообщения
Экзамен 1:
для чтения результата первого экзамена. - Вывод сообщения
Экзамен 2:
для чтения результата второго экзамена. - Вывод сообщения
Экзамен 3:
для чтения результата третьего экзамена. - Если сумма баллов по всем экзаменам больше или равна минимальному порогу, то выводится ФИО абитуриента.
- Вывод сообщения
- По окончании чтения информации выводится сообщение
Список поступивших:
. - В следующем цикле for i := 1 до NMAX do происходит проверка условия (egzam1 + egzam2 + egzam3 >= MINBORDER) и, если оно выполняется, выводится ФИО абитуриента.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д