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

Узнай цену своей работы

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

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

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

textual
Листинг программы
  1. const
  2.     NMAX = 6;
  3.     MINBORDER = 156;
  4. type
  5.     TAbitur = record
  6.         fio: String;
  7.         egzam1, egzam2, egzam3: 0..100;
  8.     end;
  9. var
  10.     abiturs: Array[1..NMAX] Of TAbitur;
  11.     i: 1..NMAX;
  12. begin
  13.     for i := 1 to NMAX do
  14.         with abiturs[i] do
  15.         begin
  16.             Write('ФИО: '); ReadLn(fio);
  17.             Write('Экзамен 1: '); ReadLn(egzam1);
  18.             Write('Экзамен 2: '); ReadLn(egzam2);
  19.             Write('Экзамен 3: '); ReadLn(egzam3);
  20.         end;
  21.     WriteLn('Список поступивших:');
  22.     for i := 1 to NMAX do
  23.         with abiturs[i] do
  24.             if (egzam1 + egzam2 + egzam3 >= MINBORDER)
  25.             then
  26.                 WriteLn(fio);
  27. end.

Объяснение кода листинга программы

  1. В начале объявляются константы NMAX и MINBORDER, которые представляют максимальное количество абитуриентов и минимальный порог баллов для поступления соответственно.
  2. Затем объявляется тип TAbitur, который представляет информацию об абитуриенте, включая его ФИО и баллы по трем экзаменам.
  3. После этого объявляется переменная abiturs типа Array[1..NMAX] Of TAbitur, которая будет хранить информацию об абитуриентах.
  4. Далее, в цикле for i := 1 до NMAX do, происходит чтение информации об абитуриентах из файла. Для каждого абитуриента выполняется:
    • Вывод сообщения ФИО: для чтения ФИО абитуриента.
    • Вывод сообщения Экзамен 1: для чтения результата первого экзамена.
    • Вывод сообщения Экзамен 2: для чтения результата второго экзамена.
    • Вывод сообщения Экзамен 3: для чтения результата третьего экзамена.
    • Если сумма баллов по всем экзаменам больше или равна минимальному порогу, то выводится ФИО абитуриента.
  5. По окончании чтения информации выводится сообщение Список поступивших:.
  6. В следующем цикле for i := 1 до NMAX do происходит проверка условия (egzam1 + egzam2 + egzam3 >= MINBORDER) и, если оно выполняется, выводится ФИО абитуриента.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.714 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы