/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/parallel.pas
6 строк
197 B
Бондарев Иван
disassembly window
16 июн 2017, 18:10
16 июн 2017, 18:10
6310d5b
Код
Авторство
О чём код?
begin var locker := new object(); var total := 0.0; System.Threading.Tasks.Parallel.For(1, 1000000, procedure(i) -> begin total += sqrt(i); end); //assert(abs(total)-456302086.334068<0.00001); end.