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

  function Point.IsVisible : boolean;
  begin
    IsVisible := Visible;
  end;
  procedure Point.MoveTo(NewX, NewY : integer);
  begin
    Hide;
    x := NewX;
    x := NewY;
    Show;
  end;

  {Реализация методов класса Circle}
  constructor Circle.Create(InitX, InitY, InitRadius : integer);
  begin
     Point.Create(InitX, InitY);
     Radius := InitRadius;
  end;
  procedure Circle.Show;
  begin
     Visible := true;
     Graph.Circle(x, y, Radius);
  end;
  procedure Circle.Hide;
  var
   TmpColor : integer;
  begin
     TmpColor:= Graph.GetColor;
     Graph.SetColor(GetBkColor);
     Visible := false;
     Graph.Circle(x, y, Radius);
     Graph.SetColor(TmpColor);
  end;
end.


                               171