WITH Имя записи DO

Begin

Операторы обращения к элементам записи

End;

Для нашего примера используем этот оператор при суммировании трех оценок i-го студента:

. . .

Sum:=0;

With Spisok[i] do

Begin

For j:=1 to 3 do

Sum:=Sum+Ball[j];

. . .

End;

Рассмотрим пример использования записи внутри другой записи.

Пусть имеется структура:

Причем поле дата рождения состоит из полей: число, месяц, год. Тогда описание в программе будет иметь вид:

Type

Date=Record

Days:1..31;

Month:1..12;

Year:1900..2000;

End;

Tzap=Record

Nom:word;

FIO:string[40];

Birthday:Date;

Pol:(Man,Woman);

Nac:string[20];

End;

Var Zap:Tzap;

Для того чтобы обратиться к элементам записи дата рождения, необходимо записать:

D:=Zap. Birthday.Days;

M:= Zap. Birthday.Month;

G:= Zap. Birthday.Year;

или с использованием оператора присоединения

With Zap. Birthday do

Begin

D:=Days; M:=month; G:=Year;

End;

Типизированные константы - записи имеют вид:

Имя константы : Тип = (Список значений полей записи);

Список значений полей записи - это список из последовательностей вида: Имя поля: Константа;

Например:

1) Type

Tdate=Record

Day:1..31;

Month:1..12;

Year:1000..2000;

End;

Const Date:Tdate=(day:25;month:10;year:1999);

2) Type

Tkoord=record

Xk,Ykreal;

end;

Tmas=array[1..3] of Tkoord;

Const Maskoord:Tmas=((Xk:0.0; Yk:0.0),

Xk:1.5; Yk:2.5),

Xk:3.0; Yk:4.5));