Математики помогите. Нужна функция графика полуокружности.
На графике необходимо нарисовать полуокружность (половинку круга) . Чему будет равен у в таком случае? у=....Радиус задаем. R
На графике необходимо нарисовать полуокружность (половинку круга) . Чему будет равен у в таком случае? у=....Радиус задаем. R
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)