易语言计算器源码.doc

.程序集程序集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) ' 可以根据您的需要返回任意数值