圓方程轉換

程式碼(MODE 1，74 bytes)：

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

A=0=>Goto 1:- B┘( 2A→B◢ - C┘( 2A→C◢

√( B2 + C2 - D┘A◢:

Lbl 1:-2B◢-2C◢B2 +C2 - D2

本程式有兩種模式

模式1的作用是從General Form（一般式）圓形方程中找到圓心座標(h,k)和半徑 r

圓方程的輸入形式為Ax2 + Ay2 + Dx + Ey + F = 0

輸入1是A，輸入2是D，輸入3是E，輸入4是F

輸出1是圓心x座標，輸出2是圓心y座標，輸出3是圓形半徑，顯示Syntax ERROR（代表程式結束，按AC返回主頁面）

例題: 求圓的圓心及半徑: x2 + y2 – 4x + 6y – 12 = 0。

進入Program，輸入 1 (x2及y2的係數) EXE

- 4 EXE 6 EXE - 12 EXE (顯示2) EXE (顯示-3，即圓心為(2,-3))

EXE (顯示圓的半徑為5) EXE (顯示Syntax ERROR，代表程式結束，按AC返回主頁面）

模式2的作用是從圓心座標(h,k)和半徑中找到General Form（一般式）圓形方程

輸入1是空白(直接按EXE)，輸入2是圓心x座標，輸入3是圓心y座標，輸入4是圓形半徑

輸出1是D，輸出2是E，輸出3是F

例題: 求圓心為（2，-3）及半徑為5的圓形方程。

進入Program，輸入  EXE (不輸入代表執行模式2)

2 EXE -3 EXE 5 EXE (顯示-4) EXE (顯示6)

EXE (顯示-12) （即圓形方程為x2 + y2–4x + 6y–12 = 0)