用概率实验估算π

任取两个正整数,它们互质的概率为6/π^2,用这个概率实验来试着计算π。

解答:

A B C D
1 1000000 0  
2 for A1 =int(rand()*100000)+1 =int(rand()*100000)+1
3   >small=B2 >big=C2
4   if small>big >small=C2  
5     >big=B2  
6   for small>0 =big%small  
7     >big=small  
8     >small=C6  
9   if big==1 >B1+=1
10 =sqrt(6.0*A1/B1)    

A10中运算结果如下: