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

Сначала решим физическую задачу:

Дано:

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(v))); //Выводим ответ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(v))); //Выводим ответEnd.

Решение:

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

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₀²);