Пример «ТестСкорости - переменные»

Файлы:

Пример программы на языке программирования Перфо:

//Эта программа написана на языке Перфо

//порт теста скорости для 1С с сайта http://perfolenta.net/Article.asp?code=20190710161839028920  

// 1С в режиме отладки ~ 32 сек.
// 1С без отладки      ~ 4  сек.
// Перфо               ~ 7 сек.

// На Вашем компьютере цифры могут быть другими...

// Перфо в этом тесте работает примерно в 2 раз медленнее, чем 1С без отладки.
// Это связано с тем, что 1С сначала создает байт-код, а потом выполняет его,
// а Перфо чистый интерпретатор.
// Хватит ли скорости Перфо для нормальной работы?
// Когда 1С работает в режиме отладки, то она работает почти в 4 раза медленнее, чем Перфо.
// Но пользователь работая в 1С, находящейся в режиме отладки, почти не ощущает дискомфорта!
// Вывод: скорости Перфо более чем достаточно для тех задач, в которых он может применяться...


(Перем а 0)
(Перем б 0)

(Перем т (ТекущаяУниверсальнаяДатаВМиллисекундах))

(Сообщить "начало..." пс)

(Перем а 5)
(Перем б Истина)
(Для (Инд 1 10000) // на сайте 1000000)
    (Если б
        (Перем б (НЕ б))
        (Перем б (НЕ б))
    )
    (Если (> а Инд)
           (Перем а (- а 1))
           (Перем а (+ а 5))
    )       
    (Перем а2 5)
    (Перем б2 Истина)
    (Для (Инд2 1 300)
        (Если б2
            (Перем б2 (НЕ б2))
            (Перем б2 (НЕ б2))
        )  
        (Если (> а2 Инд2)
            (Перем а2 (- а2 1))
            (Перем а2 (+ а2 5))
        )  
    )//КонецЦикла;
)//КонецЦикла;

(Сообщить "ок..." пс)
(Сообщить "Время, сек: " (/ (- (ТекущаяУниверсальнаяДатаВМиллисекундах) т) 1000) пс)

(Сообщить "а=" а пс)
(Сообщить "б=" б пс)
(Сообщить "а2=" а2 пс)
(Сообщить "б2=" б2 пс)

К началу статьи