Почему не зацикливается процедура?

16.09.2016, 10:04. Показов 664. Ответов 0

Метки нет (Все метки)

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

Определена процедура, которая оперирует с натуральными числами.
Определение
1. Если число четное, то оно делится на 2
2. Если число кратное 3, то оно делится на 3
3. В противном случае число преобразуется по формуле
N = FIX(1.1 * N) + 5), где N - наше число. Функция FIX()
отбрасывает дробную часть числа.
В последнем случае N увеличивается. Но расчеты для больших
N (сотни тысяч) показывают, что максимальное число обращений
к процедуре (max) является двузначным число. Процедура явно
не стремится зациклиться. Есть ли этому объяснение?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
DECLARE SUB f (n AS LONG)
 
CLS
CLEAR , , 20000
DIM SHARED k
DIM SHARED max
DIM i AS LONG
 
FOR i = 1 TO 2000
   k = 0
   CALL f(i)
   IF max < k THEN max = k
   PRINT k;
NEXT
 
PRINT
PRINT max
END
 
SUB f (n AS LONG)
   k = k + 1
 
   IF n <= 5 THEN EXIT SUB
      
   IF n MOD 2 = 0 THEN
      CALL f(n / 2)
   ELSEIF n MOD 3 = 0 THEN
      CALL f(n / 3)
   ELSE
      CALL f(FIX(1.1 * n) + 5)
   END IF
END SUB

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

16.09.2016, 10:04

Ответы с готовыми решениями:

Windows 8.1 не загружается: процедура восстановления зацикливается
ноутбук asus. Завис и ппи перезагрузке выскочило синее окно с ошибкой, после чего автоматическое восстановление и так по кругу.В безопасном...

Почему зацикливается???
Доброе время суток. Прошу объяснить или дать ссылку где такое описывается. #include <iostream> using namespace std; int...

Почему зацикливается?
Такая программка: #include <conio.h> #include <iostream> #include <windows.h> using namespace std; void strCon(char...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

16.09.2016, 10:04

Помогаю со студенческими работами здесь

Почему цикл зацикливается?
Почему цикл зацикливается на этапе else и не переходит к первым этапам? using System; using System.Collections.Generic; using...

Почему программа зацикливается?
program v_4; var n, l, p, z, h, a, k, i: integer; s: real; f1: text; begin assign(f1, 'ocenki.dat'); ...

Почему зацикливается программа?
Нужно найти сумму элементов матрицы 4x4 на побочной диагонали. Если поразмышлять, любой элемент побочной диагонали удовлетворяет уравнению...

Программа зацикливается. Почему?
Когда заполняю матрицу с клавиатуры - работает нормально. Когда заполняю случайными числами она зацикливается. #include...

Почему зацикливается цикл?
Есть такой пример: public static void main(String args) { Scanner scanner = new Scanner(System.in); int x = 0; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

Наверх