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

   x := NewX;             {Установить новые координаты точки: }
   y := NewY;               { NewX, NewY                    }
   Show;                   {Показать точку                  }
  end;
   Для того, чтобы создать и показать точку, достаточно объявить
объект класса "Точка" и вызвать соответствующие его методы, на-
пример, так:
  var
    XPoint: Point; { XPoint – объект класса "Точка" (Point) }
  begin
    XPoint.Create(150, 80); { 150, 80 – координаты точки        }
    XPoint.Show; {Показать точку                                }
    XPoint.MoveTo(200, 100);
                       {Переместить точку в координаты 200, 100 }
    XPoint.Hide; {Спрятать точку                                }
  end.
   В качестве фигуры выберем окружность – геометрическое место
точек, равноудаленных от центра. Действительно, трудно придумать
другой пример фигуры, в котором бы иерархия классов (фигура -
>точка -> место) проявлялась так ясно.
   Класс "Окружность" (Circle) наследуется от класса "Точка". Для
работы с окружностью нам необходимо добавить только свойство
"Радиус" (Radius).
   Описание класса "Окружность" следующее:
  type
    Circle = Object(Point)     {наследование от класса Point        }
       Radius : integer;           {свойство "Радиус" (Radius)     }
       procedure Create(InitX, InitY, InitRadius :integer);
                              { InitX, InitY – это координаты      }
                              { центра окружности                  }
       procedure Show;        {показать окружность                 }
       procedure Hide; {спрятать – сделать окружность невидимой}
       procedure MoveTo(NewX, NewY: integer);


                               107