一元二次方程(I)其它版本
程式編寫日期: 2008年1月20日
注意 : 若果不想記存兩根，程式中綠色部份可以不輸入。若果包含綠色程式碼，程式執行完結後可以按 RCL A及RCL B顯示兩根的值。 若要計複數根，請選複數模式輸入程式即可，當執行程式時，程式會自動進入複數模式。
第一個程式 (39 或 35 bytes，只計算兩根分數版，使用記憶A, B及C)
?→A: ?→B: ?→C: - B┘(2A→B:
B + √(B2 - C┘A→A◢ 2B - Ans→B
第二個程式 (39 或 35 bytes，只計算兩根小數版，使用記憶A, B及C)
?→A: ?→B: ?→C: - B÷(2A→B:
B + √(B2 - C÷A→A◢ 2B - Ans→B
第三個程式 (42 或 38 bytes，計算兩根及頂點小數版，使用記憶A, B, C及M)
?→A: ?→B: ?→M: -B÷(2A→C: AC2M-:
C+√(-A-1M→A◢ 2C - Ans→B
程式執行完結後按 RCL C 及 RCL M (顯示頂點坐標)
第四個程式 (39 bytes，分數版，若為無理數可顯示未化簡根式，使用記憶A, B及C)
?→A: ?→B: ?→C: - B┘(2A→B:
B2 - C┘A→C: B + √( C◢ B - √( C
若為無理數根，答案則為 B ±√C ，程式執行完結後可以按 RCL B及RCL C顯示B及C的數值，但要注意√C可能未經化簡，有可能要化簡及有理化。
第五個程式 (共47或 43 bytes， 計算判別式、兩根及頂點小數版，使用記憶為A, B, C及M)
?→A: ?→B: ?→M: -B÷( 2A→C: AC2M-:
- 4AM◢ C+√( -A-1M→A◢ 2C - Ans→B
程式先計算判別式，再計算兩根。
程式執行完結後按 RCL C 及 RCL M (顯示頂點坐標)。