Пакостный попугай научился выдергивать у дедушки Василия волос, которое еще осталось у того на голове. Начав с одного волоса, он е

[PASKAL12]

Пакостный попугай научился выдергивать у дедушки Василия волос, которое еще осталось у того на голове. Начав с одного волоса, он ежедневно увеличивал, порцию вдвое. Через сколько дней дедушке не понадобится расческа, если сначала у него на голове было аж N волос.Только стал учить циклы сильно не ругайте)) мой код

var v,n,m,i:longint;
begin
read (n);
for i:=1 to n do
begin
m:=m*2;
v:=v+1;
end;
write (v);
end.

[type_Oleg]

Если бы я был компилятором, то написал бы, что переменные m, v не инициализированы.
То есть синт. ошибки нет, но программа ничего не считает. И выведет или черт знает что, или просто число равное n
.. и мгновенно закроется.

[PASKAL12]

Исправил программа работает но)))не то)

[type_Oleg]

Оператор for обычно используется, если количество циклов известно заранее. А здесь лучше использовать while у дедушки остались волосы, или repeat пока не останется ни одного

[ViktorR]

Есть и другое, более простое решение.
В данной задаче выполняются условия геометрической прогрессии, в которой: а1 = 1; q = 2; Сумма членов прогрессии равна N.
Используем формулу для суммы k членов прогрессии:
N = a1*(q^k-1)/(q-1); Отсюда получаем: N*(q-1)/a1 + 1= q^k;
Логарифмируем обе части и получим формулу для k:
k = ln(N*(q-1)/a1 +1)/ln(q);
Подставим известные параметры и получим формулу для вычисления k - числа дней.

k := ln(N+1)/ln(2);

И зачем тут циклы????


Как-то так, ...

[type_Oleg]

ViktorR, k надо еще округлить как то.

Может быть, товарищу надо с циклами. Чисто методически. А то получается, задание не по прогр. а по математике.

[ViktorR]

Округлить - это да.
Волос то целое число, да и дней - тоже.
Но может ведь оказаться, что в следующий день попугай не сможет выдернуть заданное число волос. Об этом в постановке задачи ни слова.
С точки зрения метода решения.
Креативное мышление должно развиваться в первую очередь.
Иначе как-бы изобрели метод расчета суммы членов арифметической прогрессии?

В самой постановке задачи нет заключения о том, что требуются именно циклы. А фраза:

Только стал учить циклы сильно не ругайте)) мой код

говорит только об одном - только начал изучать циклы.
И что, сразу их (циклы) вот на такой задаче?


Как-то так, ...
PS: Я уж не говорю о том, что в постах по этой теме нет оценки того, сколько волос вырвано (надо бы суммировать).
И впринципе, цикл может быть и по N. Все равно цикл должен будет закончиться раньше, чем будет достигнут его конец. Просто в теле цикла можно вставить сравнение на превышение числа вырванных волос над N и сделать break.
Ну это в том случае, если мы изучаем циклы и то, что к ним принадлежит.