Стартовые значения устанавливаются в разделе определения констант.
Синтаксис: … =(«Имя поля1»: «значение1»; «Имя поля2»: «значение2»;).
Примеры:
Type
Tpoint=record
x,y,color:byte;
end;
const
point:Tpoint=(x:10;y:10;color:2;);
mas_point:array[1..3] of Tpoin =((x:2;y:3;color:5;), (x:12;y:6;color:10;), (x:25;y:30;color:10;));
var
i:byte;
begin
clrscr;
for i:=1 to 3 do
begin
gotoxy(mas_point[i].x,mas_point[i].y);
TextColor(mas_point[i].color);
Write(‘*’);
end;
Вложенные записи
Записи могут иметь вложенную структуру. такую которую одна запись выступает составной частью другой, находясь при этом на более низком уровне подчиненности.
Пример:
Type
Name_rec=record
First: string;
last: sting;
End;
Adres=record
Name:name_rec;
Homenum:byte;
streetName:string[20];
End;
Var
S:adres;
В этом случае запись name- вложение в запись s, находясь на более низком уровне иерархии.
Для обращения к вложенной записи указывается вся цепь имен начиная с наивысшего и до конкретного поля, в которое не обходимо обратиться. Между именами цепочки перечисления ставятся точки. символизирующие уровня вложенности.
Readln (s.first); Readln (s.homeum);
Вложенные записи можно строить и в разделе описания переменных.
Var
S:record
Name:record
First: string;
last: sting;
End;
homeNum:byte;
streetName:string[20];
end;