/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/MonteCarlo.pas
7 строк
191 B
miks1965
Мелочи
28 сен 2018, 15:52
28 сен 2018, 15:52
aa453fb
Код
Авторство
О чём код?
// ���������� ����� Pi ������� �����-����� begin var n := 10000000; var pp := Range(1,n).Select(x->(Random(),Random())).Where(p->sqr(p.Item1)+sqr(p.Item2)<1).Count/n*4; Print(pp); end.