Експидиція починає підйом на гру з висоти 3000 м з початковою швидкістю 200м/год. Через кожні 100 м швидкість підйому зменшується на 10% від швидкості за попередні 100м. Розробіть програму, яка визначає: за скільки часу експеди...
Експидиція починає підйом на гру з висоти 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 мин
Не нашли ответ?
Похожие вопросы