Алгоритмы и программы. Афанасьева Т. В - 218 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

218
function GetX: Integer;
function GetY: Integer;
private
X, Y: integer;
end;
В секции private могут находится и методы объекта.
Полное описание методов, то есть описание их реализации, должно
находится после описания объекта. Имена методов составные и скла-
дываются из имени объекта и имени метода, разделенных точкой:
procedure Location. Init (InitX, Inity: Integer);
begin
X : = InitX;
Y : = InitY;
end;
fuction Location. GetX: Integer;
begin
GetX : = X;
end;
fuction Location. GetY: Integer;
begin
GetY : = Y;
end;
После того как объект описан, в программе можно использовать его
экземпляры, то есть переменные указанного объектного типа:
var
GrMarket : Location;
Приведем реализацию объекта «окно» (для реализации интер-
фейса с помощью модуля crt). Мы можем считать, что окно задается
координатами левого верхнего угла и размерами по горизонтали и
вертикали (с учетом рамки окна), а также иметь флаг видимости (true
означает, что окно на экран выведено).
Пример 13.1.
type СWindow=object
x,y: integer; {координаты окна}
lenx,leny: integer; {размеры окна}
visible: boolean; {флаг видимости}
procedure Init (x,y,lenx,leny: integer);
procedure Show;

Страницы