Компонентный Паскаль/Введение в типы: различия между версиями
Содержимое удалено Содержимое добавлено
Fantom78 (обсуждение | вклад) |
Fantom78 (обсуждение | вклад) |
||
Строка 19:
==Определение типа==
По большому счёту, никаких базовых типов программист уже добавить не может. Он может на основе базовых типов создавать только пользовательские (расширенные) типы. И здесь вся отвественность за создание нового типа ложится только на программиста. На основе последнего примера посмотрим как можно использовать типы в программе:
<source lang=""></source>▼
Hello8.odc
MODULE TestHello08;
(* Этот пример показывает как объявлять
типы и их использовать *)
IMPORT Log, Math;
TYPE
TPoint = RECORD
coord_x, coord_y: INTEGER;
enabled: BOOLEAN;
color: ARRAY 5 OF INTEGER
END;
VAR
r: TPoint;
PROCEDURE Start*;
VAR
i: INTEGER;
BEGIN
r.coord_x := 5;
r.coord_y := 4;
Log.Int(r.coord_x); Log.String(', ');
Log.Int(r.coord_y); Log.Ln;
r.color[0] := 4;
r.color[4] := - 10;
FOR i := 0 TO 4 DO
Log.Int(r.color[i]); Log.String(', ')
END;
Log.Ln
END Start;
BEGIN
END TestHello08.
</source>
| |||