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

Глава З. Предопределенные типы