? ? ? ? 我總是在想做些程序時沒有靈感，不想做時又發現驚喜。因此決定今天把靈感先記錄在這，以便日后尋找。

牛頓法解高次方程

界面內容：待補全系數的方程，確定精度z0，根附近的確定值x0。

邏輯：

1.組合方程，轉化為函數f(x)，求導f'(x)。

2.計算f'(x0)，f'(x0)=0?

2-1.是，彈出對話框：在該定值處切線水平，無法求解，結束。

2-2.否，繼續。

3.計算x1=x0—[f(x0)÷f'(x0)]。

4.計算當前精度z1=ABS[(x1—x0)÷x0]。

5.賦值，令x0=x1。

6.檢驗精度，z1≦z0?

6-1.否，循環執行23456。

6-2.是，繼續。

7.彈出對話框：方程f(x)=0，在精度z0下，在<輸入的x0>附近的近似解為x0。

8.結束。

二分法求近似N次方根(N為自然數)

界面內容：被開方數M，開次方N，精度z0，結果顯示。

邏輯：

1.判斷N是否為自然數，[N>0且就高取整(N)=N]?

1-1.否，結果顯示：N不為自然數，結束。

1-2.是，繼續。

2.判斷是否可開方，[就高取整(N÷2)=(N÷2)且M<0]?

2-1.是，結果顯示：不可開方，結束。

2-2.否，繼續。

3.增加兩個變量A0、A1，令A0=0、A1=M。

4.比較[(A0+A1)÷2]^N，與M。M較大？

4-1.是，令A0=[(A0+A1)÷2]，繼續。

4-2.否，但相等，結果顯示：[(A0+A1)÷2]。

4-3.否，不相等，令A1=[(A0+A1)÷2]，繼續。

5.檢驗精度，z0≧ABS(A0-A1)？

5-1.否，循環執行45。

5-2.是，結果顯示：[(A0+A1)÷2]。

6.結束。