Задача 7

1. Условие: Составить схему алгоритма и написать ВР-программу обработки массива записей (вид обработки см. в табл. П. 3), каждая из которых содержит информацию об одном студенте. Рас­положение информации в каждой записи следующее:

– фамилия студента;

– год рождения;

– оценка сдачи 1-го экзамена;

– оценка сдачи 2-го экзамена;

– оценка сдачи 3-го экзамена;

– количество часов пропущенных занятий.

Результат вывести на экран.

Пример: вид обработки заключается в определении списка студентов, получивших в сумме по трем экзаменам 14 баллов.

2. Текст программы:

PROGRAM z7;

TYPE st=RECORD (* запись*)

fam:STRING; (* фамилия *)

godr:INTEGER; (* год рождения *)

otm:ARRAY[1..3] OF INTEGER; (* массив отметок *)

prop:INTEGER; (* кол-во пропусков *)

END;

VAR gr:ARRAY[1..5] OF st; (* массив записей *)

i,j,ind: INTEGER; (* 2 индекса циклов,индикатор *)

BEGIN

WRITELN (‘Введите информацию о студентах’);

FOR i:=1 TO 5 DO

BEGIN

READ (gr[i].fam);

READ (gr[i].godr);

FOR j:=1 TO 3 DO READ (gr[i].otm[j]);

READLN (gr[i].prop);

END;

ind:=0;

FOR i:=1 TO 5 DO

IF (gr[i].otm[1]+gr[i].otm[2]+gr[i].otm[3])=14 THEN

BEGIN

IF md=0 THEN

BEGIN

WRITELN (‘Список студентов, получивших’);

WRITELN (‘14 баллов в сессию’);

END;

WRITELN (gr[i].fam);

ind:=1;

END;

IF ind=0 THEN

WRITELN (‘Студентов, получивших 14 баллов в сессию нет’);

END.

3. Схема алгоритма задачи 7

? (GR(i).OTM(1)+GR(i).OTM(2)+ +(GR(i).OTM(3))=14

Ввод количества пропусков занятий

Объявление переменных

ST – запись GR – массив записей i – индекс массива записей j – индекс массива оценок ind – индикатор наличия

Ввод оценки

Ввод фамилии

Ввод года рождения