Составить программу на языке 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,8VarL, //Расстояние до цели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,14VarL, //Расстояние до целиv: real; //Начальная скорость снарядаBeginreadln (L,v); // Читаем расстояние и скоростьwriteln (90/pi)*arcsin (L*g_grav) /sqr (v); //Выводим ответEnd.