Запись в Паскаль

Запись в Паскаль также называют структурой, которая объединяет различные типы под одним именем.  Отдельные данные называются полями записи.


Общий тип:

[code]
Type

имя_типа = record

имя_поля1 : тип;

имя_поля2 : тип;

……

имя_поляN : тип;

End;
[/code]

Доступ к отдельным полям записи в Паскаль осуществляется путем указания на эту переменную типа записи и точки – имя поля.
Например:

[code]
Type
Men = record
Name : String[15];
SurrName : String[25];
Age : Integer;
End;

Var Ivanov : Men;

Begin

with Ivanov do
begin
Name :=’Ivan’;
SurrName :=’Ivanov’;
Age := 23;
end;

with Ivanov do WriteLn(‘Имя: ‘, Name, ‘. Фамилия: ‘,
SurrName, ‘. Вазраст: ‘, Age, ‘.’);

End.
[/code]

Иногда в записях используется вариантная часть, которая использует конструкцию case.
Общий вид:

[code]
Type
имя_типа = record
имя_поля1 : тип;
имя_поля2 : тип;
……
имя_поляN : тип;

case тег: порядковый_тип of
значение_1 : вариант1;
….
значение_N : вариантN;
End;
[/code]

Пример на закрепление темы записи в Паскаль:

[code]
Type
Men = record
Name : String[15];
SurrName : String[25];
Age : Integer;
End;

Var Ivanov : Men;
Var Petrov : Men;
Var Sidorov: Men;

Begin
with Ivanov do
begin
Name :=’Ivan’;
SurrName :=’Ivanov’;
Age := 23;
end;

with Petrov do
begin
Name :=’Petr’;
SurrName :=’Petrov’;
Age := 25;
end;

with Sidorov do
begin
Name :=’Senia’;
SurrName :=’Sidorov’;
Age := 31;
end;

with Ivanov do WriteLn(‘Имя: ‘, Name, ‘. Фамилия: ‘,
SurrName, ‘. Вазраст: ‘, Age, ‘.’);
with Petrov do WriteLn(‘Имя: ‘, Name, ‘. Фамилия: ‘,
SurrName, ‘. Вазраст: ‘, Age, ‘.’);
with Sidorov do WriteLn(‘Имя: ‘, Name, ‘. Фамилия: ‘,
SurrName, ‘. Вазраст: ‘, Age, ‘.’);
End.
[/code]

1 Star2 Stars3 Stars4 Stars5 Stars (нет рейтинга)
Вы можете пропустить чтение записи и оставить комментарий. Размещение ссылок запрещено.
Оставить комментарий