Метание мяча (метод половинного деления)

[vik_kamikadze]

Доброе время суток. Помогите советом, как в эту задачу впихнуть метод половинного деления, нужно для зачета..

*Вася*Пупкин*бросает*мяч*со*скорост ью*12*мс.Под*каким*углом*к*горизонт у*ему*нужно*бросить*мяч*чтобы*попас ть*в*мишень*на*высоте*4*м*на расстоянии*10*м*от*Васи.

x:= 0;
delta:= 2*eps;
while x < pi/2 do begin
if f(x)*f(x+delta) < 0 then begin
t alpha:= (x+eps)*180/pi ;
writeln('Угол: ', alpha:4:1,'градусов ');
end;
x:= x + delta;
end;

Вот подскажите пожалуйсто (желательно с кодом).Заранее благодарен.