EVALUATION D' EXPRESSIONS MATHÉMATIQUE (MÉTHODE RPN)

yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017 - 6 janv. 2011 à 08:56
cs_barbichette Messages postés 220 Date d'inscription lundi 30 octobre 2000 Statut Membre Dernière intervention 15 juillet 2013 - 25 janv. 2011 à 16:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/52680-evaluation-d-expressions-mathematique-methode-rpn

cs_barbichette Messages postés 220 Date d'inscription lundi 30 octobre 2000 Statut Membre Dernière intervention 15 juillet 2013
25 janv. 2011 à 16:48
quand on peut faire avancer le schmilblick...
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
25 janv. 2011 à 11:12
Merci Cari ! ^^ !
Caribensila Messages postés 2527 Date d'inscription jeudi 15 janvier 2004 Statut Membre Dernière intervention 16 octobre 2019 18
25 janv. 2011 à 01:33
@ Barbichette et Mauricio
Très bel exemple de contribution constructive !

Merci à tous deux.
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
24 janv. 2011 à 18:34
Merci Barbichette ^^
A+
cs_barbichette Messages postés 220 Date d'inscription lundi 30 octobre 2000 Statut Membre Dernière intervention 15 juillet 2013
24 janv. 2011 à 18:32
J'ai oublié un morceau du message,

dans la méthode 'procedure TcyMathParser.StrToInfixStack(aExpression: String; aStack: TStack);'
changer la clause du case
'a'..'z', '_':
par
'a'..'z','A'..'Z', '_':
et le if
if aExpression[j] in ['a'..'z', '_', '0'..'9', ' ']
par
if aExpression[j] in ['a'..'z','A'..'Z', '_', '0'..'9', ' ']

Voilà pour les majuscules/minuscules....
cs_barbichette Messages postés 220 Date d'inscription lundi 30 octobre 2000 Statut Membre Dernière intervention 15 juillet 2013
24 janv. 2011 à 18:30
Salut, pour la gestion des majuscules/minuscules, il faut rechercher la fonction 'Lowercase' et la supprimer partout où il s'applique à un nom de variable.
Ça devrai marcher...

Encore bon boulot Mauricio.

Barbichette
A+
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
10 janv. 2011 à 10:03
Salut,

pour ce qui est de la gestion des majuscules, il faut revoir tout le code.

Pour ce qui est des 2 symbols, il faut faire un stringReplace de ² avec ^2!

A+
amiga68 Messages postés 54 Date d'inscription dimanche 23 février 2003 Statut Membre Dernière intervention 21 décembre 2009
8 janv. 2011 à 20:28
Utile pour moi !

Une question : j'aimerais modifier le source afin de pouvoir différencier les noms de variables en minuscules et en majuscules. Par exemple, pour une application pédagogique (formules simples de maths), P=2(L+l).
En enlevant les lowercase, cela ne fonctionne pas.
Ajouter les opérateurs ² et ³ (carré et cube) serait chaleureux...

merci ?
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
6 janv. 2011 à 10:08
Salut,

oui, c' est normal: je suis sur delphi 2009 et cette propriété n' existe pas sur les delphi antérieurs.
Il suffit de faire ok, compiler et voilà.

A+
yvessimon Messages postés 637 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 9 janvier 2017
6 janv. 2011 à 08:56
Bonjour,

Bon programme.

Au chargement un message s'affiche :
"Erreur lors de la lecture de Label1.Margins.Left
la propriété Margins n'existe pas...".

Salutations
Rejoignez-nous