Évaluateur d'expression

Soyez le premier à donner votre avis sur cette source.

Vue 3 542 fois - Téléchargée 230 fois

Description

Voici un petit exemple de prog pour évaluer une expression (ex:12*65). J'usqu'à maintenant, on ne peut pas avoir plus qu'un opérateur (on ne pourrais pas faire 12+12*6). J'aurais justement besoin d'aide pour élaborer un algo qui offrirait cette possibilité.

Source / Exemple :


//source commentée
//dans le zip

Conclusion :


Si vous voulez m'écrire: Xalamar@hotmail.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
63
Date d'inscription
samedi 22 décembre 2001
Statut
Membre
Dernière intervention
22 décembre 2003

Merci beaucoup nono, je vais pouvoir utiliser les cases. Merci aussi pour le protocole, je vais assayer d'améliorer...
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
C'est bien le début du principe général...

Tu devrais utiliser CharBuff et Operator de type Char plutôt qu'un type string, car Char étant de type Ordinal, il est possible de l'utiliser dans des ensemble et dans un case :
If Not (CharBuff In ['+','-','/','*'])...
Puis :
Case Operator Of
'+': edit1.Text:=inttostr(strtoint(buffer[0])+strtoint(buffer[1]));
'-': edit1.Text:=inttostr(strtoint(buffer[0])-strtoint(buffer[1]));
'*': edit1.Text:=inttostr(strtoint(buffer[0])*strtoint(buffer[1]));
'/': edit1.Text:=inttostr(strtoint(buffer[0])/strtoint(buffer[1]));
end;
Par contre on ne peut écrire CharBuff=Copy(Edit1.Text,Accu,1). Le mieux est de copier Edit1.Text dans une chaine, puis d'utiliser cette chaine comme un tableau :
Begin
Temp:=Edit1.Text;
...
While ...
CharBuff:=Temp[Accu];
...

Dans le principe général il faut décoder l'équation en deux temps : le première lit toute l'équation et stock les opérandes et opérateurs sous forme de pile. Cette procédure est généralement récursive pour la gestion des parenthèses. La vérifiation de la syntaxe est faite à ce moment. Puis si toute la ligne est lue sans problème une deuxième procédure dépile tous ce qui à été lu et effectue les opérations. Les contrôles de validités sont effectués à ce moment ( division par zéro par exemple... ).

Nono.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.