正整數冪二項式定理(I)

更新日期: 2014年8月1日

注意: 紅色 nCr 是按 Shift ÷ 及計算機只會顯示粗體的C字。

程式一 (35 bytes)

ClrMemory: ?→A: ?→B: ?→C:

While 1: C nCr M × B^(M)A^(C-M◢ 1M+: WhileEnd

 

程式二由網友  tony200910041提供。

程式二 (36 bytes,使用記憶A、B、C及D)

?→A:?→B:?→C:

For 0→D To C: C nCr D × B^(D)A^(C-D◢ Next: 0

 

註1: 如果是使用fx-50FH,上述兩個程式中的乘號 ×可以省略不輸入,程式長度可節省1 byte。

註2: 程式一若果想保留一些記憶用作儲存臨時數據,可將程式中"ClrMemory"改為"MM-",而程式所使用的記憶為A,B,C及M。

 

例題: 展開 (3x - 2y)4

 按 Prog 1  再按 3 EXE - 2 EXE 4 EXE (顯示第一個係數為81) EXE (顯示第二個係數為-216)

EXE (顯示第三個係數為216) EXE (顯示第四個係數為-96) EXE (顯示第五個係數為16)

EXE (出現Error(程式一)或0(程式二),表示計算已完結)

因此,(3x - 2y)4 = 81x4 - 216x3y + 216x2y2 - 96xy3 + 16y4

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

 

Free Web Hosting