Основы программирования на языке Turbo Pascal. Беляева И.В. - 192 стр.

UptoLike

Составители: 

192
Расшифруем название типа TPoint2D:
T – общепринятый префикс (приставка) имени типа в Turbo Pascal (T –
сокращение от Type).
Point – точка.
2D – общепринятая в информатике запись двухмерного пространства
(2 direction).
Этот пример показывает, что имя типа записи должно быть
смысловым. Имя должно говорить само за себя.
Создадим еще один тип записи, на этот раз в записи будем хранить
координаты точки на экране в графическом режиме.
Type
TPoint = record
X,Y:Integer; {координаты точки}
End;
В типе TPoint поля X и Y целого типа, потому что координаты точки
на экранеэто целые числа.
Используя тип записи TPoint, определим записи, хранящие
информацию о примитивных геометрических фигурах:
Type
TLine = record {Линия}
P1,p2:TPoint; {координаты точек начала и конца линии}
Color: Byte; {цвет линии}
End;
TCircle = record {Окружность}
Center:TPoint; {координаты центра окружности}
R:Integer; {радиус окружности}
Color: Byte; {цвет линии}
End;
Объявление и использование переменных типа записи
Как и переменные любых других типов, переменные типа запись
объявляются в разделе Var.