алгоритм построения окружностей

[Eugen111]

Построить окружность с центром в точке (20; 25) и радиусом 10.

[Sciv]

for x:=10 to 30 do begin
  y1:=25+SQRT(R*R-x*x);
  y2:=25-SQRT(R*R-x*x);
  {Дальше рисуем точки с координатами (x;y1) и (x;y2)}
end

[Vago]

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

for x:=10 to 30 do begin
  y1:=25+SQRT(R*R-x*x);
  y2:=25-SQRT(R*R-x*x);
  {Дальше рисуем точки с координатами (x;y1) и (x;y2)}
end

x0 из x забыли вычесть.

[DiemonStar]

не забываем про классику:
http://ru.wikipedia.org/wiki/%D0%90%...8D%D0%BC%D0%B0