球體計算 (Sphere calculation)

程式由網友 tony200910041 提供。

更新日期: 2012年7月16日

程式可以在已知球體其中的最少一個變數(半徑、表面面積、及體積),計算未知變數。

注意 : 若果不想記存答案,程式中綠色部份可以不輸入。

程式一(51 或 55 bytes)

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

B => √(B÷D→A◢ C => 3√(3C÷D→A◢

B=0 => DA2→B◢ DA3÷3→C

 

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

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

註3: 程式如有綠色的程式碼,則半徑、表面面積、及體積會分別儲存在記憶A、B及C中。

 

例題1: 球體的半徑為5 cm,求球體的表面面積及體積。

按 Prog 1 再按 5 EXE

EXE EXE (不輸入面積及體積,顯示面積為314.16 cm2 )

EXE (顯示體積為 523.60 cm3 )

 

例題2: 球體的表面面積為314.16 cm2,求球體的半徑及體積。

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

EXE (不輸入體積,顯示半徑為5 cm)

EXE (顯示體積為 523.60 cm3 )

 

例題3: 球體的體積為523.60 cm2,求球體的半徑及面積。

按 Prog 1 再按 EXE EXE (不輸入半徑及面積)

523.6 EXE (顯示半徑為5 cm)

EXE (顯示面積為314.16 cm2 )

計算完結後按 AC 終止程式

 

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

Free Web Hosting