Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 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

 

? (GR(i).OTM(1)+GR(i).OTM(2)+ +(GR(i).OTM(3))=14
Ввод количества пропусков занятий
Объявление переменных
ST – запись GR – массив записей i – индекс массива записей j – индекс массива оценок ind – индикатор наличия
Ввод оценки
Ввод фамилии
Ввод года рождения

Date: 2016-01-20; view: 362; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.006 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию