Люди помогите пожалуйста правильно задать траекторию движения окружности.
Мне нужно либо по параболе или по наклонной. Подскажите пожалуйста... Срочно надо!!!!
uses crt, graph;
const
cx: Integer = 0;
cy: Integer = 0;
var
gd, gm: Integer;
radius: Integer;
i, delta: integer;
begin
gd := Detect;
InitGraph(gd, gm, '');
cx := GetMaxX div 2;
cy := GetMaxY div 2;
radius := 30;
i := -10;
delta := 1;
repeat
SetColor(White); Circle(cx + i * 20, cy - i*i*3, 20);
Delay(170);
SetColor(Black); Circle(cx + i * 20, cy - i*i*3, 20);
inc(i, delta);
if (i = 10) or (i = -10) then delta := -delta;
until keypressed;
CloseGraph;
end.