pascal利用随机数函数计算圆周率π

level 1

飞行的小龙楼主

将随机数的前后两个值（均在0到1之间），作为点x.y坐标统计1万个点中落入半径为1的四分之一圆的点数你，从而计算出四分之一圆内的面积s=n/10000；用pascal写

2013年11月17日 08点11分 1

level 12

算法：随机x,y∈[0,1) 计算(x-0.5)^2+(y-0.5)^2，若这个值在[0,0.25]之间表明落在圆上计数器A+1,计数器B+1，否则表示不在圆内，计数器B+1
最后计算A/B*4

2013年11月17日 10点11分 2