ROUTINE DE CALCUL (DEVCPP)

#include <iostream.h>
#include <math.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>


/* Fonction de valeur en chaine */
void str(double source, char *dest);
int instr( int depart, char *data, char chaine);
char *calcul(char *source);

void str(double source, char *dest)
{
   char resultat[50]="";double ent;double dec;char decimale[50]="";
   char deci[50]="";char entier[50]="";int nbr1,nbr2;int bcl;
   dec=modf(source,&ent);
   if (ent!=0)
   {
      ltoa((long)source,entier,10);
   }
   if (dec!=0)
   {
      dec=ceil(dec*pow(10,8));
      nbr1=(int) (log10(dec)+1);
      strcat(decimale,".");nbr1=8-nbr1;
      for (bcl=0;bcl<nbr1;++bcl)
      {
         strcat(decimale,"0");
      }
      ltoa((long)dec,deci,10);strcat(decimale,deci);
   }
   strcat(resultat,entier);
   strcat(resultat,decimale);
   strcpy(dest,resultat);
}





/* fonction de recherche de caractere*/
int instr( int depart, char *data, char chaine)
{
 int resultat=0;
 resultat=strpbrk(data, &chaine)-data;
/* if (resultat<0)resultat=0;*/
 return resultat;
}

char *calcul(char *source)
{
   char  *dest;
   char  op[]={"^/*+()"};
   int   nbop, pos, bcl1=0;
   char  gauche[200];
   char  droite[200];
   char  donnee1[200];
   char  donnee2[200];
   char  milieu[200];
   float gau,droi,mil,res;
   char  resultat[200]="";

   dest=&resultat[0];

for (bcl1=strlen(op)-1;bcl1>=0;bcl1--)
{
    if (instr(0, source, op[bcl1])>=0)
    {
       pos = instr(1, source, op[bcl1]);
               strcpy(gauche,"");
               strcpy(droite,"");
               strcpy(resultat,"");
               strncat(gauche,source,pos);
               strcpy(droite,source+pos+1);

       switch (op[bcl1])
       {
         case '^':
         strcpy(gauche,calcul(gauche));
         strcpy(droite,calcul(droite));
         gau=atof(gauche);droi=atof(droite);
         res=pow(gau,droi);str(res,resultat);
         strcat(resultat,"\0");
         return dest;
/*         strcpy(dest,resultat);return dest;*/


         case '+':
         strcpy(gauche,calcul(gauche));
         strcpy(droite,calcul(droite));
         gau=atof(gauche);droi=atof(droite);
         res=gau+droi;str(res,resultat);
         strcat(resultat,"\0");
         return dest;
/*         strcpy(dest,resultat);return dest;*/


         case '/':
         strcpy(gauche,calcul(gauche));
         strcpy(droite,calcul(droite));
         gau=atof(gauche);droi=atof(droite);
         res=gau/droi;str(res,resultat);
         strcat(resultat,"\0");
         return dest;
/*         strcpy(dest,resultat);return dest;*/


         case '*':
         strcpy(gauche,calcul(gauche));
         strcpy(droite,calcul(droite));
         gau=atof(gauche);droi=atof(droite);
         res=gau*droi;str(res,resultat);
         strcat(resultat,"\0");
         return dest;
/*         strcpy(dest,resultat);return dest;*/


         case ')':
         strcpy(gauche,calcul(gauche));
         strcat(resultat,"");
         strcat(resultat,gauche);
         strcat(resultat,droite);
         strcat(resultat,"\0");
         return calcul(dest);
/*         strcpy(dest,resultat);return dest;*/


         case '(':
         strcpy(droite,calcul(droite));
         strcat(resultat,"");
         strcat(resultat,gauche);
         strcat(resultat,droite);
         strcat(resultat,"\0");
         return calcul(dest);
/*         strcpy(dest,resultat);return dest;*/
       }
       break;
    }
if (strcmp(resultat,"")==0) strcpy(resultat,source);
/*strcpy(dest,resultat);*/
}


strcat(resultat,"\0");
return dest;

}


void main()
{
int i;
char data[100];
for (;i=1;)
{
cin >> data;
printf("\n=%s ",calcul(data));
cout <<"\n";
}
system("PAUSE");
}