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

UptoLike

104
yкоордината y на плоскости.
Методы:
Create задать местоположение (инициализировать координа-
ты
x, y),
GetX получить координату x,
GetY получить координату y.
Рисунок 7.2 – Иерархия объектов для построения изображения
Описание класса "Местоположение " на языке Pascal следующее:
type
Location = Object {Класс "Местоположение"}
x, y: integer;
procedure Create(InitX, InitY : integer);
function GetX : integer;
function GetY : integer;
end;
Реализация методов класса "Местоположение" очень проста. От-
личие от рассмотренных в предыдущих разделах процедур и функ-
  ƒ y – координата y на плоскости.
  Методы:
  ƒ Create – задать местоположение (инициализировать координа-
ты x, y),
   ƒ GetX – получить координату x,
   ƒ GetY – получить координату y.




        Рисунок 7.2 – Иерархия объектов для построения изображения

  Описание класса "Местоположение " на языке Pascal следующее:
  type
    Location = Object       {Класс "Местоположение"}
      x, y: integer;
      procedure Create(InitX, InitY : integer);
      function GetX : integer;
      function GetY : integer;
    end;

   Реализация методов класса "Местоположение" очень проста. От-
личие от рассмотренных в предыдущих разделах процедур и функ-


                                   104