zadach215.BAS

{* Задача215 *}

REM basic

' Координаты снаряда, вылетевшего из пушки, рассчитываются по формулам
' Ввести эти данные и определить, попадет ли снаряд в цель высотой H
' на расстоянии S и высоте Z от пушки.


CLS
INPUT "Введите начальную скорость: ", v
INPUT "Введите угол к горизонту: ", a
INPUT "Введите время полета: ", t
INPUT "Введите высоту цели: ", H
INPUT "Введите растояние до цели: ", S
INPUT "Введите высоту на которой стоит цель: ", Z

g = 9.8
x = v * COS(a * t)
y = v * SIN(a * t) - ((g * (t ^ 2)) / 2)
If x = S And y = (Z + H) Then PRINT "Вы попали в цель!" Else PRINT "Вы не попали в цель!"

End