Ордината центра тяжести плоскости круга.(Delphi)

[Wild_klas]

Здравствуйте! Мне нужно решить замудренную (во всяком случае на мой взляд задачку в делфи с помощью процедур и функций:
Подсчитать ординату центра тяжести плоскости круга радиуса R с дыркой в
нем с радиусом r = R / 2, расположенной в нижней части круга.
Подскажите пожалуйста, как это сделать??? Заранее благодарю.

[evg_m]

ну и с чем проблемы. С физикой (не знаем какие формулы и как посчитать) или паскалем (не знаем как превратить формулы в программу)?

физика
1. вырезаем в круге еще одну дырку симметричную первой.
2. считаем центр тяжести новой фигуры. Для симметричной фигуры центр тяжести совпадает с геометрическим центром.
3. считаем общий центр масс для двух фигур (круг с двумя дырками и верхний круг).

[Z1000000]

Вот так как-то:
Красные точки - центры тяжести исходных кругов. Синяя точка общий центр тяжести.

procedure TForm1.Button1Click(Sender: TObject);
var
 CenX,CenY,CenHX,CenHY,R1,R2,ShiftDown : integer;
 CenDest : Integer;
begin
CenX := 250;CenY := 250; // Центр большого круга
R1 := 100; R2 := 50; // Радиусы кругов
ShiftDown := 40 ; // Смещение вырезанного круга вниз

Form1.Canvas.Ellipse(CenX-R1,CenY-R1,CenX+R1,CenY+R1);
CenHX := CenX; CenHY := CenY+ShiftDown; // Центр вырезанного круга
Form1.Canvas.Ellipse(CenHX-R2,CenHY-R2,CenHX+R2,CenHY+R2);

Form1.Canvas.Pen.Color := clRed;
Form1.Canvas.Ellipse(CenX-1,CenY-1,CenX+1,CenY+1);
Form1.Canvas.Ellipse(CenHX-1,CenHY-1,CenHX+1,CenHY+1);

CenDest := Round((CenY*Pi*Power(R1,2)-CenHY*Pi*Power(R2,2)) / (Pi*Power(R1,2)-Pi*Power(R2,2)));
Form1.Canvas.Pen.Color := clBlue;
Form1.Canvas.Ellipse(CenX-1,CenDest-1,CenX+1,CenDest+1);
end;

To evg_m : Спасибо за теорию.

[Wild_klas]

Сообщение от Z1000000

Вот так как-то:
Красные точки - центры тяжести исходных кругов. Синяя точка общий центр тяжести.

procedure TForm1.Button1Click(Sender: TObject);
var
 CenX,CenY,CenHX,CenHY,R1,R2,ShiftDown : integer;
 CenDest : Integer;
begin
CenX := 250;CenY := 250; // Центр большого круга
R1 := 100; R2 := 50; // Радиусы кругов
ShiftDown := 40 ; // Смещение вырезанного круга вниз

Form1.Canvas.Ellipse(CenX-R1,CenY-R1,CenX+R1,CenY+R1);
CenHX := CenX; CenHY := CenY+ShiftDown; // Центр вырезанного круга
Form1.Canvas.Ellipse(CenHX-R2,CenHY-R2,CenHX+R2,CenHY+R2);

Form1.Canvas.Pen.Color := clRed;
Form1.Canvas.Ellipse(CenX-1,CenY-1,CenX+1,CenY+1);
Form1.Canvas.Ellipse(CenHX-1,CenHY-1,CenHX+1,CenHY+1);

CenDest := Round((CenY*Pi*Power(R1,2)-CenHY*Pi*Power(R2,2)) / (Pi*Power(R1,2)-Pi*Power(R2,2)));
Form1.Canvas.Pen.Color := clBlue;
Form1.Canvas.Ellipse(CenX-1,CenDest-1,CenX+1,CenDest+1);
end;

To evg_m : Спасибо за теорию.

Спасибо конечно, но она не работает. Буду очень благодарен, если поможете мне.

[Mad_Cat]

все работает только math в uses добавьте

[Wild_klas]

Mad_Cat, я добавил, но всё равно не работает. Выдает кучу ошибок. Вот:

[p51x]

пропустили end;

[Wild_klas]

ну за end то понятно, я увидел, а вот остальное...

[Mad_Cat]

проектик свой покажите ибо у меня все работает

[Wild_klas]

Вот, смотрите, если что не так исправляйте меня, я новичок)