简单的蒙特卡洛方法求圆周率π值

.计次循环首 (到整数 (编辑框.内容), )
横坐标 ＝ 取随机数 (0, 100)
纵坐标 ＝ 取随机数 (0, 100)
画板.画点 (横坐标, 纵坐标, #红色)
.如果真 (求平方根 (求次方 (横坐标 － 50, 2) ＋ 求次方 (纵坐标 － 50, 2)) ≤ 50)
m ＝ m ＋ 1
.如果真结束

.计次循环尾 ()
标签2.标题 ＝ 到文本 (m ÷ 到整数 (编辑框.内容) × 4)