沈阳航空工业学院
课 程 设 计
（说明书）
简单LISP 算术表达式计算器
班级 / 学号 *******-024 学 生 姓 名 田青林 指 导 教 师 贾亮
简单ＬＩＳＰ算术表达式计算器
一、 题目分析
本题目是设计一个简单的LISP算术表达式计算器。 简单LISP算术表达式（以下简称表达式）定义如下: (1) 一个0..9的整数；或者
(2) （运算符 表达式 表达式） 例如，6，（+45），（+（+25）8）都是表达式，其值分别为6，9和15。
算术表达式不同于普通的普通的表达式，不是简单的从左向右（或是从右向左）的计算， 它包含了算术运算符和算术量，计算的过程就是要根据算术运算符的优先关系将其所对应得量的每一位进行计算，最后得到结果。
初步思想是建立一个栈列，将变量存储进去，通过每步中对头两个算术量的求和，最后将结果存储到栈头，输出。运算的要点如下：
从左到右地扫描表达式
（1）扫描到操作数时,直接输出。
（2）第二次扫描到‘（’时进行递归调用，从头进行扫描。
（3）扫描到算术量时将其压入栈，并与前一个压入栈的算术量求和。 （4）最后的栈头元素即为所求。
二、 设计过程（程序流程图）
根据本课设题目的要求，本设计程序依据利用栈依次从里向外计算括号内数的思想设计成一个简单的LISP算术表达式计算器。该程序首先建立一个栈，通过PUSH函数和POP函数的入栈，出栈功能实现栈中元素“先进后出，后进先出”的特性。然后动态建立一大小为K的整型数组，把开辟的数组指针赋给a,从而实现栈函数的构造过程。然后再建立栈的对象，再建立一个字符型数组ch，然后向该数组输入表达式，最后进入表达式判断阶段。若LISP表达式为一操作数，则直接输出；若该表达式为运算符，则经过主函数的扫描计算，最终输出结果。
2.1栈的建立
这是一个子函数stack(int k=100)，首先建立一个足够大的栈，动态定义其大小为100，然后对其置空初始化，再根据判断其是否为空返回不同的值。其设计流程图如图1。
- 1 -
简单ＬＩＳＰ算术表达式计算器
返回top 开始 定义栈a 初始化栈a N 是否为空？ Y Top=-1 Top=big 图1：栈的建立
2.2入栈
这是一个子函数PUSH，首先赋给输入值k，再判断栈是否为非空，若为非空则将k压入栈中；若为满栈，则输出错误。其流程图如图2所示。
开始 输入k值 N !full( )？ Y a[top]=k top++ wrong push
返回 图2：PUSH函数
2.3出栈
- 2 -
简单ＬＩＳＰ算术表达式计算器
这是一个子函数POP，首先判断是否非空，若是则输出栈头元素a[top]，若不是，则返回0并参与运算。其设计流程图如图3所示。
开始
结束 返回a[top] 返回0 !empty( )？ top--
图3：POP函数
2.4构建函数
首先动态开辟一个大小为K的数组，然后把开辟数组的指针赋给a,然后将K-1赋给Big,将-1赋给Top，从而实现函数的构造过程，函数构造完毕，退出此进程，此段程序结束。其设计流程图如图4所示。
开始
动态开辟一个大小为k的数组 把开辟数组的指针赋给a big=k-1 top=-1 结束 图4：构建函数
2.5主函数
这是整个程序的核心所在。首先要建立一个栈V1，将所求表达式赋值给字符变
- 3 -
简单ＬＩＳＰ算术表达式计算器
量ch。接下来就是从头扫描字符，这也是一个循环的过程。若ch[i]不是‘（’，则直接入栈，若是则跳向下下个字符，；再判断是不是‘（’，若不是，则将ch[i]入栈，跳向下一个字符；再判断是不是‘（’，若还不是则入栈。这其中若是，若是则都要进行从头扫描。接下来进行一个总的判断“！=‘（’&&！=‘)’?”, 若成立，跳向下一字符，若不成立跳过本步；接下来判断是否为‘）’，若是则把入栈的两个元素出栈后相加再入栈，跳向下一字符。最后对此循环作一个判断，若ch[i]是0则接着进行循环，若不是则跳出循环输出栈顶元素，即为所求。其设计流程如图5所示。
三、调试过程及实验结果
3.1调试过程：
本程序在调试的过程中遇到了很多问题，首先程序中有不少的缀余成分，尤其是总循环的部分本来就是一个很复杂的逻辑问题，有缀余更是会使理解难上加难，这一部分是通过一步一步调试更正的。最后得到的程序能完成题目中所给的要求。主要的主函数的修改如下图所示。
修改前 修改后
3.2实验结果：
（1）运行程序之后，会看到一个如 图6所示的LISP计算器的界面，还可以看到题目要求、姓名、学号、指导老师等。这也是一个待输入界面。
- 4 -
简单ＬＩＳＰ算术表达式计算器 Y Y 开始 建立栈V1 i=0 输入ch N ch[i]!=0? Y ch[i]=='('? Y 输出v1.pop() N 结束 i=i+2 ch[i]='c'? N i=i+1 N ch[i]='c'? ch[i]!=')'？ 将ch[i]入栈 将ch[i]入栈 ch[i]!=')'&&ch[i]!='('？Y i=i+1 N ch[i]==')'? Y v1.push(v1.pop()+v1.pop()); i++ N 图5:主函数
- 5 -
简单ＬＩＳＰ算术表达式计算器
图6：计算器界面
（2）每一次输入数据以后，都要回车再输入ctrl+z，然后再回车，就能得到所需结果。这其中ctrl+z是结束流。首先计算6。如图7所示。
图7：计算“6”
- 6 -
简单ＬＩＳＰ算术表达式计算器
（3）计算（+45），如图8所示。
图8：计算（+45）
（4）计算（+（+（+12）（+34））（+（+56）（+78））），计算过程如图10所示。
- 7 -
简单ＬＩＳＰ算术表达式计算器
图10：计算（+（+（+12）（+34））（+（+56）（+78）））
四、结论
本程序十分简洁，且理解上也比较容易，完成了简单的算术表达式的计算问题，但是没能够实现其四则运算的问题，还有按照原思路应该是建立两个栈，一个存放数值，一个存放运算符，比较运算符的优先级然后对其控制的值作相应的运算。由于本人软件知识有限，所以得出的程序只是实现了片面的功能，对运算符采取了跳过的处理方式，只对表达式中的值作和，再输出。
经过了将近两周的软件课设，根据题目要求对源程序作了相当大的改动，这其中包括对缀余程序的删除，对错误程序的修正。另外程序参考了网上的模版，但其中不明白的地方有很多，问了很多人，也查阅了以前学过的关于栈的知识，最后也不是彻底的能弄明白。我对于我的程序不是很满意，因为这并不是一个简单的LISP计算器，计算器最起码能进行四则运算，但此计算器只能完成类似题目中所给的运算。虽然程序有些欠缺的地方，但毕竟是花了十多天的时间在程序上，收获还是很多的，算是对一学期的软件课作了一个总结，也从搜索资料中学会了运用图书馆和网络，总之软件课设使我受益匪浅，对以后的工作和学习都有很大的帮助。
五、程序清单
#includeint y=0; class stack{ public: stack(int k=100) {a=new int[k]; big=k-1; top=-1;} bool empty() { return top==-1; } bool full() { return top==big; } //入栈 void push(int k) {if(!full())
- 8 -
简单ＬＩＳＰ算术表达式计算器
a[++top]=k; else {cout<<\"wrong push\"<void main() {stack v1; char ch[100];cout<<\"本程序为简单的LISP算术表达式计算器，可以实现LISP加法表达式求值\"<cout<<\" \"<cout<<\" 正确格式的测试数据：6，（+45），（+（+25）8），（+2（+58））， \"<cout<<\" \"<cout<<\" 设计者： 张强 学号：2008040201122 \"<cout<<\" 请输入表达式数据： \"<>ch); int i=0;while(ch[i]!=0) {
if(ch[i]=='(') { i=i+2;
if(ch[i]=='(') continue;
v1.push(ch[i]-48); i++;
if(ch[i]=='(')
- 9 -
简单ＬＩＳＰ算术表达式计算器
continue;
v1.push(ch[i]-48); }
else if(ch[i]!=')') v1.push(ch[i]-48);
if(ch[i]!=')'&&ch[i]!='(') i++;
if(ch[i]==')') { v1.push(v1.pop()+v1.pop()); i++; } }
cout<<\"结果： \"<if(ch[i]!=')'&&ch[i]!='(') i++;if(ch[i]==')') { v1.push(v1.pop()+v1.pop()); i++; } }
cout<<\"结果： \"<- 10 -
