Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 112 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

111
Для того, чтобы динамически создавать объекты, в модуль
Figures добавлены указатели на объекты классов "Точка" (PointPtr =
^Point
) и "Окружность" (CirclePtr = ^Circle). Создание объекта в
этом случае может включать вызов конструктора класса.
Пример создания объекта "Точка":
New (PointPtr, Create(100, 50));
Текст модуля Figures приведен в приложении.
Создаваемое изображение на плоскости будем представлять как
список, элементы которого содержат указатели на объекты (геомет-
рические фигуры), наследуемые от класса
Point. Схему списка мож-
но представить следующим образом (рисунок 7.4).
Рисунок 7.4 – Схема списка геометрических фигур
Описание элемента списка на языке
Pascal может выглядеть, на-
пример, так:
NodePtr = ^Node; {указатель на элемент списка}
Node = Record {элемент списка }
Item : PointPtr;
Next : NodePtr;
end; 
  Для того, чтобы динамически создавать объекты, в модуль
Figures добавлены указатели на объекты классов "Точка" (PointPtr =
^Point) и "Окружность" (CirclePtr = ^Circle). Создание объекта в
этом случае может включать вызов конструктора класса.
   Пример создания объекта "Точка":
  New (PointPtr, Create(100, 50));
   Текст модуля Figures приведен в приложении.
   Создаваемое изображение на плоскости будем представлять как
список, элементы которого содержат указатели на объекты (геомет-
рические фигуры), наследуемые от класса Point. Схему списка мож-
но представить следующим образом (рисунок 7.4).




             Рисунок 7.4 – Схема списка геометрических фигур


  Описание элемента списка на языке Pascal может выглядеть, на-
пример, так:
  NodePtr = ^Node; {указатель на элемент списка}
  Node    = Record {элемент списка             }
              Item : PointPtr;
              Next : NodePtr;
            end;

                                  111

Страницы