Без рекурсий. Без счетчиков.

Тебе сюда
v8: О применении "Пока Истина Цикл"

(0) Тебе зачем? Разверни тему!

Есть такая задачка, см в (1).

(0) ну, подвисон пк так реализуется ) если не усложнять.

Тема для передачи про битву экстрасенсов.

(1), (3) неа - в ТС "ТОЛЬКО циклом" ...

(4) Месть бухгалтерии за недоплаченную зарплату )))

подсчет молекул водорода во вселенной не?

число пи рассчитай

ЗППрограммиста = ПолучитьЗППрограммиста();
отстатыщ = 100000;
Пока ЗП <> Отстатыщ Цикл
отстатыщ = ?(ПолучитьЗППрограммиста() = 100000,отстатыщ*2,отстатыщ);
КонецЦикла;

разложение в ряд

Пока ЗППрограммиста <> Отстатыщ Цикл

разложение  в ряд функции экспоненты около точки 0 =)

на шахаматную доске
на одну клетку кладем одно зернышко пшеницы , на другую два зернышка, на третью в 2 раза больше чем на втроую и т.д. ,сколько зернышек будет на последней клетке шахматной доски

фигню сомтрозил в (13) =)

1. Нанести шампунь на влажные волосы
2. вспенить
3. смыть
4. повторить

(0) Подсчет размера множества натуральных чисел

(9) если только _абсолютно точно_
(17) _без_ счётчиков

(0)
задача: обеспечить бесконечный вывод слова "Пятница!" в область сообщений.

решение:
Пока Истина Цикл
Сообщить("Пятница!");
КонецЦикла;

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

Вот и нужен пример.

(19) любую

(19) Зря ты так уверен. Бесконечный цикл должен когда-то закончиться. Для этого нужно, чтобы выполнилось какое-то условие. В зависимости от этого условия можно присвоить то или иное значение какой-нибудь переменной. Соответственно, можно то же самое получить при помощи цикла с условием.
Но ведь тут же не принято признавать, что ты не прав, не так ли?

(21) имеется ввиду что без
Пока Истина Цикл не обойтись
типа любую можно конвертнуть в определенный цикл от и до

Обработка очереди сообщений окна Windows - вот вам бесконечный цикл.

Никогда окна на чистом API не писали штоле?

(1)
Не вижу ни одного примера который нельзя было сделать бы обычной рекурсией...

(20) (21)
Речь о конструкции Пока Истина Цикл, понятно что она когда то завершится, но нужно что бы шапка была именно такая.

(23)(24) Нужен 1с, другие языки не подойдут

Пока в голову пришла идея только про обработку ответа HTTPСоединения, но задача на слабую троечку...

(25) вопрос ставится в быстродействии? или типа в 100 раз дольше работает, но можно обойтись без бесконечного? =)

(26) Вопрос в невозможности без него обойтись к каком то случае.

(27) ну тогда скорее всего проиграл ящик пива..

(0) Такой нет.

(19) Уверен, так придумай :))

(25) Еще раз внимательно прочитай (21). Я понимаю, там много букв, но все-таки постарайся.

Пока Истина Цикл
 ...
 Если Условие Тогда
   Прервать;
 КонецЕсли;
КонецЦикла;

ВСЕГДА можно заменить на

Перем = 1;
Пока Перем = 1 Цикл
 ...
 Если Условие Тогда
   Перем = 0;
 КонецЕсли;
КонецЦикла;

(31) Это два бесконечных цикла :))

(0)Попробуй рекурсию заменить на цикл. Любая рекурсия может быть заменена на цикл. Вот там и будешь видеть применение.

(31) это вопрос семантики. по-моему с точки зрения условия (0) данные конструкции идентичны. да они так и выглядят.

(32) Тогда что такое не бесконечный цикл? Цикл со счетчиком? А цикл "Пока Условие Цикл" автоматически считать бесконечным?

(33) Условие "только бесконечным циклом" - вытекает из того, что рекурсию нельзя использовать когда ограничена память.

(31) -> (25)
Речь про нормально синтаксически оформленный код, а не "индийский". Я почему то более чем уверен, что Вы так не пишите. Так что давайте не будет впадать в крайности.

(36) +1, все к это и сводиться, нужен именно такой пример.

(0) Попробуй в синтакс-помощнике поискать (именно поиском):
"Пока Истина Цикл"

Вот самое простое например:

Пока Истина Цикл
   ЭлементыФормы.Надпись.Значение = ТекущаяДата();
   ОбработкаПрерыванияПользователя();
КонецЦикла;

P.S.: Половина ящика с тебя :)

(38) Отличный пример))

я надеюсь что автора (38) уже поперли оттуда? ))

(31) твой гомнокод можно легко заменить на
Пока НЕ Условие Цикл
...
КонецЦикла;

Чувствую, начинает пахнуть холиваром. Предлагаю вам с друзьями остаться при своих и раздавить пиво в теплой дружеской обстановке. (39)

(41) Не "Твой гомнокод", а фирмы 1С, это вырезка из справки.

