简单的lisp算术表达式计算器

《简单的lisp算术表达式计算器》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、简单ＬＩＳＰ算术表达式计算器沈阳航空工业学院课程设计（说明书）简单LISP算术表达式计算器班级/学号7402101-024学生姓名田青林指导教师贾亮-10-简单ＬＩＳＰ算术表达式计算器一、题目分析本题目是设计一个简单的LISP算术表达式计算器。简单LISP算术表达式（以下简称表达式）定义如下:(1)一个0..9的整数；或者(2)（运算符表达式表达式） 例如，6，（+45），（+（+25）8）都是表达式，其值分别为6，9和15。算术表达式不同于普通的普通的表达式，不是简单的从左向右（或是从右向左）的计算，它包含了算术运算符和算术量，计算的过程就是要根据算术运算符

2、的优先关系将其所对应得量的每一位进行计算，最后得到结果。初步思想是建立一个栈列，将变量存储进去，通过每步中对头两个算术量的求和，最后将结果存储到栈头，输出。运算的要点如下：从左到右地扫描表达式（1）扫描到操作数时,直接输出。（2）第二次扫描到‘（’时进行递归调用，从头进行扫描。（3）扫描到算术量时将其压入栈，并与前一个压入栈的算术量求和。（4）最后的栈头元素即为所求。二、设计过程（程序流程图）根据本课设题目的要求，本设计程序依据利用栈依次从里向外计算括号内数的思想设计成一个简单的LISP算术表达式计算器。该程序首先建立一个栈，通过PUSH函数和POP函数的入栈

3、，出栈功能实现栈中元素“先进后出，后进先出”的特性。然后动态建立一大小为K的整型数组，把开辟的数组指针赋给a,从而实现栈函数的构造过程。然后再建立栈的对象，再建立一个字符型数组ch，然后向该数组输入表达式，最后进入表达式判断阶段。若LISP表达式为一操作数，则直接输出；若该表达式为运算符，则经过主函数的扫描计算，最终输出结果。2.1栈的建立这是一个子函数stack(intk=100)，首先建立一个足够大的栈，动态定义其大小为100，然后对其置空初始化，再根据判断其是否为空返回不同的值。其设计流程图如图1。-10-简单ＬＩＳＰ算术表达式计算器开始定义栈a初始化栈

4、aN是否为空？YTop=bigTop=-1返回top图1：栈的建立2.2入栈这是一个子函数PUSH，首先赋给输入值k，再判断栈是否为非空，若为非空则将k压入栈中；若为满栈，则输出错误。其流程图如图2所示。开始输入k值N!full()？Ywrongpusha[top]=ktop++返回图2：PUSH函数2.3出栈-10-简单ＬＩＳＰ算术表达式计算器这是一个子函数POP，首先判断是否非空，若是则输出栈头元素a[top]，若不是，则返回0并参与运算。其设计流程图如图3所示。开始!empty()？返回0返回a[top]top--结束图3：POP函数2.4构建函数首先动

5、态开辟一个大小为K的数组，然后把开辟数组的指针赋给a,然后将K-1赋给Big,将-1赋给Top，从而实现函数的构造过程，函数构造完毕，退出此进程，此段程序结束。其设计流程图如图4所示。开始动态开辟一个大小为k的数组把开辟数组的指针赋给abig=k-1top=-1结束图4：构建函数2.5主函数-10-简单ＬＩＳＰ算术表达式计算器这是整个程序的核心所在。首先要建立一个栈V1，将所求表达式赋值给字符变量ch。接下来就是从头扫描字符，这也是一个循环的过程。若ch[i]不是‘（’，则直接入栈，若是则跳向下下个字符，；再判断是不是‘（’，若不是，则将ch[i]入栈，跳向下

6、一个字符；再判断是不是‘（’，若还不是则入栈。这其中若是，若是则都要进行从头扫描。接下来进行一个总的判断“！=‘（’&&！=‘)’?”,若成立，跳向下一字符，若不成立跳过本步；接下来判断是否为‘）’，若是则把入栈的两个元素出栈后相加再入栈，跳向下一字符。最后对此循环作一个判断，若ch[i]是0则接着进行循环，若不是则跳出循环输出栈顶元素，即为所求。其设计流程如图5所示。三、调试过程及实验结果3.1调试过程：本程序在调试的过程中遇到了很多问题，首先程序中有不少的缀余成分，尤其是总循环的部分本来就是一个很复杂的逻辑问题，有缀余更是会使理解难上加难，这一部分是通过一

7、步一步调试更正的。最后得到的程序能完成题目中所给的要求。主要的主函数的修改如下图所示。修改前修改后3.2实验结果：（1）运行程序之后，会看到一个如图6所示的LISP计算器的界面，还可以看到题目要求、姓名、学号、指导老师等。这也是一个待输入界面。-10-简单ＬＩＳＰ算术表达式计算器开始建立栈V1i=0输入chN输出v1.pop()ch[i]!=0?YN结束ch[i]=='('?Ych[i]!=')'？i=i+2ch[i]='c'?YN将ch[i]入栈i=i+1Nch[i]='c'?Y将ch[i]入栈Nch[i]!=')'&&ch[i]!='('？？Yi=i+1c

8、h[i]==')'?YNv1.push