Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Тест скорости циклов For…Next и Do…Loop, For…Next and Do…Loop cycles speedtest
 
#1
20.05.2022 11:09:18
Приветствую!
Привожу простые тесты, показывающие, что при известных границах поиска лучше использовать For…Next — он в 2 раза быстрее.
Разумеется, чем более сложные расчёты будут в теле цикла, тем менее будет заметна разница в скорости самих циклов.
Файл, скрин и код
Изменено: Jack Famous - 20.05.2022 11:09:50
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#2
20.05.2022 11:14:53
Цитата
Jack Famous написал:
Привожу простые тесты,
Где-то я уже видел обсуждение про For…Next и Do…Loop, только давно и где не помню
 
 
 
#3
20.05.2022 11:23:15
Цитата
Msi2102: давно и где не помню
тем более - лишним не будет сделать тему с готовыми данными  :)
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#4
20.05.2022 11:30:43
Ещё не проверил While…Wend
Код
n = 0: t = Timer
    While n < cyc 
        n = n + 1: res = n
    Wend
Debug.Print "While…Wend", Format$(Timer - t, "0.0")


Собственно время как у Do
 
 
 
#5
20.05.2022 12:00:41
Не, ну а как иначе-то? В Дулупе проверка каждый раз идет, а в Форнексте просто счетчик
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#6
20.05.2022 12:49:06
Цитата
_Boroda_ написал:
роверка каждый раз идет
Если добавить условие
Код
c = 0
n = 0: t = Timer
    For n = 1 To cyc
        If c >= 0 Then c = n
        res = n
    Next n
Debug.Print "For…Next", Format$(Timer - t, "0.0")

Всё равно быстрее
А с таким условием уже нет
Код
c = 0
n = 0: t = Timer
    For n = 1 To cyc
        If c >= 0 Then c = c + 1
        res = n
    Next n
Debug.Print "For…Next", Format$(Timer - t, "0.0")
Изменено: Msi2102 - 20.05.2022 13:01:05
 
 
 
#7
20.05.2022 13:15:51
Цитата
_Boroda_: В Дулупе проверка каждый раз идет, а в Форнексте просто счетчик
всё верно - никаких неожиданностей, просто в 2 раза разница не была ожидаема от простого счётчика даже на 100 млн))
100 млн хоть и кажется нереальным циклом, однако есть рекурсия и прочие вложенные циклы — в комбинаторике, например. В таком случае, и большее количество итераций вполне возможно

Msi2102, благодарю за дополнительные тесты  :idea:
While…Wend, помнится, хуже себя показал на рекурсии, чем Do…Loop — потому я нигде его и не использую  :)
Изменено: Jack Famous - 20.05.2022 13:16:01
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Наверх