易语言计算器源码

2024年2月3日发(作者：)

.程序集 程序集1

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行

.局部变量 数字1, 文本型

.局部变量 数字2, 文本型

.局部变量 符号, 文本型

.局部变量 a, 文本型

标准输出 (, #换行符 ＋ “ 欢迎使用加减乘除计算器”)

.循环判断首 ()

标准输出 (, #换行符 ＋ #换行符 ＋ “请输入第一个数字：”)

数字1 ＝ 标准输入 ()

标准输出 (, “请输入第二个数字：”)

数字2 ＝ 标准输入 ()

标准输出 (, “请输入运算的符号：”)

符号 ＝ 标准输入 ()

.如果 (符号 ＝ “+”)

标准输出 (, “两数和为：” ＋ 到文本 (到数值 (数字1) ＋ 到数值 (数字2)))

.否则

.如果 (符号 ＝ “-”)

标准输出 (, “两数差为：” ＋ 到文本 (到数值 (数字1) － 到数值 (数字2)))

.否则

.如果 (符号 ＝ “*”)

标准输出 (, “两数积为：” ＋ 到文本 (到数值 (数字1) × 到数值 (数字2)))

.否则

.如果 (符号 ＝ “/”)

.判断循环首 (数字2 ＝ “0”)

标准输出 (, #换行符 ＋ “除数不能为零 请重新输入”)

数字2 ＝ 标准输入 ()

.判断循环尾 ()

标准输出 (, “两数商为：” ＋ 到文本 (到数值 (数字1) ÷ 到数值

(数字2)))

.否则

标准输出 (, “符号请选择+-*/中的一个”)

.如果结束

.如果结束

.如果结束

.如果结束

标准输出 (, #换行符 ＋ #换行符 ＋ “退出请按q键”)

a ＝ 标准输入 ()

.循环判断尾 (a ≠ “q” 且 a ≠ “Q”)

标准输出 (, #换行符 ＋ #换行符 ＋ #换行符 ＋持,欢迎再次使用!”)

延时 (2500)

返回 (0) ' 可以根据您的需要返回任意数值

感谢您对本产品的支 “