Question

Написать игру в PascalABC.NET «Стрельба по танку из пушки». Исходные данные: угол наклона пушки к горизонту (задаётся), скорость вылета снаряда 100 м/с, расстояние до центра танка.

Answer 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.