Завдання 1: Скласти список учбової групи, яка включає 25 чоловік. Для кожного студента вказати дату народження, рік вступу в коледж, курс, відмітки за семестр. Інформацію оформити у вигляду масиву записів. Скласти програму яка забезпечує введення-виведення інформації про студентів, а також виконання завдання згідно вашого варіанту (див. Таблицю 7.1) Номер варіанту співпадає з вашим номером у журналі.
Завдання 2 Скласти програму згідно вашого варіанту (див. Таблицю 7.1) Номер варіанту співпадає з вашим номером у журналі.
ПРИКЛАД ВИКОНАННЯ ЗАВДАННЯ:
Приклад №1: Скласти програму, яка виводить інформацію о п’яти студентах: прізвище, рік народження, рік вступу у коледж, відмітки останньої сесії. Результатом роботи програми є список відмінників.
Program primer;
Type student=record
fio: string;
Year1: 1975..1995;
Year2: 1998..2010;
grade: record
English, History, Math: 2..5;
End;
End;
Var s: array [1..25] of student;
S1: student; I,J: integer;
Begin
{Введення даних}
for i:=1 to 5 do
Begin
Write(‘è’);
Writeln(‘Введіть ПІБ студента’);
Readln (S[i].fio);
Writeln(’Введіть рік народження та рік вступу’);
Readln (s[i].year1, s[i].year2);
End;
{Пошук відмінників з використанням оператору with}
Writeln (‘Список відмінників’);
For i:=1 to 5 do
with s[i], s[i]. grade
do
if (english=5) and (history=5) and (math=5) then
writeln (fio);
end.
Протокол роботи програми:
èВаранов 1980 1995 3 4 3
èКоротков 1981 1996 5 5 5
èСмирнов 1980 1995 4 5 4
èРоманов 1981 1996 5 5 5
Список відмінників
Коротков
Романов
Приклад № 2Скласти структуру яка містить інформацію о кожному студенті групи. ( ПІБ, рік народження , адрес (індекс, місто, район, село)). Вивести на екран дані про студентів молодше 20 років.
Program Zadan2;
type std=record
FIO: record
Famile:string[20];
Name:string[10];
Othestvo:string[15];
end;(* конец записи FIO *)
Year:1960..2005;
Adres: record
index:longint;
Gorod:string[15];
Rajon:string[20];
Selo:string[18];
end;(* конец записи Adres *)
end; (* конец записи std *)
Var
Student:array [1..25] of std;
N,GOD,i:integer;
Begin
writeln('Введите количество студентов в группе (не более 25)');
readln(N);
for i:=1 to N do
with Student[i],FIO,Adres do
begin
writeln('Введите фамилию ',i,'-го студента (не более 20 букв)');
readln(Famile);
writeln('Введите имя ',i,'-го студента (не более 10 символов)');
readln(Name);
writeln('Введите отчество ',i,'-го студента (не более 15 букв)');
readln(Othestvo);
writeln('Введите год рождения ',i,'-го студента ');
readln(Year);
writeln('Введите адрес жительства');
write('Введите индекс');
readln(index);
write('Введите город ( не более 15 букв):');
readln(Gorod);
write('Введите район ( не более 20 букв):');
readln(rajon);
write('Введите село ( не более 18 букв):');
readln(Selo);
end;
write('Введите текущий год:');
readln(GOD);
writeln('В гр. занимаются студенты моложе 20 лет:');
for i:=1 to N do
with student[i],FIO,Adres do
if GOD -student[i].Year<=20 then
begin
writeln(' ':5,Famile,' ',Name,' ',othestvo);
writeln('Год рождения :',Year);
writeln(' ':6,'Адрес :');
writeln(' ':6,'Индекс :',Index);
writeln(' ':6,'город - ',Gorod);
writeln(' ':6,'район - ',rajon);
writeln(' ':6,'село - ',selo);
end;
End. (* конец программы *)
