Составить программу на языке pascal для вычисления угла возвышения дальнобойного орудия по начальной скорости полета снаряда и дальности цели. сопротивлением воздуха и высотой орудия пренебречь.

решение:

решим систему ур-й описывающих движение:

y(t)=v₀δt·sinγ -  ½gδt²

x(t)=v₀δtcosγ;

в момент времени пусть  δt =  τ   x(t)=l, тогда y(t)=0  ⇒

τ= l  ÷ v₀cosγ (из ур-я x(t))

из ур-я y(t)

l·g  ÷ v₀²=sin2γ

γ = ½arcsin (lg  ÷ v₀²) - это конечная формула

ответ:   γ =  ½ arcsin(lg  ÷ v₀²);

сначала решим :

дано:

v₀;

l;

найти:

γ;

решение:

решим систему ур-й описывающих движение:

y(t)=v₀δt·sinγ -  ½gδt²

x(t)=v₀δtcosγ;

в момент времени пусть  δt =  τ   x(t)=l, тогда y(t)=0  ⇒

τ= l  ÷ v₀cosγ (из ур-я x(t))

из ур-я y(t)

l·g  ÷ v₀²=sin2γ

γ = ½arcsin (lg  ÷ v₀²) - это конечная формула

ответ:   γ =  ½ arcsin(lg  ÷ v₀²);

теперь код программы (pascalabc.net):

//если угол нужен в радианах

program bullet_rad;

const g_grav = 9.8; // гравитационная постоянная g=9,8

varl, //расстояние до целиv: real; //начальная скорость снаряда

beginreadln (l,v); // читаем расстояние и скоростьwriteln (0.5*arcsin((l*g_grav)/sqr(; //выводим ответend.

//если угол нужен в градусах

program bullet_gr;

const g_grav = 9.8; // гравитационная постоянная g=9,8 pi = 3.14; // постоянная п=3,14

varl, //расстояние до целиv: real; //начальная скорость снаряда

beginreadln (l,v); // читаем расстояние и скоростьwriteln ((90/pi)*arcsin((l*g_grav)/sqr(; //выводим ответend.