用BASIC計算PI
昨天翻硬盤,累死我了400G的東西都看了一遍,結果發現了很早以前我寫的程序。上小學時寫的算PI的程序。
INPUT n
x = n * 2 - 1
a = 1 - 1 / 3
w = (x - 5) / 2 + 1
v = 100 / w
FOR y = 5 TO x STEP 2
IF (y - 1) / 4 = INT((y - 1) / 4) THEN
a = a + 1 / y
ELSE
a = a - 1 / y
END IF
u = u + v
PRINT u; "%"
NEXT y
a = a * 4
PRINT a