Построение класса

[Ardentis]

Помогите пожалуйста с заданием: Разработать приложение, позволяющее определять, принадлежит ли точка с координатами (X,Y) кругу или кольцу.
Постройте класс “кольцо” как потомок класса “круг”. Все данные для создания объектов задаются в программе, в которой выводятся характеристики объектов, их размеры и сообщение “Точка принадлежит кругу (кольцу)” или “Точка не принадлежит кругу (кольцу)”.
Окно приложения должно включать компоненты для ввода данных и вывода результата, командные кнопки запуска и закрытия приложения.

С чего вообще начинать и какие поля у этих классов должны быть?

[whatever]

Навскидку:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  Tdot=class
    x,y:real;
    constructor create(x1,y1:real);
  end;

  Tround=class//центр - начало координат. При желании можно ввести еще два поля с координатами центра и переделать формулы в CheckDot
    R:real;//круг описываем при помощи радиуса
    constructor create(R1:real);
    function CheckDot(D:Tdot):boolean;
  end;

  Tring=class(Tround)
    R2:real;//кольцо - двумя радиусами, внутренним и внешним
    constructor create(R1,R_2:real);
    function CheckDot(D:Tdot):boolean;
  end;

constructor Tdot.create(x1: Real; y1: Real);
begin
  x:=x1;
  y:=y1;
end;

constructor Tround.create(R1: Real);
begin
  r:=r1;
end;

constructor Tring.create(R1: Real; R_2: Real);
begin
  if r1<r_2 then
    begin
      R:=r1;
      R2:=r_2;
    end
  else
    begin
      R:=r_2;
      R2:=r1;
    end
end;

function Tround.CheckDot(D:Tdot):boolean;
begin
  if sqr(d.x)+sqr(d.y)=sqr(R) then
    result:=true
  else
    result:=false;
end;

Function Tring.CheckDot(D:Tdot):boolean;
var
  tmp:real;
begin
  tmp:=sqr(d.x)+sqr(d.y);
  if (tmp<=sqr(R2))and(tmp>=sqr(R)) then
    result:=true
  else
    result:=false;
end;



var
  dot:Tdot;
  round:Tround;
  ring:Tring;
begin
  dot:=Tdot.create(5,0);
  round:=Tround.create(5);
  ring:=Tring.create(3,8);
  writeln(round.CheckDot(dot));
  writeln(ring.CheckDot(dot));
  dot.Free;
  round.Free;
  ring.Free;
  readln
end.

С кольцами работать будет достаточно успешно, с кругами могут быть ошибки из-за округлений. Возможно следует ввести погрешность.

Дерзай, идею я тебе подкинул.

На всякий случай:

Как я написал в комментариях, в моем примере x0=y0=0. Но можно и переделать