Расставьте теги в правильном порядке, который определяется знаменитой сказкой а.с.пушкина. \b \'e7 \'e0 \b0 \i \'e8 \ul \i0 \'f1 \ulnone \b \strike \'ff \ul \super \b0 \strike0 \'f3 \ulnone \nosupersub \i \'e3 \i0 \strike \'e9 \i \strike0 \'eb \ul \i0 \'ed \ulnone \b \strike \'f6 \super \b0 \strike0 \'f2 \'ea \nosupersub \strike \'ee \ul \sub \strike0 \'e4 \'f3 \nosupersub \'ea \ulnone \super \i \'e0 \sub \i0 \'e1 \nosupersub
Сначала решим физическую задачу:
Дано:
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
Var
L, //Расстояние до цели
v: real; //Начальная скорость снаряда
Begin
readln (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
Var
L, //Расстояние до цели
v: real; //Начальная скорость снаряда
Begin
readln (L,v); // Читаем расстояние и скорость
writeln ((90/pi)*arcsin((L*g_grav)/sqr(v))); //Выводим ответ
End.
Program R1;
Var n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if n>0 then n:=n+1 else
n:=abs(n mod 2) ; {примечание-остаток будет положительным)
writeln(n);
close(input);
close(output);
end.
2 задача
Program R1;
Var n,l:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if (n mod 10)>(n div 10) then writeln('2>1') else
if (n mod 10)<(n div 10) then writeln('2<1') else
if (n mod 10)=(n div 10) then writeln('2=1');
close(input);
close(output);
end.