程式 (107 bytes)

ClrMemory : ? → A : ? → B : ? → C : – B ┘ ( 2 A → Y ◢ C – A Ans ² ◢ B ² – 4 A C → D ◢ ( √( D ) – B ) ┘ ( 2 A → B ◢ 2 Y – Ans → C ◢ Fix 0 : If √( D ) ≠ Rnd ( √( D : Then Y ◢ Lbl 1 : 1 M+ : √( D ÷ M → X : X ≠ Rnd( X ⇒ Goto 1 : X ┘ ( 2 A ◢ M : IfEnd : Norm 1

入Program教學:

使用教學

依次輸入 Ax² + Bx + C = 0中的 A, B, C (三項)

顯示

1. Vertex 頂點 (x, y)

2. Discriminant 判別式 Δ

3. Two roots 兩個根 (In Decimal 小數)

If above roots are irrational number, 若以上解是無理數的話，

4. Two roots 兩個根 (In surd form 以根式表示) (p ± q √r)

例題