設計一個使用 for 敘述的程式，計算並印出幾個整數的平均值。假設最後一 個讀入的是警示值 9999。 (計算π) 從以下的無窮數列計算出π值π=4-4/3+4/5-4/7+... 用表格顯示此數列前 1000 項的每一種計算結果，以表示出 1000 種 π 的近似值。?

題目沒說用哪種程式, 以下用 Excel VBA 示範:

第一題
程式碼:
-------------------------------------------------------------------
Sub Average()

n = 1
S = 0

Do While Cells(n, 1) <> 9999
S = S + Cells(n, 1)
n = n + 1
Loop

If n = 1 Then
[B1] = "平均數 = 0"
Else
[B1] = "平均數 = " & S / (n - 1)
End If

End Sub
-------------------------------------------------------------------
若A1儲存格輸入 9999
再執行此程式
執行結果顯示在B1儲存格:
平均數 = 0

若 A1 ~ A7 儲存格分別輸入 1 , 2 , 3 , 4 , 9999 , 5 , 6
再執行此程式
執行結果顯示在B1儲存格:
平均數 = 2.5
( 驗算: (1+2+3+4)/4 = 10/4 = 2.5 , 故驗算無誤 )


第二題
此級數的第 k 項 = (-1)^(k+1) * 4 / (2k-1)

程式碼:
-------------------------------------------------------------------
Sub PI()

S = 0

For k = 1 To 1000
S = S + (-1) ^ (k + 1) * 4 / (2 * k - 1)
Cells(k, 1) = S
Next

End Sub
-------------------------------------------------------------------