Вычисление числа пи методом Монте-Карло

Категория: Perl
2011-08-23 23:22:41
code: #perl
  1. #!/usr/bin/perl
  2. use warnings;
  3.  
  4. my $i=my $j=0;
  5.  
  6. while()
  7. {
  8.     $i++;
  9.     $j++ if rand()**2+rand()**2<1;
  10.     print 4*$j/$i, "\n" unless $i % 1E5;
  11. }
Поделиться:

Похожие статьи:

теги: Монте-Карло, пи, алгоритмы