Для поступления в вуз абитуриенты предоставляют информацию по трем экзаменам в баллах (до 100) - Turbo Pascal

Формулировка задачи:

Для поступления в вуз абитуриенты предоставляют информацию по трем экзаменам в баллах (до 100). Описать структуру с полями: ФИО, экзамен_1, экзамен_2, экзамен_3. Написать программу, выполняющую следующие действия: • Заполнение массива структуры из 6 элементов; • Вывод на экран списка поступивших студентов, если проходной балл – 156.

Решение задачи: «Для поступления в вуз абитуриенты предоставляют информацию по трем экзаменам в баллах (до 100)»

Листинг программы

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) и, если оно выполняется, выводится ФИО абитуриента.