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

UptoLike

112
Сам список фигур (графическое изображение) реализуем как объ-
ект класса "Список"(
List):
ListPtr = ^List;
List = Object { класс "Список" }
Nodes : NodePtr; { указатель на начало списка }
constructor Create; { инициализация: пустой список }
destructor Destroy; virtual; { удаление списка }
procedure Add(Item : PointPtr);
{ добавление элемента в список }
procedure Report; { просмотр спискаэто }
{ "рисование" его элементов }
end;
Понятно, что из точки и окружности трудно создать какое-то изо-
бражение. Но нет преград для того, чтобы расширить модуль
Figures
новыми классами (новыми фигурами – "Прямоугольник", "Треуголь-
ник" и др.), которые наследуются от класса
Point, и построить на эк-
ране что-нибудь интересное
.
7.3. Лабораторное задание
Сконструируйте новый класс, соответствующий геометрической
фигуре, заданной преподавателем, и реализуйте следующие методы
работы со списком геометрических фигур:
создать пустой списокCreate,
добавить в списокAdd,
просмотреть списокReport,
удалить списокDestroy.
   Сам список фигур (графическое изображение) реализуем как объ-
ект класса "Список"(List):
  ListPtr = ^List;
  List = Object                  { класс "Список"               }
    Nodes : NodePtr;             { указатель на начало списка    }
    constructor Create;          { инициализация: пустой список }
    destructor Destroy; virtual; { удаление списка      }
    procedure Add(Item : PointPtr);
                                 { добавление элемента в список }
    procedure Report;             { просмотр списка – это       }
                                 { "рисование" его элементов    }
  end;
   Понятно, что из точки и окружности трудно создать какое-то изо-
бражение. Но нет преград для того, чтобы расширить модуль Figures
новыми классами (новыми фигурами – "Прямоугольник", "Треуголь-
ник" и др.), которые наследуются от класса Point, и построить на эк-
ране что-нибудь интересное.
  7.3. Лабораторное задание
   Сконструируйте новый класс, соответствующий геометрической
фигуре, заданной преподавателем, и реализуйте следующие методы
работы со списком геометрических фигур:
   ƒ создать пустой список – Create,
   ƒ добавить в список     – Add,
   ƒ просмотреть список    – Report,
   ƒ удалить список        – Destroy.




                                112