支持变量运算的计算器

这的应该在前面，所用到的库函数：
#include<stdio.h>
#include<math.h>
#include<ctype.h>
#include<string.h>
#include<stdlib.h>
#include<bios.h>
#include<dos.h>

本文件实现变量的操作，名为：bianliang.c因为英语不好只好用拼音
struct bl
{char name[16];
double x;
struct bl *next ;
}*head=NULL,*end=NULL;

add(char *name,double y)
{struct bl *new;
 if(find(name)==1)
{
printf("%s :bian biang is haved!!\n",name);
return 0;
}

new=(struct bl*)(malloc(sizeof(struct bl)));
if(new!=0)
 {
strcpy(new->name,name);
(new->x)=y;
if(head==NULL){end=head=new;head->next=NULL;}
else
{
end->next=new;
end=new;
new->next=NULL;}
 }
else
 printf("have not enemy meaony!!");


}

delete(char *name)
{
struct bl *p1,*p2;
p2=p1=head;
while(strcmp(p1->name,name)!=0&&p1->next!=NULL)
{
p2=p1;
p1=p1->next;
}

if(strcmp(p1->name,name)==0)
{
p2->next=p1->next;
free(p1);
}
else
printf("have not the bianliang !!\n");
}

setvalue(char *name,double x)
{
struct bl *p;
p=head;
while(strcmp(p->name,name)!=0&&p->next!=NULL)p=p->next;
if(strcmp(p->name,name)==0) p->x=x;
else
add(name,x);
}

double vgetvalue(char *name)
{
struct bl *p;
p=head;
while(strcmp(p->name,name)!=0&&p->next!=NULL)p=p->next;

if(strcmp(p->name,name)==0)
 return(p->x);
else
{add(name ,0);
return 0;}

}
clear()
{
struct bl *p1,*p2;
p1=head;
head=NULL;
end=NULL;
while(p1!=NULL)
{
p2=p1->next;
free(p1);
p1=p2;
}
}


showall()
{
struct bl *p;
p=head;
while(p!=NULL)
 { printf("%10s\t%f\n",p->name,p->x );
p=p->next;
 }
return 0;
}

find(char *name)
{
struct bl *p1;
p1=head;
while(strcmp(p1->name,name)!=0&&p1->next!=NULL)
p1=p1->next;

if(strcmp(p1->name,name)==0)
return 1;
else
return 0;

}

这个文件是运算符的操作：opr.c

char opr[7][7]={
{'>','>','<','<','<','>','>'},
{'>','>','<','<','<','>','>'},
{'>','>','>','>','<','>','>'},
{'>','>','>','>','<','>','>'},
{'<','<','<','<','<','=',''},
{'>','>','>','>','>','>','>'},
{'<','<','<','<','<','<','='},
};


getoprvalue(char c)
{int v=-1;
switch©
{case '+':v=0;break;
case '-':v=1;break;
case '*':v=2;break;
case '/':v=3;break;
case '(':v=4;break;
case ')':v=5;break;
case '':v=6;break;
defualt:v=-1;
}
return v;
}
char cmpopr(char c1,char c2)
{
return(opr[getoprvalue(c1)][getoprvalue(c2)]);
}

这个文件得用上面的几个文件实现
对一字符串进行变量认识和数值字符转换：getvalue.c


#include"wenjie\head.c"
#include"wenjie\stack.c"
#include"wenjie\bianliang.c"

respace(cstack *s)/*去空格*/
{
while(cgettop(s)==' ')cpop(s);

}


char *getname(cstack *s1,char *c)
{int i=0;
respace(s1);
while(isalnum(cgettop(s1))) c[i++]=cpop(s1);
c[i]=0 ;
cbiger©;
return c;
}



 cbiger(char *c)
{


do{
if (*c>='a'&&*c<='z')
*c-=32;
 c++;
 }while(*c);
}



 double getdata(cstack *s1)
{double x=0;

int i=0;

while(isdigit(cgettop(s1)))x=x*10+cpop(s1)-'0';

if(cgettop(s1)=='.')
{cpop(s1);
while(isdigit(cgettop(s1))) x+=(cpop(s1)-'0')/pow(10,++i);
}

return(x);
}

double getvalue (cstack * s1)
{char ch,name[16];
ch= cgettop(s1);
if (isalpha(ch))
{
getname(s1,name);
return(vgetvalue(name));
}
else
return getdata(s1);
}

这是用来对堆栈里的字符串识别
并进+，-，*，/，（）运算：cl.c
#include"wenjie\opr.c"
 #include"wenjie\getvalue.c"
double js(double x,double y,char c)
{switch©
{case '+':return x+y;
case '-':return x
-y;
case '*':return x*y;
case '/':return x/y;
};
}


double cl(cstack *s1)
{cstack opr;
fstack data;
char ch,op;
double x,y;
finitstack(&data);
cinitstack(&opr);
cpush(&opr ,'');
ch=cgettop(s1);
while(!cisempty(&opr))
{
if (getoprvalue(ch)==-1)
{
if (isalnum(ch)) {
x=getvalue(s1);
fpush(&data,x);

}
else cpop(s1);

ch=cgettop(s1);

}
else
 { switch(cmpopr(cgettop(&opr),ch))
{case '<':

cpush(&opr,ch);
cpop(s1);
ch=cgettop(s1);
break;
case '=':

cpop(&opr);
cpop(s1);
ch=cgettop(s1);
break;
case '>':

y=fpop(&data);
x=fpop(&data);
op=cpop(&opr);
fpush(&data,js(x,y,op));

break;
}
 }
}
return fgettop(&data);

}

这个是主文件
利用上面文件提供的功能进行命令接收和处理：comm.c
 #include"wenjie\CL.c"
main()
{char command[80],name[16],c1[16],c2[16];
cstack s1;
clrscr();
cinitstack(&s1);

gets(command);
do{
stos(&s1,command);
if(isalpha(cgettop(&s1)))
{ getname(&s1,name);
if(strcmp(name,"PRINT")==0)
printf("%g\n",cl(&s1));
else if(strcmp(name,"EXIT")==0)
exit(0);
else if(strcmp(name,"DELETE")==0)
{
getname(&s1,c1);
delete(c1);
}
else if(strcmp(name,"CLEAR")==0)
clear();
else if(strcmp(name,"SHOWALL")==0)
showall();
else
{  respace(&s1);
  if(cgettop(&s1)=='=')
  {
setvalue(name,cl(&s1));
}
  else
  {
s1.begin=0;
  respace(&s1);
  printf("%g\n",cl(&s1)); 
}
}
}else printf("%g\n",cl(&s1)) ;


gets(command);


}while(1);
}

是不是太长了
还没有注释，
而且我还是个新用写的很乱
能实现功能已很不错了

应该鼓励一下。不错�

谢谢
大哥