计算二分之一圆周率的方法程序

勇敢向前

*****************
set talk off
input"输入一个正整数:"to m
    n=1
    d=0
do while n<=m
   g=1/sqrt(m*m-(n-1)*(n-1))
   d=g+d
   n=n+1
enddo
?d
?2*d
********************
-

luyuanhong

[这个贴子最后由luyuanhong在 2008/07/05 07:57am 第 2 次编辑]