Експидиця почина пдйом на гру з висоти 3000 м з початковою

Експидиця почина пдйом на гру з висоти 3000 м з початковою швидкстю 200м/год. Через кожн 100 м швидксть пдйому зменшуться на 10% вд швидкост за попередн 100м. Розробть програму, яка визнача: за скльки часу експедиця досягне висоти 4200 м.
Пояснення. Змнна t - поточне значення часу пдйому експкдиц, V - поточна швидксть експедиц, h - поточна висота знаходження експедиц

Задать свой вопрос
1 ответ
Var h,v,t,t1:real; i:integer;
begin
v:=200/60; // м/мин
t:=0;
h:=3000;writeln('  h   t');
for i:=1 to (4200-3000) div 100 do
 begin
 t1:=100/v;
 t:=t+t1;
 h:=h+100;
 writeln(h:4:0,' ',t:5:1);
 v:=v*0.9;
 end;
writeln(t:5:1,' мин');
end.

Результат:
   h    t
3100 30.0
3200 63.3
3300 100.4
3400 141.5
3500 187.2
3600 238.1
3700 294.5
3800 357.2
3900 426.9
4000 504.4
4100 590.4
4200 686.0
686.0 мин
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт