>>33に「千年以上前の算法」とか言われちゃったんで、
お父さん、可能無限的π算出プログラムを書いちゃったぞ。
名付けて、「すっぱぱい」だ。どうだ、近代的だろ。

100 cls
110 input "radius=",radius$
120 r#=val(radius$):x#=r#:y#=r#
130 date$="00/01/01"
140 time$="00:00:00"
150 d=date:t=time:i#=0#:o#=0#
160 for x=-r# to r#
170 for y=-r# to r#
180 l#=x^2+y^2
190 if l#<=r#^2 then i#=i#+1 else o#=o#+1
200 next y
210 locate 12,8
220 print r#+x;"/";r#*2
230 print time+(date-d)*86400-t;"(s)"
240 next x
250 ratio#=i#/(i#+o#)
260 s#=(r#*2)^2*ratio#
270 pi#=s#/(r#^2)
280 ' ***print***
290 locate 12,12
300 print "time=";time+(date-d)*86400-t;"(s)"
310 print "radius=";r#
320 print "inner points=";i#
330 print "outer points=";o#
340 print "i/(i+o)=";ratio#
350 print "Area of the circle=";s#
360 print "pi=";pi#
370 end