扇形計算

扇形計算

程式編寫日期: 2007年12月21日

程式可以在已知扇形其中的最少兩個變數(半徑、中心角、弧長及面積)，計算未知變數。

程式 (97 bytes)

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

180÷π→X: A=0 => CD => 2D÷C→A◢

A=0 => XC÷B + √( 2XD÷B→A◢

B=0 => 2XD÷A² + A^-1XC(D=0→B◢

C=0 => AB÷X→C◢ AC÷2→D

註1: 執行程式，輸入扇形變數的次序為半徑、中心角、弧長、面積，不輸入數值(必要)代表未知數，即直接按EXE即可，而答案會依照輸入未知數時(直接按EXE)的次序顯示。

註2: 注意本程式的中心角以度數為單位，計數機的角度單位設定(Deg、Rad、Gra)不會影響本程式。若果你希望能夠以其它角度單位輸入及顯示答案，只要將程式第一行中的 180 改為 π^r 即可，那麼輸入及輸出中心角的角度單位將會與計數機角度單位設定相同。

註3: 程式不能計算變數為0或負數的情況。

例題1: 扇形的半徑為25 cm，中心角為216°，求弧長及面積。

按 Prog 1 再按 25 EXE 216 EXE

EXE EXE (不輸入弧長及面積，顯示弧長為94.248 cm)

EXE (顯示面積為 1178.10 cm²)

例題2: 扇形的半徑為25 cm，弧長為30π cm，求中心角及面積。

按 Prog 1 再按 25 EXE EXE (不輸入中心角) 30π EXE

EXE (不輸入面積，顯示中心角為216°)

EXE (顯示面積為 1178.10 cm²)

例題3: 扇形的半徑為25 cm，面積為1178.10 cm²，求中心角及弧長。

按 Prog 1 再按 25 EXE EXE EXE (不輸入中心角及弧長)

1178.1 EXE (顯示中心角為216°)

EXE (顯示弧長為 94.248 cm)

計算完結後按 AC 終止程式

例題4: 扇形的中心角為216°，弧長為 94.2478 cm，求半徑及面積。

按 Prog 1 再按 EXE (不輸入半徑) 216 EXE 94.2478 EXE

EXE (不輸入面積，顯示半徑為25 cm)

EXE (顯示面積為 1178.10 cm²)

例題5: 扇形的中心角為216°，面積為 1178.10 cm²，求半徑及弧長。

按 Prog 1 再按 EXE (不輸入半徑) 216 EXE EXE (不輸入弧長)

1178.1 EXE (顯示半徑為25 cm)

EXE (顯示弧長為 94.2479 cm)

計算完結後按 AC 終止程式

例題6: 扇形的弧長為94.2478 cm，面積為 1178.10 cm²，求半徑及中心角。

按 Prog 1 再按 EXE EXE (不輸入半徑及中心角)

94.2478 EXE 1178.1 EXE (顯示半徑為25 cm)

EXE (顯示中心角為 216°)

計算完結後按 AC 終止程式

註: 程式執行完結後按 RCL A、RCL B、RCL C及RCL D可顯示半徑、中心角、弧長及面積的數值。

附錄程式: 程式較簡短，答案亦有記存，程式執行完結後按 RCL A、RCL B、RCL C及RCL D可顯示半徑、中心角、弧長及面積的數值，但答案的顯示形式與上面程式不同，即是將四個變數(包括兩個答案)依次序顯示出來，我個人認為這種較差一點，因為會重複顯示已知的變數，但有些網友可能會覺得這樣較好。

附錄程式 (93 bytes)

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

180÷π→X: CD => 2D÷C→A:

A=0 => XC÷B + √( 2XD÷B→A:

B=0 => 2XD÷A² + A^-1XC(D=0→B:

A◢ B◢ AB÷X→C◢ AC÷2→D