高校问答天刀六分仪怎么用:QBASIC 计算圆周率
来源：百度文库 编辑：高校问答 时间：2024/04/28 18:24:09
能不能给一个用QB编写的计算圆周率的程序？
DIM pi, arc1, arc2 AS DOUBLE
DIM i, n AS INTEGER
DIM x AS SINGLE
INPUT "please i:", i
arc1 = 0
aer2 = 0
x = 1 / 5
FOR n = 1 TO i
arc1 = arc1 + (-1) ^ (n - 1) * x ^ (2 * n - 1) / (2 * n - 1)
NEXT n
x = 1 / 239
FOR n = 1 TO n
arc2 = arc2 + (-1) ^ (n - 1) * x ^ (2 * n - 1) / (2 * n - 1)
NEXT n
pi = 16 * arc1 - 4 * arc2
PRINT pi
END
古人计算圆周率，一般是用割圆法。即用圆的内接或外切正多边形来逼近圆的周长。Archimedes用正96边形得到圆周率小数点后3位的精度；刘徽用正3072边形得到5位精度；Ludolph Van Ceulen用正262边形得到了35位精度。这种基于几何的算法计算量大，速度慢，吃力不讨好。随着数学的发展，数学家们在进行数学研究时有意无意地发现了许多计算圆周率的公式。下面挑选一些经典的常用公式加以介绍。除了这些经典公式外，还有很多其他公式和由这些经典公式衍生出来的公式，就不一一列举了。