tính giá trị biểu thức toán học bất kỳ, giống máy tính casio

lập trình c/c++ tính giá trị của 1 biểu thức bất kỳ, giông máy tính casio

#include<iostream>
#include<time.h>
using namespace std;
long tinh(char *s)
{
char a[100],dau[100],b[100],e[100];
int i,d=0;
for(i=0;i<strlen(s);i++) if(s[i]=='+' || s[i]=='-' || s[i]=='*' || s[i]=='/' || s[i]=='(' || s[i]==')') dau[d++]=s[i];
if(d==0) return atol(s);
for(i=0;i<d;i++) 
{
if(dau[i]!='*' && dau[i]!='/') 
{
int m,j;
char c;
for(m=0;m<strlen(s);m++)
{
if(s[m]=='+' || s[m]=='-' || s[m]=='('){c=s[m]; break;}
a[m]=s[m];
}
a[m]='\0';
if(c=='+' || c=='-')
{
int dd=0;
for(j=m+1;j<strlen(s);j++) b[dd++]=s[j];
b[dd]='\0';
if(c=='+') return tinh(a)+tinh(b);
else
{//doi dau chuoi b
j=0;
while(j<strlen(b))
{
while(b[j]!='(' && j<strlen(b))
{
if(b[j]=='+') b[j]='-';
else if(b[j]=='-') b[j]='+';
j++;
}
j++;dd=1;
while(j<strlen(b))
{
if(b[j]=='(') dd++;
if(b[j]==')') dd--;
if(dd==0) break;
j++;
}
j++;
}
return tinh(a)-tinh(b);
}
}
else if(c=='(')
{
char c1,c2,c3,a1[100],a2[100],a3[100],a4[100];
int p1,p2,p3,p4,dem=1;
p1=m;p2=p1+1;
while(p2<strlen(s))
{
if(s[p2]=='(') dem++;
else if(s[p2]==')') dem--;
if(dem==0) break;
p2++;
}
p4=0;
for(p3=p1+1;p3<p2;p3++) a2[p4++]=s[p3];
a2[p4]='\0';

p1--;
c1=s[p1];
for(p3=0;p3<p1;p3++) a1[p3]=s[p3];
a1[p3]='\0';

c2=s[p2+1];
if(c2=='*' || c2=='/')
{
p2+=2;
p4=0;
loop:;
while(p2<strlen(s) && s[p2]!='-' && s[p2]!='+' && s[p2]!='(') a3[p4++]=s[p2++];
if(s[p2]=='(')
{
p3=p2+1;
dem=1;
while(p3<strlen(s))
{
if(s[p3]=='(') dem++;
else if(s[p3]==')') dem--;
if(dem==0) break;
p3++;
}
for(p1=p2;p1<=p3;p1++) a3[p4++]=s[p1];
p2=p3+1;
goto loop;
}
a3[p4]='\0';
c3=s[p2];
p2++;p4=0;
while(p2<strlen(s)) a4[p4++]=s[p2++];
a4[p4]='\0';
}
else
{
c3=c2;
a3[0]='\0';
p4=0;p2+=2;
while(p2<strlen(s)) a4[p4++]=s[p2++];
a4[p4]='\0';
}
if(c3=='-')
{
p4=0;
while(p4<strlen(a4))
{
while(a4[p4]!='(' && p4<strlen(a4))
{
if(a4[p4]=='+') a4[p4]='-';
else if(a4[p4]=='-') a4[p4]='+';
p4++;
}
p4++;dem=1;
while(p4<strlen(a4))
{
if(a4[p4]=='(') dem++;
if(a4[p4]==')') dem--;
if(dem==0) break;
p4++;
}
p4++;
}
}
long k=tinh(a2);
if(strlen(a1)>0)
{
if(c1=='*') k=tinh(a1)*k;
else if(c1=='/') k=tinh(a1)/k;
}
if(strlen(a3)>0)
{
if(c2=='*') k=k*tinh(a3);
else if(c2=='/') k=k/tinh(a3);
}
if(strlen(a4)>0)
{
if(c3=='+') k=k+tinh(a4);
else if(c3=='-') k=k-tinh(a4);
}
return k;
}
}
}
char c;
for(i=0;i<strlen(s);i++)
{
if(s[i]=='*' || s[i]=='/') break;
a[i]=s[i];
}
a[i]='\0';
long kq=atol(a);
c=s[i];
i++;
while(i<strlen(s))
{
d=0;
while(s[i]!='*' && s[i]!='/' && i<strlen(s)) a[d++]=s[i++];
a[d]='\0';
if(c=='*') kq*=atol(a);
else kq/=atol(a);
c=s[i];
i++;
}
return kq;
}
void xuly(char *s,int x)
{
char a[100],b[100];
int i,j,m;
ltoa(x,a,10);
if(s[0]=='x')
{
for(i=0;i<strlen(a);i++) b[i]=a[i];
for(j=1;j<strlen(s);j++) b[i++]=s[j];
b[i]='\0';
for(i=0;i<strlen(b);i++) s[i]=b[i];
s[i]='\0';
}
for(i=1;i<strlen(s);i++)
{
if(s[i]=='x')
{
if(s[i-1]>='0' && s[i-1]<='9')
{
for(j=0;j<i;j++) b[j]=s[j];
b[j++]='*';
for(m=0;m<strlen(a);m++) b[j++]=a[m];
for(m=i+1;m<strlen(s);m++) b[j++]=s[m];
b[j]='\0';
for(j=0;j<strlen(b);j++) s[j]=b[j];
s[j]='\0';
}
else
{
for(j=0;j<i;j++) b[j]=s[j];
for(m=0;m<strlen(a);m++) b[j++]=a[m];
for(m=i+1;m<strlen(s);m++) b[j++]=s[m];
b[j]='\0';
for(j=0;j<strlen(b);j++) s[j]=b[j];
s[j]='\0';
}
}
}
}
void bang(char *a,char *b)
{
int i;
for(i=0;i<strlen(b);i++) a[i]=b[i];
a[i]='\0';
}
void main()
{
FILE *t1=fopen("bai1.inp","r");
FILE *t2=fopen("bai1.out","w");
if(t1==NULL || t2==NULL) exit(0);
char s[1000],a[1000];
long n,x,gt;
fgets(s,100,t1);
fscanf(t1,"%ld",&n);
for(int i=1;i<=n;i++)
{
bang(a,s);
fscanf(t1,"%ld",&x);
xuly(a,x);
gt=tinh(a);
fprintf(t2,"%ld ",gt);
}
fcloseall();
}