一元二次及聯立二元一次方程(I)

一元二次及聯立二元一次方程(I)

程式編寫日期: 2007年10月3日

這個程式可以計算一元二次方程的判別式及實根，亦可以解聯立二元一次方程。由於將兩個程式整合為一，所以可節省一個程式位置。另外若果輸入數據為整數(或分數)及答案為有理數時，答案會以分數形式表示，建議將計數機預先設定為假分數形式表示(按 SHIFT SETUP → → 2 )。

程式在 COMP 模式下執行，因此在選擇新程式位置後，按 1 選用COMP模式。

注意 : 若果不需要記存聯立二元一次方程的答案，程式中綠色部份可以不輸入。

程式編寫日期: 2006年3月4日

程式 (89 / 85 bytes)

?→A: ?→B: ?→C: B² - 4AC→D: (√( Abs( Ans ) ) - B)┘(2A→X:

-B┘A - Ans→Y: ?→D: ?→X: ?→Y: AX - DB→M:

(CX - YB)┘M→X◢ (AY - DC)┘M→Y

例題1: 解 x² - 7x + 12 = 0

按 Prog 1 再按 1 EXE - 7 EXE 12 EXE (顯示判別式為 1)

EXE (顯示第一個實數根為 4) EXE (顯示第二個實數根為 3)

∴ x = 4 或 x = 3

計算完結後按AC 終止程式，判別式及兩根的數值分別儲存在記憶D、X及Y。

例題2: 解 x² + 6x + 25 = 0

假設程式是在複數模式中輸入

按 Prog 1 再按 1 EXE 6 EXE 25 EXE (顯示判別式為 - 64，表示無實解)

計算完結按AC 終止程式。

註: 若判別式為負數表示無實解，繼續執行程式顯示的數值不是根的解答。

例題3: 解聯立方程 :

按 Prog 1 再按 1 EXE 1 EXE 7 EXE 1 EXE - 1 EXE 1 EXE (顯示4) EXE (顯示3)

因此解答為 x = 4 及 y = 3.

程式執行完成後，按 RCL X 、RCL Y及RCL M分別顯示x的值、y的值及方程組行列式的值。

註: 第一個輸入的係數不可以是零。