Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ простейший цикл

Автор: Ksander 5.08.2004 19:11

Лягушонок растёт. Каждый день он съедает в 2 раза больше комаров, чем в предыдущий день. Сколько комаров съест лягушонок в n-ый день, если в первый день он проглотил 1 комара?

Введите номер дня: <номер дня n>
На <номер дня>день лягушонок съест <кол-во> комаров

Автор: APAL 5.08.2004 19:18

Где то я это уже видел.... дежа-ву!

Автор: FreeMan 5.08.2004 19:31

В школе: геометрическая прогрессия. Kol_vo=exp(ln(2)*kol_dney).

Автор: trminator 5.08.2004 19:42

Тогда уж лучше так:
kol-vo := 1 shl kol_dney

Автор: APAL 5.08.2004 19:58

И по старинке пойдет...

Код
Var N,i,k : Word;
     Summ : LongInt;
Begin
Write('Введите номер дня: '); Readln(N);
Summ:=0; k:=1;
For i:=1 to N do
Begin
Summ:=Summ+k;
k:=k*2;
End;
Writeln('На ',N, '-ый день лягушонок съест ',Summ,' комаров');
End.

Автор: FreeMan 5.08.2004 20:01

Вот блин, прожорливая жаба. Лягушёнок ест меньше... <_<

Автор: APAL 5.08.2004 20:04

http://pascal.net.ru/forum/index.php?showtopic=2529
напишите туда формул для прогрессий

Автор: Ksander 5.08.2004 20:10

всем спасибо, скоро ещё парочку задач подкину

Автор: BlackShadow 5.08.2004 20:15

trminator, ты наверно хотел сказать (1 Shl n) - 1...