/>跟你的要求符合
#include "stdio.h"
#include "string.h"
#include "stdlib.h"
#define MAXLEN 100
typedef struct
{
char op;
int level;
}opt;
typedef struct //定义操作符栈
{
opt st[MAXLEN];
int top;
}op_stack;
typedef struct //定义值栈
{
double D[MAXLEN];
int top;
}D_stack;
//--------对栈操作的定义-------------
opt peek(op_stack *s) //定义看栈顶函数
{
opt error=;
if(s->top>=0)
return s->st[s->top];
else
return error;
}
int IsEmpty(op_stack *s) //定义判断栈空的函数
{
if(s->top<0)
return 0;
else
return s->st[s->top].op;
}
char push(op_stack *s,opt c) //定义入栈函数
{
s->top++;
s->st[s->top]=c;
return c.op;
}
opt pop(op_stack *s) //定义出栈函数
{
opt i;
opt error=;
if(s->top>=0)
{
i=s->st[s->top];
s->st[s->top].op='\0';
s->top--;
return i;
}
else
return error;
}
void clear(op_stack *s) //定义初始化栈
{
s->top=-1;
}
//-----------------------------define the value stack-----------------------
double Dpeek(D_stack *s) //定义看栈顶函数
{
if(s->top>=0)
return s->D[s->top];
else
return 0;
}
int DIsEmpty(D_stack *s) //定义判断栈空的函数
{
if(s->top<0)
return 0;
else
return (int)(s->D[s->top]);
}
double Dpush(D_stack *s,double c) //定义入栈函数
{
s->top++;
s->D[s->top]=c;
return c;
}
double Dpop(D_stack *s) //定义出栈函数
{
double i;
if(s->top>=0)
{
i=s->D[s->top];
s->D[s->top]='\0';
s->top--;
return i;
}
else return 0;
}
void Dclear(D_stack *s) //定义初始化栈
{
s->top=-1;
}
double calval(char *exp)
{
op_stack os; //定义两个栈
D_stack ds;
char tmp[MAXLEN]=;
int i=0,leng;
double dtmp,dpoptmp;
opt A=;
opt R=;
opt M=;
opt D=;
opt B=;
opt Mo=;
clear(&os);
Dclear(&ds);
//-----定义初始化结束-----
while(*exp!='\0')
{
while(*exp >= '0' && *exp <= '9' || *exp == '.')
{
while(*exp >= '0' && *exp <= '9' || *exp == '.')
{
tmp[i++]=*exp++;
}
dtmp=atof(tmp);
Dpush(&ds,dtmp);
leng=strlen(tmp);
for(i=0;i<leng;i++)
{
tmp[i]='\0';
}
i=0;
}
//-------------------------------
switch(*exp)
{
case '+' :
if(!IsEmpty(&os) || peek(&os).level < A.level)
{
push(&os,A);
*exp++;
}
else
{
while(IsEmpty(&os) && peek(&os).level>=A.level)
{
switch(pop(&os).op)
{
case '%':
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
case '+':
dpoptmp=Dpop(&ds)+Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '-':
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)-dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
push(&os,A);
*exp++;
}
break;
case '-':
if(!IsEmpty(&os) || peek(&os).level < R.level)
{
push(&os,R);
*exp++;
}
else
{
while(IsEmpty(&os) && peek(&os).level>=R.level)
{
switch(pop(&os).op)
{
case '%' :
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
case '+':
dpoptmp=Dpop(&ds)+Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '-':
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)-dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
push(&os,R);
*exp++;
}
break;
case '*':
if(!IsEmpty(&os) || peek(&os).level < M.level)
{
push(&os,M);
*exp++;
}
else
{
while(IsEmpty(&os) && peek(&os).level>=M.level)
{
switch(pop(&os).op)
{
case '%' :
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
push(&os,M);
*exp++;
}
break;
case '/':
if(!IsEmpty(&os) || peek(&os).level < D.level)
{
push(&os,D);
*exp++;
}
else
{
while(IsEmpty(&os) && peek(&os).level>=D.level)
{
switch(pop(&os).op)
{
case '%' :
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
push(&os,D);
*exp++;
}
break;
case '%':
if(!IsEmpty(&os) || peek(&os).level < Mo.level)
{
push(&os,Mo);
*exp++;
}
else
{
while(IsEmpty(&os) && peek(&os).level>=Mo.level)
{
switch(pop(&os).op)
{
case '%' :
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
push(&os,Mo);
*exp++;
}
break;
case '(':
push(&os,B);
exp++;
break;
case ')':
while(peek(&os).level!=-2)
{
switch(pop(&os).op)
{
case '%' :
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
case '+':
dpoptmp=Dpop(&ds)+Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '-':
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)-dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
pop(&os); //弹出 (
exp++;
break;
}
}
while(IsEmpty(&os))
{
switch(pop(&os).op)
{
case '%' :
dpoptmp=Dpop(&ds);
dpoptmp=(float)((int)Dpop(&ds)%(int)dpoptmp);
Dpush(&ds,dpoptmp);
break;
case '*' :
dpoptmp=Dpop(&ds)*Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '/' :
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)/dpoptmp;
Dpush(&ds,dpoptmp);
break;
case '+':
dpoptmp=Dpop(&ds)+Dpop(&ds);
Dpush(&ds,dpoptmp);
break;
case '-':
dpoptmp=Dpop(&ds);
dpoptmp=Dpop(&ds)-dpoptmp;
Dpush(&ds,dpoptmp);
break;
}
}
return Dpop(&ds);
}
void main()
{
char string[MAXLEN];
char *p=string;
printf("输入表达式:\n");
gets(p);
printf("%s=%f\n\n",string,calval(p));
}