Если ты так реализуешь бесконечный цикл, мне тебя жаль.

Думаю тема, закрыта, не стоит ее развивать.

(40) за что?

(35) IMHO
Бесконечный цикл - это цикл, который будет выполняться бесконечно, если в его теле ничего не делать, кроме заранее предусмотренного изменения счетчика цикла.

Бесконечный цикл
Счетчик = 0;
Пока Счетчик = 0 Цикл
Если ТемператураНаУлице() > 10 Тогда
Счетчик = 1;
КонецЕсли;
КонецЦикла;

Конечный цикл
Счетчик = 0;
Пока Счетчик = 0 Цикл
Счетчик = Счетчик + 1;
КонецЦикла;

(43) ты бы для начала поглядел об чем я

(45) еще один гомнокодер

Пока НЕ ТемператураНаУлице() > 10 Цикл
...трампапам...
КонецЦикла;

(46) Сорри, думал Вы про (38)

(25) Расчет статистики генератора случайных чисел, через сколько шагов получения случайного числа в определенном диапазоне будут выданы повторяющиеся значения.

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

(49) Пока Не СписокЗначений.НайтиПоЗначению(СлучайноеЧисло) = Неопределено Цикл

(51) Ну так он фактически бесконечный, потому что СписокЗначений не определен завомо и может вообще никогда не найтись, если числа бесконечно большие и генератор бесконечно не повторяющийся :)

А вообще по сути любой сетевой сервер, ожидающий соединения висит в бесконечном цикле, пока к нему не постучатся или не завершат работу.

(50) для этого существует ПодключитьОбработчикОжидания

познание бесконечности требует бесконечного времени, а потому работай, не работай - всё едино (с) АБС

(53) О блин истинный 1С-овец :)
А обработчик ожидания или таймер как работает? Уж не в бесконечном ли цикле он запрашивает время?

(56) LOL :))

(56) он имел ввиду что толку от формы открытой с таким колдом все висеть будет

(53) это понятно, просто единственный возможный вариант задачи по моему

(56) открой для себя волшебный и удивительный мир прерываний

(60) Да конечно, такой волшебный прям как этот форум :)
А кто же бесконечно ходит и смотрит уж не пора ли разбудить прерванный поток то?

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

(61) Дружище, почитай про то, что такое процессор и как он работает :))

(61) хоть бы книжки почитал, прежде чем так позориться

(62)(63) Не пытайтесь показаться сверх умными дружищи :)
Как минимум азы схемотехники мы все проходили и как оно там работает на физическом уровне все прекрасно знаем.
Но неужели вы забыли что мы работаем над софтовыми задачами а не над железными, да еще в замечательной среде виндовз, которая нифига вам не даст работать с железом на прямую, она сама там чего то напрерывается а все ваши процессы висят в очереди и тупо постоянно опрашиваются когда он там должен проснуться и если наступило(прошло) время просыпания поставятся в поток выполнения.

при активации вкладки активировать вкладку :)

(64) так вот опрашиваются они как раз через те же прерывания, но никак не в бесконечном цикле

(66) "Через прерывания" чего именно? Где именно планируются эти прерывания в "железе" или таки есть некий диспетчер у операционки, который вечно обходит таблицу процессов и решает кому сейчас пойти на выполнение.

(64) Прочитай (63) _вдумчиво_, он прав.

(67) Пля, у процессора есть _железячная_ поддержка прерываний, которая используется операционкой. Почитай книжки.

(69) У процессора есть и что это конкретно дает приложениям запущенным в операционной системе?
Какая программа в среде виндовз кроме драйверов работающих в режиме ядра может напрямую управлять этими прерываниями?
Все процессы включены в некую таблицу в памяти операционки, которую вечно обходит некий диспетчер и решает запускать их или нет.

(70) Почитай книжки.

определение "бесконечного цикла" дайте

(0) вопрос дурацки поставлен.

задачи решают не бесконечным циклом, а циклом без итератора.

Вот так задал бы вопроос я

Нужна задачка, которую можно сделать только циклом без итератора

(72) Цикл, завершение которого не предусмотрено в самом операторе цикла.

(71) Читал, много, могу даже направление определить - тематика "диспетчер операционной системы". И что даже больше скажу - глядел в иходниках древней версии линуксового ядра на предмет изучения кокраз этого самого диспетчера. Ну так не поверишь - обычный бесконечный цикл.

(73) Часы разве не бесконечным циклом работают?

(19) Ты попал на пиво: wiki:Теорема_Бёма_%E2%80%94_Якопини

(74) такая задача не сможет завершится (если конечно войдет в цикл)

(76) Не. Аппаратная схема таймера генерит аппаратные прерывания, при обработке которых и происходит изменение времени компа. Можно сказать, что таймер на уровне аппаратной реализации работает в бесконечном цикле. А компьютерное время - нет.

(79) Сделай програмное прерывание на ассемблеере или это нереально?

(70) объясняю на пальцах. пишем в программе код, который обрабатывается при наступлении некоего события (в нашем случае прерывания) и забываем про него, потому что этот код выполнится обязательно при наступлении события. понимаешь? не надо в цикле ничего обходить.

