CASIO Fx3650計算機程式(15點)

歡迎就程式的錯誤或漏洞 / 推介程式(已編好、idea) / 等問題寄信給本人[email protected]。
Publish and Design by 阿不思．阿波佛. All rights reserved with KEITH Poon.
http://hk.geocities.com/keith200620062006/index.htm 一元二次方程 Quadratic Equations (6) 前言︰
所有程式均會把判別式(b2-4ac)和根存到D、X、Y。
如不想儲存數值省下6 byte，只要刪除→D→X→Y便行。
程式2和3如abc是整數，而根是有理數則以有理數顯示。 如 -X2+2X-1=0 請
輸入-1到A，2到B，-1到C便能夠得出答案，X可能等於1彧2。 程式 1 (41 Byte)
?→A：?→B：?→C：B2-4AC→D：(√D-B)2A→X◢-BA-X→Y
程式 2 (42 Byte)
?→A：?→B：?→C：B2-4AC→D：(√D-B)」(2A→X◢-B」A-X→Y
使用程式二建議先將計算機設為以假分數顯示 程式 3 (45 Byte)
?→A：?→B：?→C：B2-4AC→D：(√D-B)2A→X◢(-√D-B)2A→Y 程式三是較程式一準確的版本



2008-07-15 15:45:29 補充：
不懂入我的網頁有教

一元二次函數因子分解 ( 第二版 ) ( Factorization of Quadratic Function : Version 2 )
( 程式版本：1.3，最後更新日期 13 AUG 2007。)
注意：此程式可在 Casio FX-3650P / 3950P、Truly SC-185 及 Casio FX-50FH / 50F Plus 上使用。
這個程式會計算一元二次函數 ( Quadratic Function ) 的因式分解。
Casio FX-3650P / 3950P / Truly SC-185
程式組 116 bytes 1 Mem Clear : ? → A : ? → B : ? → C : 2 B2 – 4AC → C : ( √C – B ) ┘( 2A → X ◢ 3 -B ┘A – X → Y ◢ Lbl 1 : √X2 → B : 4 1 M+ : B = 0 => Goto 2 : MB – .5 : 5 Fix 0 : Rnd : Norm 1 : MB ≠ Ans => Goto 1 : 6 Lbl 2 : A ┘M → A : M M– ◢ -X Ans ◢ 7 Y → X : D = 0 => 1 → D => Goto 1 : A
MODE MODE MODE 2















( 上面的 => 是一個特別命令，在 P-CMD 程式命令選單可找到。┘是分數，按 a b/c，另外，M+ 和 M– 分別是按 M+ 和 SHIFT M+ 鍵。)
例：因式分解 ( Factorize ) f(x) = 6x2 – 20x + 16。

按 Prog，再按 1 至 4 選擇輸入程式位置 ( 必須和輸入程式時選擇的位置相同，此時計算機出現 A? )，再按 6 EXE (-) 20 EXE 16 EXE
顯示 2 ( 方程 f(x) = 0 的第一個根 First Root )
再按 EXE 顯示 4 ┘3 ( 方程 f(x) = 0 的第二個根 Second Root )
再按 EXE 顯示 1 ( 第一個因子 ( First Factor ) x 項的係數 )
再按 EXE 顯示 –2 ( 第一個因子的常數項 Constant Term )
再按 EXE 顯示 3 ( 第二個因子 ( Second Factor ) x 項的係數 )
再按 EXE 顯示 –4 ( 第二個因子的常數項 )
再按 EXE 顯示 2 ( 三個係數 coefficient 的最大公因子 )
亦即是說 6x2 – 20x + 16 = 2 ( x – 2 ) ( 3x – 4 )
注意：輸入的係數可以是整數、小數或分數 ( 不過，如果輸入分數，你必須使用第二代或以後的 FX-3650P / 3950P，否則程式可能會停止執行，屏幕一片空白 )。輸出的答案如果是小數可按 a b/c 嘗試轉為分數。
如果只需要因子分解式而不需要根的數值，可將程式第二組及第三組的 ◢ 改為：。
如果函數不能因子分解為有理數或整數因子，則計算機會出現錯誤 Math ERROR 或是顯示空白。在這情況下可按 AC 中止程式執行。