использование операторов цикла. - Помощь студентам

555ALEXANDR555 · 10.01.2011, 16:47

Мяч упал с высоты H=243 см и, ударяясь о землю, отскакивает вновь, поднимаясь каждый раз на 2/3 высоты, с которой он упал. Определить, через сколько ударов мяч поднимется на высоту Р=32 см.

Hacker19_90 · 10.01.2011, 17:02

Код:

kol := 0;
h := 243;
repeat
    h := (h/3)*2;
    Inc(kol);
until h <= 32;
Writeln ('Через ', kol);

555ALEXANDR555 · 10.01.2011, 17:11

Еще раз большое спасибо.

10.01.2011, 16:47	#1
555ALEXANDR555 Регистрация: 22.12.2010 Сообщений: 6	использование операторов цикла. Мяч упал с высоты H=243 см и, ударяясь о землю, отскакивает вновь, поднимаясь каждый раз на 2/3 высоты, с которой он упал. Определить, через сколько ударов мяч поднимется на высоту Р=32 см.

10.01.2011, 17:02	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Код: `kol := 0; h := 243; repeat h := (h/3)2; Inc(kol); until h <= 32; Writeln ('Через ', kol);` Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
C# Обработка массива с использованием операторов цикла с условием	Alexen	Общие вопросы C/C++	2	12.10.2010 16:32
Паскаль. использование условного оператора в теле операторов цикла с условием и после него	машко	Помощь студентам	1	22.06.2009 00:52
использование условного оператора после операторов цикла с условием	машко	Помощь студентам	8	21.06.2009 23:59
С помощью рекурсии без операторов цикла и перехода написать процедуру P(N)	WhyBeNormal	Помощь студентам	1	29.01.2009 01:20
Использование операторов цикла	кася	Паскаль, Turbo Pascal, PascalABC.NET	3	02.05.2008 00:32

10.01.2011, 17:11	#3
555ALEXANDR555 Регистрация: 22.12.2010 Сообщений: 6	Еще раз большое спасибо.