Лабораторная работа №10

Тема: Программирование с использованием записей.

Необходимые сведения:

Режимы работы отладчика, отметка точек останова программы и их удаление (Ctrl – F8).

Пример. Составить программу для решения следующей задачи. Пусть дана ведомость абитуриентов, сдавших вступительные экзамены в Институт (приведена часть данных):

Ф.И.О. Оценки

1. Алексеев Б.Ф. 5 3 4

2. Ануфриев А.А. 4 5 5

3. Банников Ю.И. 3 5 3

Необходимо определить количество абитуриентов, сдавших все экзамены на “отлично” и их список вывести на экран.

Вариант программы

Const M = 3;

Type Abitype = Record

Fio : String;

Marks : Array[1..M] Of Byte;

End;

Var List : Abitype; K, L, I, J, B : Integer;

Begin K: =0; Readln(L);

For I:=1 To L Do

Begin

Read(List.Fio);

For J:= 1 To M Do Read(List.Marks[J]);

Readln;

End;

For I:= 1 To L Do

Begin

B:= 0;

For J:= 1 To Do

If List.Marks[J]= 5 Then B:= B+1;

If B = M Then Writeln(Fio);

End;

End.

Варианты заданий

Дан список студентов первого курса, в котором содержатся следующие данные: ФИО, номер групп, оценки по результатам зимней экзаменационной сессии (информатика, высшая математика, физика), Написать программу, которая вводит эту информацию и печатает следующие данные:

1. Количество студентов, сдавших экзамены со средним алло не ниже 4 и их список.

2. Список студентов, сдавших все экзамены на «отлично».

3. Номера групп, в которых средний балл – наибольший, и название соответствующих экзаменов.

4. Количество студентов, сдавших экзамены с оценкой не ниже 4 по информатике и список этих студентов.

5. Фамилии ( в алфавитном порядке) студентов, имеющих задолженность хотя бы по одной дисциплине.

6. «Качество» успеваемости, т.е. процент студентов ( и их список), сдавших все экзамены на «хорошо» и «отлично».

7. Название предмета, который был сдан лучше всего, и список остальных предметов в порядке убывания средних экзаменационных оценок.

8. Номера группы и средний балл в порядке убывания средней успеваемости их студентов.

Контрольные вопросы:

1. Как описываются переменные типа «запись»?

2. В каких случаях целесообразно использовать переменные типа «запись»?

3. Каково назначение оператора With?

4. В чем отличие записей от массивов?