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

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);