對於一元二次方程，學生是必學的。那麼有時候老師佈置的作業是沒有答案的，那家長查閱起來會很費事，總不能在計算一次吧。有時老師的資料也是沒有答案，也需要計算。那現在就寫一個簡單計算一元二次方程的源碼，源碼計算結果取整數，如有需要自行修改其他類型。
工具/原料
易語言軟件
方法/步驟
打開易語言，創建窗口。在啟動窗口分別添加1個按鈕、2個編輯框。如圖所示
雙擊“啟動窗口”跳至程序集，按圖示定義變量，編程時嚴格按照一元二次方程解題步驟來編程，如圖
編譯完成，調試運行，如圖所示，要是沒問題，保存編譯即可。
源碼如下：
.版本 2
編輯框2.內容 ＝ “”
a ＝ 到小數 (取文本中間 (編輯框1.內容, 1, 尋找文本 (編輯框1.內容, “x”, , 假))) ' 原形 a^2+bx-c=0
b ＝ 到小數 (取文本中間 (編輯框1.內容, 取文本長度 (到文本 (a) ＋ “x^2”) ＋ 1, 尋找文本 (編輯框1.內容, “x”, 取文本長度 (到文本 (a) ＋ “x^2”), 假)))
c ＝ 到小數 (取文本右邊 (編輯框1.內容, 取文本長度 (編輯框1.內容) － 倒找文本 (編輯框1.內容, “x”, , 假)))
.如果真 (a ≠ 1)
b ＝ b ÷ a
c ＝ c ÷ a
a ＝ 1
.如果真結束
編輯框2.加入文本 (“解 ∵ a=” ＋ 到文本 (a) ＋ “ b=” ＋ 到文本 (b) ＋ “ c=” ＋ 到文本 (c))
deta ＝ b × b － 4 × a × c
編輯框2.加入文本 (#換行符 ＋ “ ∴ △=b^(2)-4ac”)
編輯框2.加入文本 (#換行符 ＋ “ ∴ △=” ＋ 到文本 (b) ＋ “^(2)-4×” ＋ 到文本 (a) ＋ “×” ＋ 到文本 (b))
編輯框2.加入文本 (#換行符 ＋ “ ∴ △=” ＋ 到文本 (b × b) ＋ “-” ＋ 到文本 (4 × a × b))
編輯框2.加入文本 (#換行符 ＋ “ ∴ △=” ＋ 到文本 (deta))
編輯框2.加入文本 (#換行符 ＋ “ ∴ 根據求根公式得：”)
編輯框2.加入文本 (#換行符 ＋ “ x=(-b±(2)√△)/2a”)
編輯框2.加入文本 (#換行符 ＋ “ x=(” ＋ 到文本 (－b) ＋ “±” ＋ 到文本 (求平方根 (deta)) ＋ “)/” ＋ 到文本 (2 × a))
x1 ＝ (－b ＋ 求平方根 (deta)) ÷ 2 × a
x2 ＝ (－b － 求平方根 (deta)) ÷ 2 × a
.如果真 (deta ＝ 0) ' 判斷結果的兩種情況
編輯框2.加入文本 (#換行符 ＋ “ ∴ 解得：x1=x2=到文本 (x1)”)
.如果真結束
.如果真 (deta ＞ 0)
編輯框2.加入文本 (#換行符 ＋ “ ∴ 解得：x1=” ＋ 到文本 (x1) ＋ “ x2=” ＋ 到文本 (x2))
注意事項
如果不需要顯示步驟的話，直接用幾個小編輯框，會美觀些。