Окружность Опции

[Cheburashka]

Как в Delphi нарисовать окружность на канве???
Обычным уравнением x^2+y^2=R^2, ничего не получается.

[volvo]

Сергей Меркурьев
Знаешь, что такое полярная система координат? Если принять за центр этой системы твою точку центра окружности, то
ρ(φ) = r, при 0 <= φ < 2π

Что тебе это дает? Все просто:

phi := 0;
while phi < 2 * pi do
begin
  X := center_x + trunc(r * cos(phi));
  Y := center_y - trunc(r * sin(phi));

  // рисуешь на канве точку с координатами X, Y

  phi := phi + delta_phi; { <--- приращение угла подберешь сам }
end;

Вот и все сложности. И никаких проблем с разными четвертями и вычислением корня из отрицательного числа...