易语言怎样做出这样能解方程的计算器?(不需要手机版,电脑版即可),有源码最好

2025-04-16 05:45:23
推荐回答(1个)
回答1:

我没有办法做成这样,但我有解方程的算法……算法很麻烦,尤其是一元二次方程。

但是这样的负次的方程……貌似有点难哦。

你要什么源码?可以给你发上来,追问就好。

先贴一个解一元二次方程:

.版本 2

.子程序 算法_解一元二次方程, 整数型, 公开, 解形如ax2+bx+c=0的一元二次方程。有两不相等实数根返回2,两变量赋值;有两相等实数根返回1,两变量赋值相等;没有实数根返回0,两变量赋值0。
.参数 参数a, 双精度小数型
.参数 参数b, 双精度小数型
.参数 参数c, 双精度小数型
.参数 存放根1的变量, 双精度小数型, 参考
.参数 存放根2的变量, 双精度小数型, 参考
.局部变量 方程参数a, 双精度小数型
.局部变量 方程参数b, 双精度小数型
.局部变量 方程参数c, 双精度小数型
.局部变量 判别式, 双精度小数型

' 给方程赋值。
方程参数a = 参数a
方程参数b = 参数b
方程参数c = 参数c
' 采用的是公式法,所以要先判断判别式的正负情况。

判别式 = 方程参数b × 方程参数b - 4 × 方程参数a × 方程参数c
.如果真 (算法_取正负 (判别式) = -1)
    存放根1的变量 = 0
    存放根2的变量 = 0
    返回 (0)
.如果真结束
.如果真 (算法_取正负 (判别式) = 0)
    存放根1的变量 = 方程参数b ÷ (2 × 方程参数a)
    存放根2的变量 = 方程参数b ÷ (2 × 方程参数a)
    返回 (1)
.如果真结束
.如果真 (算法_取正负 (判别式) = 1)
    存放根1的变量 = (方程参数b + 判别式) ÷ (2 × 方程参数a)
    存放根1的变量 = (方程参数b - 判别式) ÷ (2 × 方程参数a)
    返回 (2)
.如果真结束
返回 (0)

.子程序 算法_取正负, 整数型, 公开, 负值返回-1,0返回0,正值返回1。
.参数 欲判断正负情况的数值, 双精度小数型

.如果真 (欲判断正负情况的数值 = 0)
    返回 (0)
.如果真结束
.如果 (取绝对值 (欲判断正负情况的数值) = 欲判断正负情况的数值)  ' 如果取绝对值以后与原来的数相等,那么就是正数,否则就是负数。
    返回 (1)
.否则
    返回 (-1)
.如果结束

这是我写的模块里的一部分代码……统一格式见谅哦。