Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Задача 7. 1. Условие: Составить схему алгоритма и написать ВР-программу обработки массива записей (вид обработки см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
|