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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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 мин