1. Изучить пример создания иерархии объектных типов в примере (graphobj.pas, progr.pas).
2. В пользовательском модуле graphobj.pas описаны объектные типы с их свойствами и методами: абстрактный класс (TGraphObj), точка (TPoint), окружность (TCircle), линия (TLine), прямоугольник (TRectangle). Программа sky.pas использует только один объект из пользовательского модуля graphobj.pas (точку) для моделирования эффекта «полет сквозь вселенную». Необходимо выполнить:
1. Дополнить объект TLine методами, возвращающими значения координат конца линии (не смещения относительно начала).
2. Дополнить объект TRectangle методами, возвращающими значения координат «правого нижнего» угла (не смещения относительно начала).
3. Реализовать объект квадрат (TSquare). Породить от абстрактного класса. Добавить поле стороны квадрата и метод возвращающий сторону квадрата. Переопределить методы инициализаци (Init) и рисования (Draw - виртуальный).
4. Реализовать объект дуга (TArch). Породить от окружности (TCircle). Добавить поля угла начала и конца дуги и методы их возвращающие. Переопределить методы инициализаци (Init) и рисования (Draw - виртуальный).
5. Реализовать объект (TSector). Породить от дуги (TArch). Не дополняется полями и методами. Переопределить метод рисования (Draw - виртуальный)
2. В пользовательском модуле graphobj.pas описаны объектные типы с их свойствами и методами: абстрактный класс (TGraphObj), точка (TPoint), окружность (TCircle), линия (TLine), прямоугольник (TRectangle). Программа sky.pas использует только один объект из пользовательского модуля graphobj.pas (точку) для моделирования эффекта «полет сквозь вселенную». Необходимо выполнить:
1. Дополнить объект TLine методами, возвращающими значения координат конца линии (не смещения относительно начала).
2. Дополнить объект TRectangle методами, возвращающими значения координат «правого нижнего» угла (не смещения относительно начала).
3. Реализовать объект квадрат (TSquare). Породить от абстрактного класса. Добавить поле стороны квадрата и метод возвращающий сторону квадрата. Переопределить методы инициализаци (Init) и рисования (Draw - виртуальный).
4. Реализовать объект дуга (TArch). Породить от окружности (TCircle). Добавить поля угла начала и конца дуги и методы их возвращающие. Переопределить методы инициализаци (Init) и рисования (Draw - виртуальный).
5. Реализовать объект (TSector). Породить от дуги (TArch). Не дополняется полями и методами. Переопределить метод рисования (Draw - виртуальный)
Комментариев нет:
Отправить комментарий