Помогите решить задачку по информатике на языке Паскаль. Безотлагательно! 25 баллов

Помогите решить задачу по информатике на языке Паскаль. Безотлагательно! 25 баллов

Задать свой вопрос
1 ответ
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программка не работает, обновите версию!

begin
  Writeln('Введите исходную скорость снаряда, расстояние до стенки, вышину стенки');
  var (v,S,h):=ReadReal3;
  var A:=ReadReal('Введите угол наклона ствола пушки');
  if vlt;=0 then begin
    Writeln('Скорость должна быть положительной');
    Exit
    end;
  if vgt;1000 then begin
    Writeln('Скорость очень велика');
    Exit
    end;
  if Slt;=0 then begin
    Writeln('Расстояние обязано быть положительным');
    Exit
    end;
  if hlt;=0 then begin
    Writeln('Высота стенки обязана быть положительной');
    Exit
    end;
  if Alt;=0 then begin
    Writeln('Пушка не должна стрелять в землю');
    Exit
    end;
  if Agt;=pi/2 then begin
    Writeln('Пушка ориентирована не в сторону стены');
    Exit
    end;
  var L:=S*Tan(A)-9.81*S/(2*v*v*Sqr(Cos(A)));
  if Lgt;h then begin
    Writeln('Снаряд не попал в стену...');
    Exit
    end;
  if Llt;0 then Writeln('Снаряд не попал в стенку...')
  else Writeln('Попал!!!')
end.

Пример
Введите исходную скорость снаряда, расстояние до стенки, вышину стены
300 500 8.5
Введите угол наклона ствола пушки 0.2
Снаряд не попал в стенку...
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт