球體計算 (Sphere calculation)
程式由網友 tony200910041 提供。
更新日期: 2012年7月16日
程式可以在已知球體其中的最少一個變數(半徑、表面面積、及體積)，計算未知變數。
注意 : 若果不想記存答案，程式中綠色部份可以不輸入。
程式 (51 或 55 bytes)
Mem clear: ?→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 終止程式