ВУЗ:
Составители:
Рубрика:
169
ПРИЛОЖЕНИЕ А
Текст модуля Figures
unit Figures;
interface
uses Graph, Crt;
type
Location = Object {Местоположение}
x, y : integer;
procedure Create(InitX, InitY : integer);
function GetX : integer;
function GetY : integer;
end;
PointPtr = ^Point;
Point = Object(Location) {Точка }
Visible : boolean;
constructor Create(InitX, InitY: integer);
destructor Destroy; virtual;
procedure Show; virtual; {Показать}
procedure Hide; virtual; {Спрятать}
function IsVisible : Boolean;
procedure MoveTo(NewX, NewY: integer); {Переместить}
end;
CirclePtr = ^Circle; {Окружность}
Circle = Object(Point)
Radius : integer;
constructor Create(InitX, InitY, InitRadius : integer);
procedure Show; virtual;
procedure Hide; virtual;
end;
implementation
{Реализация методов класса Location}
ПРИЛОЖЕНИЕ А Текст модуля Figures unit Figures; interface uses Graph, Crt; type Location = Object {Местоположение} x, y : integer; procedure Create(InitX, InitY : integer); function GetX : integer; function GetY : integer; end; PointPtr = ^Point; Point = Object(Location) {Точка } Visible : boolean; constructor Create(InitX, InitY: integer); destructor Destroy; virtual; procedure Show; virtual; {Показать} procedure Hide; virtual; {Спрятать} function IsVisible : Boolean; procedure MoveTo(NewX, NewY: integer); {Переместить} end; CirclePtr = ^Circle; {Окружность} Circle = Object(Point) Radius : integer; constructor Create(InitX, InitY, InitRadius : integer); procedure Show; virtual; procedure Hide; virtual; end; implementation {Реализация методов класса Location} 169
Страницы
- « первая
- ‹ предыдущая
- …
- 168
- 169
- 170
- 171
- 172
- …
- следующая ›
- последняя »