ето желтый !
сначала решим :
дано:
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.
program r1; var n: integer; beginassign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); if n> 0 then n: =n+1 elsen: =abs(n mod 2) ; {примечание-остаток будет положительным)writeln(n); close(input); close(output); end.
2
program r1; var n,l: integer; beginassign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); if (n mod 10)> (n div 10) then writeln('2> 1') elseif (n mod 10)< (n div 10) then writeln('2< 1') elseif (n mod 10)=(n div 10) then writeln('2=1'); close(input); close(output); end.
Поделитесь своими знаниями, ответьте на вопрос:
смотри во вложении - это жёлтый.