易语言计算 一元二次方程，并且显示各步骤答案

1、打开易语言，创建窗口。在启动窗口分别添加1个按钮、2个编辑框。如图所示

2、双击“启动窗口”跳至程序集，按图示定义变量，编程时严格按照一元二次方程解题步骤来编程，如图

3、编译完成，调试运行，如图所示，要是没问题，保存编译即可。

4、源码如下：

.版本 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))