Примечания

1. Имена полей, составляющих запись, не должны повто­ряться.

2. Каждое поле записи может иметь любой тип (кроме файлового), в частности, оно может быть снова записью.

Доступ к полям записи можно осуществить двумя спо­собами:

С указанием имени переменной и имени поля. Напри­мер, klass[2].fam, klass[3].sb, klass[1].b4. Ввод фамилий и оценок учащихся, то есть элементов массива klass, можно записать так:

For i:=1 To 25 Do

Begin

Readln(klass[i].fam);

Readln(klass[i].b1);

Readln(klass[i].b2);

Readln(klass[i].b3);

Readln(klass[i].b4);

Readln(klass[i].b5);

End;

С использованием оператора присоединения. Имеет­ся возможность осуществлять доступ к полям записи та­ким образом, как если бы они были простыми перемен­ными. Общий вид оператора присоединения:

With <имя записи> Do <оператор>;

Внутри оператора присоединения к компонентам записи можно обращаться только с помощью имени со­ответствующего поля.

Пример 2

For i:=1 To 25 Do

With klass [i] Do

Begin

Readln(fam);

Readln (b1, b2, b3, b4, b5);

End;

Программа для решения рассматриваемой задачи мо­жет быть записана следующим образом:

Program Example_144;

Туре

pupil=Record

fam: String[15] ;

b1, b2, b3, b4, b5:2..5;

sb: Real;

End;

Var klass: Array[1..25] Of pupil;

p: pupil;

i, m: Integer;

sbmax: Real;

Begin

For i:=1 To 25 Do {ввод исходных данных}

With klass[i] Do

Begin

Writeln ('Введите фамилию и пять

оценок');

Readln(fam);

Readln(b1, b2, b3, b4, b5);

End;

For i:=1 To m Do

{вычисление среднего балла}

With klass[i] Do

sb:=(b1+b2+b3+b4+b5)/5;

For i:=1 To 25 Do {вывод данных}

With klass[i] Do

Writeln(fam:20, '-', b1:5,

b2:5,b3:5,b4:5,b5:5,sb:6:3);

sbmax:=0;

{поиск максимального среднего балла}

For i:=1 To m Do

If klass[i].sb>=sbmax Then

sbmax:=klass[i].sb;

For i:=1 To m Do {печать результатов}

If klass[i].sb=sbmax Then

With klass[i] Do Writeln(fam:20,' - ',

sb: 6:3);

Readln;

End.

Пример 3

Определить дату завтрашнего дня.