對於一元二次方程,學生是必學的。那麼有時候老師佈置的作業是沒有答案的,那家長查閱起來會很費事,總不能在計算一次吧。有時老師的資料也是沒有答案,也需要計算。那現在就寫一個簡單計算一元二次方程的源碼,源碼計算結果取整數,如有需要自行修改其他類型。
工具/原料
易語言軟件
方法/步驟
打開易語言,創建窗口。在啟動窗口分別添加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))
注意事項
如果不需要顯示步驟的話,直接用幾個小編輯框,會美觀些。