Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки - Pascal
Формулировка задачи:
: Составить список, содержащий сведения об n студентах. Для каждого студента должно быть указано:
фамилия;
ИНН;
дата рождения;
год поступления в университет;
курс;
группа;
оценки текущей сессии по трем предметам.
Информацию о каждом студенте оформить в виде записи. Совокупность записей объединить в массив. Составить программу, которая обеспечивает ввод исходных данных, обработку и вывод на экран информации в соответствии с вариантом задания. Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки.
Надо само условие в конце
Const N=4; Type student = Record fam:String[15]; inn:string[10]; data_r:string[8]; god_p:integer; kurs:1..5; gruppa:string[8]; b1,b2,b3:2..5; End; Var spisok: Array [1..N] Of student; i: Integer; Begin For i:=1 To N Do With spisok[i] Do Begin Writeln('Введите фамилию'); Readln(fam); Writeln('Введите ИНН'); Readln(inn); Writeln('Введите дату рождения(DDMMGGGG)'); Readln(data_r); Writeln('Введите год поступления'); Readln(god_p); Writeln('Введите курс'); Readln(kurs); Writeln('Введите группу'); Readln(gruppa); Writeln('Введите три оценки'); Readln(b1,b2,b3); End;
Решение задачи: «Вывести на экран анкетные данные студентов, получивших за всю сессию все оценки»
textual
Листинг программы
if (b1 = 5) and (b2 = 5) and (b3 = 5) then
Объяснение кода листинга программы
- Условный оператор
if
- Переменная
b1
со значением5
- Переменная
b2
со значением5
- Переменная
b3
со значением5
- Логическое
И
(and) - оператор, который проверяет, равны ли значениеb1
,b2
, иb3
5 Таким образом, код проверяет условие, что все три переменныеb1
,b2
иb3
содержат значение5
. Если это условие истинно, то выполняется определенное действие в блоке кода, следующем за операторомif
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д