K&R4-3用C语言实现逆波兰计算器

**逆波兰计算器**
**题目2：在对栈的操作中添加几个命令，用于：1 在不弹出元素的情况下打印栈顶元素**
**2. 复制栈顶元素 3. 交换栈顶两个元素的值 4. 清空栈**/
#include
#include
#include //使用atof函数 ，将字符串转化为double 类型 
#define MAXOP 100
#define MAXVAL 100
#define NUMBER '0' 

int getop(char[]);     
void push(double f);
double pop (void);
int getch(void);
void ungetch (int);
int sp=0;                //栈顶指针 
double val[MAXVAL];        //字符栈，储存输入的有效字符 
main()
{
    int type;
    double op2;
    char s[MAXOP];
    
    while ((type=getop(s))!=EOF){
        switch (type){
            case NUMBER:
                    push (atof(s));
                    break;
            case '+':{
                push (pop()+pop());
                break;
            }
            case '-':{
                op2=pop();
                push (pop()-op2);
                break;
            }
            case '*':{
                push (pop()*pop());
                break;
            }
            case '/':{
                op2=pop();
                if (op2!=0.0)
                    push (pop()/op2);
                else
                    printf ("ERROR: 0 DIVISOR");
                break;
            }
            case '%':{
                op2=pop();
                if (op2!=0.0)
                    push ((int)pop()%(int)op2);
                else
                    printf ("ERROR: 0 DIVISOR");
                break;
            }
            case 'p':{        //print打印栈顶元素的命令 
                printf ("\t%.8g\n",val[sp]);
                break;
            } 
            case 'c':{        //copy复制栈顶元素 
                val[sp+1]=val[sp];
                break;
            }
            case 's':{        //swap交换栈顶2个元素 
                val[sp+1]=val[sp-1];
                val[sp-1]=val[sp];
                val[sp]=val[sp+1];
                break;
            }
            case 'd':{        //delete清空栈 
                sp=0;
                break;
            }
            case '\n':
                printf ("\t%.8g\n", pop());
            default:
                printf ("ERROR: UNKNOWN COMMAND %s\n",s);
        }
    }
    return 0;
}

 

/**PUSH f onto value stack**/
void push (double f)
{
    if (sp         val[sp++]=f;
    else
        printf ("OUT OF MAXSTACK");
}

/**POP pop and return top value from stack**/
double pop (void)
{
    if (sp>0)
        return val[--sp];
    else 
        printf ("EMPTY STACK");
}
/***预读下一个输入的字符***/
int getop(char s[])
{
    int i,c;
    while ((s[0]=c=getch())==' '||c=='\t')
        ;
    s[1]='\0';
    if (!isdigit (c)&&c!='.')
        return c;
    i=0;
    if (isdigit(c))
        while (isdigit(s[++i]=c=getch()))
            ;
    if (c=='.')
        while (isdigit(s[++i]=c=getch()))
            ;
    s[i]='\0';
    if (c!=EOF)
        ungetch(c);
    return NUMBER;
}

#define BUFFSIZE 100
char buf[BUFFSIZE];
int bufp=0;

int getch(void)
{
    return (bufp>0)?buf[--bufp]:getchar();
}

void ungetch (int c)
{
    if (bufp>BUFFSIZE)
        printf ("ungetch:too many char\n");
    else 
        buf[bufp++]=c;
}