Запись - описание комбинированного типа, состоящее из нескольких полей, каждое из которых имеет свой тип. TYPE

из которых имеет свой тип.
TYPE = RECORD {Запись}

<поле1>:<тип поля1>;
<поле2>:<тип поля2>; {Список полей}
...
<полеN>:<тип поляN>
end;

Пример:
TYPE
DATA = RECORD {дата рождения =записи}
{имеем 4 поля:}
name: string; {фамилия или имя }
den,mes: byte; {день, месяц}
god: word {год}
end;

Пример: VAR a,b: DATA; {Объявление переменных }

базового типа:
b.name:=‘NIK';
b.god:=a.god-1; (на год старше)
Для доступа к

полям записи используется оператор присоединения:
WITH <переменнаяТипа"запись"> DO <оператор>;
c выполнять
Например:

WITH a DO begin
name:='MARINA';
god:=1990;
den:=23;
mes:=3
end;

точку или оператор(ы) присоединения.
Пример: определим сложную запись (вложенные записи)

TYPE

STUDENT=RECORD
name:string;
DENROGD: RECORD
den,mes:byte;
god:word
end;
end;
VAR s: STUDENT;
begin
s.name:=‘LIZA’;
s.DENROGD.god:=1991;
Или WITH s DO name:=‘LIZA’;
WITH s DO with DENROGD DO god:=1991;
Или WITH s.DENROGD DO god:=1991;
DENROGD является вложенной записью для записи STUDENT

Type
student=record

name:string[15];
denRogd: RECORD
den, mes:byte;
god:word
end;
end;
var
Z: ARRAY [1..20] OF student;
i, n: byte;
BEGIN
CLRSCR;
writeln('ВВЕДИТЕ КОЛИЧЕСТВО СТУДЕНТОВ');
READln(n); {ввод данных}
FOR i:=1 TO n DO WITH z[i] DO NAME:=‘ ';

begin
writeLN('ВВЕДИТЕ ИМЯ ',i,' СТУДЕНТА');
readln(z[i].name);
WRITELN('ВВЕДИТЕ день рождения');
readLN(z[i].denRogd.den);
WRITELN('ВВЕДИТЕ месяц рождения');
readLN(z[i].denRogd.mes);
WRITELN('ВВЕДИТЕ год рождения');
readLN(z[i].denRogd.god);
end;
writeln('СПИСОК ');

for i:=1 to n do
if z[i].denRogd.god=1992 then
begin
writeLn('ИМЯ ',i, 'СТУДЕНТА');
WRITELN(z[i].name);
WRITE(' день рождения ');
writeln(z[i].denRogd.den);
WRITE(' месяц рождения ');
writeln(z[i].denRogd.mes);
WRITE(' год рождения ');
writeln(z[i].denRogd.god);
WRITELN;
end;

записи
TYPE
=RECORD
:тип поля1;
:тип поля2;
CASE OF
: (:

с11>;
<поле с12>:<тип поля с12>;...);
<константа выбора2>: (<поле с21>:<тип поля с21>;
<поле с22>:<тип поля с22>;...);
. . .
<константа выбораk>: (<поле сk1>:<тип поля ck1>;
<поле cr2>:<тип поля ck2>;...)
END;

Тип полей с11, с12 - компоненты варианта.
<константа>: ( )

фамилия, дата рождения, номер комнаты (если

живет в общежитии) или почтовый индекс и адрес (если нет).
TYPE MESTO=(ob,dom);
STUDENT=RECORD
name:=string;
DENROGD: RECORD data:read;
god:word
END;
CASE N OF dom: (indeks:word;adres:string);
ob: (komn:word);
END;
Var z: student;
Переменную-переключатель называют также тагом (тэг, тег) - ярлыком, признаком, дискриминантом.

Пример: Cоздать запись - данные об одном из студентов - Петрове, родившемся 15.03.90, адрес; Маркса 6-2.

Name:=‘Petrov’; {z.name=‘Petrov’}
with denRogd do

begin
God:=1980; {z.denRog.god:=1990}
data:=15.03; {z.denRog.data:=15.03}
If N=OB then read(komn); {z.komn:= }
else begin
indeks:=24;
ADRES:=‘Marksa 6-2’;
End;
…
With z do write(‘i’, name); {печать из z.name}
With z.denRogd do write(‘ ’, god, ‘.’, date:5:2); {1990.15.03}
If N=OB then With z do write (‘комната’, komn);
еlse With z do write(‘индекс’ , indeks, ‘адрес’, adress);
End.

поля: если он из Омска - ничего, если из

другого города - название. .

TYPE GOR=(OBL, NO);
STUDENT=RECORD
name:=string;
DENROGD: RECORD
… … …
Case N: Mesto OF DOM: (indeks: Byte, Adres:string);
OB: (Komn:word; Case YN: Gor OF {адрес:string}
OBL: ();
NO: (Gorod:string);
End;
Var st: array [1..20] of student;

номера комнаты, если живет в общежитии, индекса и адреса, если

в Омске, а так же вывода сведений о студенте по его ИМЕНИ}

Program zap2case;
USES CRT; {подключение модуля СRT}
type {определение нового типа}
MESTO=(ob,dom);
student=record {запись}
name:string[15];
denRogd: RECORD {вложенная запись}
data:real;
god:word
end;
CASE N:mesto of
dom: (index:word; adres:string) ; ob: (komn:word)
end;

var Zz: ARRAY [1..20] OF student;
s:string; {g:word;}
i,m,j: byte;
BEGIN
CLRSCR;
writeln(‘введите количество студентов');
READln(m);
for i:=1 to m do with zz[i] do
begin
writeLN(‘введите имя ',i,’студента);
readln(name);
with denrogd do
begin
WRITELN(‘введите день и месяц рождения');
readLN(data);

begin writeln(‘введите комн.');
readln(komn);

end;
else
begin
writeln(‘введите индекс и адрес');
readln(index, adres);
end;
end;

writeln(' введите NAME для поиска ');
readln(s);
for i:=1 to m do
if s=zz[i].name then
with zz[i] do
begin
WRITELN(name);
WRITE(' Дата рождения -');
WITH denRogd DO
writeln(‘Адрес: ',data:5:2,'.',god,' ');
IF n=ob then
writeln(‘комн-',komn)
else
writeln(‘Омск-',index,' ', adres);
WRITELN;
end;
END.