2.5 примерыП Примеры типов :. Перечисляемый тип: type Week is ( Mon, Tue, Wed, Thu, Fri, Sat, Sun ); Целый тип: type lnt_My is integer range 1 .. 25; type Coordinate is record X: integer; Y: fixed; end record; Приватный тип: package Deck is type Elem is private; procedure Sum (X, Y : in Elem; Z : out Elem); private type Elem is integer range -10 .. 10; end Deck; Задачный тип: task type AVT is entry Dv(X: in Float); end AVT; Защищённый тип: protected type Buffer is entry Write (Z: in Elem); Фиксированный тип (тип с фиксированной запятой): type Size is delta 0.001 range 0.0.. 155.0; Ада 95. Введение в программирование 28 Абстрактный тип: type Lot_X is abstract tagged private; procedure Read (X: out Elem); private Pool: Vector; end Buffer; Тэговый тип: type Dogs is tagged record Name : Dog_Name; Weight : Dog_Weight; end record; Расширенный тип: type Xdogs is new Dogs with record Age : Dog_Age; end record;
29 Глава З. Предопределенные типы |
| Оглавление| |