Написать игру в PascalABC.NET «Стрельба по танку из пушки». Исходные данные: угол наклона пушки к горизонту (задаётся), скорость вылета снаряда 100 м/с, расстояние до центра танка.
Ответы
Ответ дал:
1
===== PacalABC.NET =====
begin
var L := ReadReal('Укажи расстояние до танка:');
Writeln('Программа завершается при попадании в танк');
Writeln('или при вводе числа, не попадающего в диапазон от 0 до 90');
var (g, v0, eps) := (9.81, 100.0, 1.0);
while True do
begin
var a := ReadReal('Введи угол наклона пушки, град:');
if not a.InRange(0.0, 90.0) then Exit;
var d := L - Sqr(v0) * Sin(2 * DegToRad(a)) / g;
if Abs(d) <= eps then
begin
Println('Ура! Попадание!');
Exit
end
else if d > 0 then
Println('Недолет')
else
Println('Перелет')
end
end.
Приложения:
![](https://st.uroker.com/files/1a2/1a27e4776fda0191b1ad972b6baea0c0.jpg)
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад