Математики помогите. Нужна функция графика полуокружности.

x = R * cos(a)
y = R * sin(a),
где a изменяется от 0 до pi - в первой и второй четверти;
a = -pi/2 ...pi/2 - в первой и четвёртой
a = pi/2 ...3*pi/2 - во второй и третьей
a = pi ...2*pi - в третьей и четвёртой

Ну, и т. д. Половина окружности - это угол pi.

uses
    GraphABC;
var
    x0, y0, x, y, xp, yp, R: integer;
begin
    x0 := WindowWidth div 2;
    y0 := WindowHeight div 2;
    R := 100;
    xp := x0 - R;
    yp := y0;
    for x := x0 - R + 1 to x0 + R do
    begin
        y := Round(y0 - Sqrt(Sqr(R) - Sqr(x - x0)));
        Line(xp, yp, x, y);
        xp := x;
        yp := y;
    end;
end.



А вообще, практически в любой графической подсистеме есть подпрограмма с названием типа Arc, которая позволяет нарисовать и полуокружность, и четверть, и любую другую часть окружности.

x2 + y2 = R2
(здесь 2 - "в квадрате")
y посчитайте сами.

Если возьмете по модулю - будет верхняя полуокружность.

sqrt(R-x^2)

игрек равно корень (эр квадрат минус икс квадрат) . Школьнег?