admin管理员组

文章数量:1530307

2024年5月22日发(作者：)

割圆术

所谓“割圆术”，是用圆内接正多边形的周长去无限逼近圆周并以此求取圆周率的方法。魏

晋时期的数学家刘徽首创割圆术，为计算圆周率建立了严密的理论和完善的算法。

正48边形

Vbs小程序{把下面的程序清单输入到记事本里面, 然后保存为以.vbs为扩展名的文件

然后双击, 观察运行结果.}

msgbox "π=3",,"正6边形（割圆术）"

dim pai,c,j

'paiπ， c周长 j边长

j=sqr(2-sqr(3))

c=12*j

pai=c/2

msgbox "π="&pai,,"正12边形（割圆术）"

j=sqr(2-sqr(2+sqr(3)))

c=24*j

pai=c/2

msgbox "π="&pai,,"正24边形（割圆术）"

j=sqr(2-sqr(2+sqr(2+sqr(3))))

c=48*j

pai=c/2

msgbox "π="&pai,,"正48边形（割圆术）"

j=sqr(2-sqr(2+sqr(2+sqr(2+sqr(3)))))

c=96*j

pai=c/2

msgbox "π="&pai,,"正96边形（割圆术）"

j=sqr(2-sqr(2+sqr(2+sqr(2+sqr(2+sqr(3))))))

c=192*j

pai=c/2

msgbox "π="&pai,,"正192边形（割圆术）"

‘…………………………….

本文标签： 圆术圆周率周长边形逼近

版权声明：本文标题：割圆术 vbs 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/xitong/1716333942a498202.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。