(79) таймер не работает в цикле. таймер тупо "тикает", ибо цикл подразумевает собой наличие конструкции jmp begin

(75) код в студию

(80) Винда не даст физически запустить приложение обращающееся к железу на прямую. Хотя можешь конечно запустить вне винды и вообще вне операционки, но пользы от этого не много.

(81) Так операционка будет просто за место твоего приложения в цикле что-то там обходить, а по сути любое приложение это расширение операционки, потому они и называются "приложения к операционной системе", а сокращенно "приложение", так что по сути твое расширение к операционной системе будет просто использовать ее бесконечные циклы.

(83) cd /usr/src и читать, на всю жизнь хватит, это было не меньше 10 лет назад, сейчас уже нет, просто в памяти отложилось.

+(84) Можно точнее так:

cd /usr/src/sys/kern/Attic/sched_core.c

(81) ясен пень, если операционка написана косоруким гомнокодером, то она будет в цикле все обходить. что касается невозможности запуска приложения, которое обращается напрямую к железу, то тут ты тоже облажался, ибо драйвер устройства по сути своей тоже является приложением.

(80) Ничего не понял. Зачем мне делать программное прерывание и для чего? Программные прерывания - это всего лишь удобный способ вызова системных подпрограмм, которые удобно использовать в разных программах.

(86) Драйвер не является "обычным" приложением, он работает в режиме ядра, это несколько меняет для него правила игры. И я об этом уже писал в (70)

(86) к (84)

(88) тоесть в (70) ты не веришь, что обычное приложение, сосущее на третьем кольце, может работать с прерываниями???

(90) Именно это я и говорю, обычные приложения работающие в виндовз (заметьте именно виндовз) не имеют доступа к физическому оборудованию. Все идет только через API, а вот как это реализованно с той стороны этого самого АПИ большой вопрос, но не думаю что планировщик винды очень сильно идеологически отличается от юниксовых.

(91) а зачем приложению иметь доступ к оборудованию? я где-то об этом говорил? и кто мешает приложению в процессе запуска и инициализации задействовать драйвер?

Народ. Вы как в той притче про слепых и слона.
Хоть бы не позорились.

(0) Симулятор жизни не предлагать?

Использую:

Пока Истина Цикл
....
Если <Условие> Тогда
прервать;
КонецЕсли;
КонецЦикла

использую, когда условие повторного повторения (вхождение в цикл) должно проверяться в конце алгоритма самого цикла. Это обеспечит их выполнения хотя бы раз.

В паскале были конструкции "While do..." и "reaped until", вот второй конструкции у 1С нету. Её заменяю "Пока Истина Цикл
...."

заменить можно, но наверное гемора больше. Пришлось бы, наверное, указывать булевую переменную, типа "ПрошлоРазЦикл".

(95) Больше, не больше, но, если код не твой -- задересси условие выхода искать. Лучше так:


Повторять = Истина;
Пока Повторять Цикл
...........
   Если <Условие> Тогда
       Повторять = Ложь;
   КонецЕсли;
КонецЦикла;


Впрочем, вопрос то не в том, как лучше. Вопрос в том, есть ли такая задача, для которой условие(я) выхода из цикла НЕВОЗМОЖНО прописать в заголовке, можно сделать только бесконечным циклом с брейками. Ответ, такой задачи нет и это математически доказано. Топикстартер должен ящик пива.

А как на счет числа Пи?

(96) когда 1сники научатся тому, что булевым переменным можно по нормальному присваивать значения, а не только Истина/Ложь?

сотка

(99) взять и поотрывать руки некоторым...

(0) запустил поиск "Пока Истина Цикл" в типовой БП... Дофига примеров.

Пока Истина Цикл
       
       ПутьККаталогу = КаталогВременныхФайлов () + Идентификатор + строка(Индекс) + "\";
       КаталогНаДиске = Новый Файл(ПутьККаталогу);
       Если НЕ КаталогНаДиске.Существует() Тогда
           СоздатьКаталог(ПутьККаталогу);
           Возврат ПутьККаталогу;
       КонецЕсли;
       Индекс = Индекс + 1;
       
   КонецЦикла;
------------------------------
   Пока Истина Цикл
       Если ТекущийЭлемент_HTML.tagName = "BODY" Тогда
           Возврат Неопределено;
       ИначеЕсли ТекущийЭлемент_HTML.tagName = НазваниеТега Тогда
           Возврат ТекущийЭлемент_HTML;
       Иначе
           ТекущийЭлемент_HTML = ТекущийЭлемент_HTML.parentNode;
       КонецЕсли;
   КонецЦикла;

(0)
Учитывая, что любая рекурсия сама есть цикл + стек, крайне странно желание найти задачу, решаемую циклом, но не решаемую циклом со стеком.

(0) нет рекурсионной задачи которую нельзя решить циклом.
Если так нужно задачу - найдите точное значение числа Пи

Нахождение числа ПИ, вечная тема.