Комментарий

Задача, таким образом, решается и аналитически, но при исследовании вариантов траектории компьютер весьма полезен. Так, мы можем получить на экране множество случаев попадания мяча в корзину.

Задаваемые параметры (в СИ)

Расстояние от баскетбольного кольца до места бросания.

> l:=2.5;

Высота баскетбольного кольца

> h:=2.5;

Ускорение свободного падения.

> g:=9.8;

Теперь найдем возможные значения начальной скорости в зависимости от угла бросания мяча.

> List:=[];

> for alpha from 0 to 89 do

List:=[op(List),[alpha,evalf(Vo(alpha))]]

end do:

List;