1c/devscripts
1
0
Fork 0
mirror of https://github.com/DoublesunRUS/devscripts.git synced 2026-06-20 01:16:55 +02:00
Code Issues Releases Activity

Решето Эратосфена

Browse Source
This commit is contained in:
Капралов Александр
2021-03-02 10:10:00 +03:00
parent abcaf52570
commit 49af82812a
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Скрипты/РешетоЭратосфена.sbsl
+15 -4
View File
@@ -14,12 +14,21 @@
******************************************************************************/
метод Скрипт()
ВычислитьЭлементы(100)
ВычислитьЭлементы(5000000)
ВычислитьЭлементы(50000000)
знч времяНачала = ДатаВремя.Сейчас()
пер мсЦиклаВычислений = 0
мсЦиклаВычислений += ВычислитьЭлементы(100)
мсЦиклаВычислений += ВычислитьЭлементы(5000000)
мсЦиклаВычислений += ВычислитьЭлементы(50000000)
знч времяОкончания = ДатаВремя.Сейчас()
знч мсЦикла = (времяОкончания - времяНачала).ВМиллисекундах() - мсЦиклаВычислений
знч сЦикла = мсЦикла / 1000
Консоль.Записать("Время скрипта без вычислений: %сЦикла")
;
метод ВычислитьЭлементы(н: Число)
метод ВычислитьЭлементы(н: Число): Число
пер массив = новый Массив()
массив.Добавить(Ложь)
@@ -47,5 +56,7 @@
знч мсЦикла = (времяОкончания - времяНачала).ВМиллисекундах()
знч сЦикла = мсЦикла / 1000
Консоль.Записать("%н: %сЦикла")
возврат мсЦикла
;