M语言，Cache数据库（第一个计算器算法，哭)

chu_jian86a

于 2018-10-20 18:59:52 发布

阅读量1.8k

点赞数 3

CC 4.0 BY-SA版权

分类专栏：缘分吧文章标签：计算器 M语言 Cache数据库

本文链接：https://blog.youkuaiyun.com/chu_jian86a/article/details/83215891

我的计算器（calculateV1 ）

main ; 主循环函数
	do {
		do input()
		quit:(num1 = "")
	}
	while num1'=""
	quit

///输入
input() [num1,num2,operator1,operator2,result,flag,ArrPri] {
	for{
		for{
		read !, "请输入数字：", num1
		quit:num1=""
		set result = num1
		set flag = $$isNum(num1) ;判定算式格式是否正确
		quit:flag=1
		}
		quit:num1=""
		for{
		read !, "请输入运算符：", operator1
		quit:operator1=""
		set flag = $$isOperator(operator1) ;判定算式格式是否正确
		quit:flag=1
		}
		if (operator1?1"="){
			write !, "运算结果为："
			write result
			kill
			set num1 = ""
			;quit
		}else{
			quit
		}
	}	
	for{
		for{
		read !, "请输入数字：", num2
		;quit:num2=""
		set flag = $$isNum(num2) ;判定算式格式是否正确
		quit:flag=1
		}
		;quit:num2="" 
		for{
		read !, "请输入运算符：", operator2
		set flag = $$isOperator(operator2) ;判定算式格式是否正确
		quit:flag=1
		}
		
		do prior
		
		if ArrPri(