Компонентный Паскаль/Введение в типы: различия между версиями

==Определение типа==
По большому счёту, никаких базовых типов программист уже добавить не может. Он может на основе базовых типов создавать только пользовательские (расширенные) типы. И здесь вся отвественность за создание нового типа ложится только на программиста. На основе последнего примера посмотрим как можно использовать типы в программе:
 
<source lang=""></source>
Hello8.odc
<source lang="oberon2"></source>
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>
788

правок