Через сколько дней иссякнут силы Незнайки?

@onfern · Регистрация: 13.10.2013

Студворк — интернет-сервис помощи студентам

Здравствуйте, нужна ваша помощь. Есть задача, которую надо решить.

Написать программу с рекурсивной функцией или процедурой. Также написать программу без рекурсии.

Ежедневно Незнайка учит половину иностранных слов от суммы выученных за два предыдущих дня и еще два слова. Знайка считает, что силы Незнайки иссякнут, когда нужно будет выучить 50 слов в день. Написать программу, определяющую, через сколько дней иссякнут силы Незнайки, если в первые два дня он выучил по одному слову.

Вот МОЁ решение. Но мне нужно засунуть это все в процедуру, функцию, а еще сделать ту же самую программу, только с использованием рекурсии, нужна ВАША помощь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program useless;
var b, c, d, i: longint;   
        begin
          b:=1;
          c:=1;
            while d <= 50 do
            begin
              d:=((b+c) div 2) + 2;
              b:=d;
              c:=d;
              i:=i+1;
              end;
 writeln(i); 
end.

@Puporev · 04.10.2014, 09:09

Что-то непонятно с условием.

Сообщение от onfern

учит половину иностранных слов от суммы выученных за два предыдущих дня и еще два слова

1 день=1
2 день=1
3 день=(1+1)/2+2=3
4 день=(3+1)/2+2=4
5 день=(4+3)/2+2=? //и как брать половину от 7?

@Artem900 · 04.10.2014, 13:10

округли до большего т.к. пол слова ты точно не учишь

@Puporev · 04.10.2014, 13:46

Не по теме:

А может я хочу до меньшего, ибо не гонюсь за славой...

@onfern · 04.10.2014, 14:45 **[ТС]**

Задача все еще остается, так как нужно сделать рекурсивную функцию или процедуру. У меня вообще нет мыслей, как рекурсия может быть в этой задаче. Может у вас есть намеки?

Добавлено через 37 минут
Вот что придумал, но вряд ли это то, что требовалось...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program useless;
  var a: integer; 
    function words(a:integer): byte; 
      var i: byte; var b, c, d: integer; 
        begin
          b:=1;
          c:=1;
            if d = a then writeln(words(a))
            else
              while d <= a do
              begin
              d:=((b+c) div 2) + 2;
              b:=d;
              c:=d;
              i:=i+1;
              words:=i;
              end;
              end;
begin
readln(a);  
write(words(a));
end.

Новые блоги и статьи Все статьи Все блоги /
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью

@Artem900 0 / 0 / 0 Регистрация: 21.09.2014 Сообщений: 24
	04.10.2014, 13:10
	округли до большего т.к. пол слова ты точно не учишь 0

@Puporev
	04.10.2014, 13:46
	Не по теме: А может я хочу до меньшего, ибо не гонюсь за славой... 0