Question

请试着写出“用圆外切正多边形的周长逼近圆的周长的方法,求出圆周率π的近似值”的程序.

Answer 1

解析：用正n边形的周长求π的近似值的程序为：

k=input(“k=”);∥输入迭代次数

n=6;

x=1;

L=4*sqrt(3);

for i=1∶1∶k

   h=sqrt(1-(x/2)^2);

   L=2*sqrt(1/4+((1-h)/x)^2)*L;

   n=2*n;

   x=sqrt((x/2)^2)+(1-h)^2);

end

print(%io(2),n,L);