CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 19:35:15

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

COMPOSANT TABSHEET par swadfish

RE : CHERCHER DES VALEURS DANS UN FICHIER BIN par Smith4400

SON WAVE AVEC NOMBRE DE BIT PAR éCHANTILLON = 16 par airefrais

DELPHI6 - IMAGES HTML par toto93350

RE : EXECUTABLE D'UNE BASE SQL SERVER 2000 +DELPHI 7 par souhi321321321

+ de logiciels à télécharger

1 468 026 membres
431 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 109 codes, 1 305 018 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CALCULATRICE ECRITURE POLONAISE

Information sur la source

Catégorie :Maths Niveau : Initié Date de création : 21/05/2005 Date de mise à jour : 06/06/2005 22:43:43 Vu / téléchargé: 3 848 / 256

Auteur : CptPingu

Site perso

Ecrire un message privé

Note :

9,00 / 10

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Un calculatrice en mode console, qui permet de saisir un une ligne entiere de calcul en écriture polonaise, et qui donne le résultat.
Ma source est loin d'être parfaite (et je suis sur qu'il y a une erreur qui traine), vos commentaires sont donc les bienvenus.

Programme plus performant ici:
http://www.delphifr.com/code.aspx?ID=31855

En plus, cette source ne marche pas dans tout les cas.
(Tester un - + 5 + + 2 1 - 4 8 5)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Calculette_Polonaise.dpr 7 324 octets

Télécharger le zip

Historique

21 mai 2005 21:13:41 :: Correction d'un petit truc (merci à Gimli pour la remarque)
22 mai 2005 23:07:50 :: Correction par DelphiProg. (Un grand merci à lui).
06 juin 2005 22:43:43 :: Je trouve cette source peu efficace, essayer l'autre.

Sources du même auteur

SKINNER UNE APPLICATION SANS COMPOSANTS

TUTORIAL LISTES CHAINÉES

PUISSANCE 4 AVEC IA (ARBRE DE JEUX)

CONVERTISSEUR ECRITURE POLONAISE -> NORMALE

JEU OTHELLO

Toutes les sources de CptPingu

Sources de la même categorie

GÉNÉRATEUR DE NOMBRES PSEUDO-ALÉATOIRES par Bacterius

ALGORITHME DE HASH LEA-128 par Bacterius

STATUTILS - LES STATISTIQUES par Bacterius

CALCULATRICE POUR POËTES par fredelem

CALCULATRICE AVEC RADIOBUTTON par paix144

Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de Gimli le 21/05/2005 20:59:49

salut,
j'ai remarqué 1 probleme dans ton code (qui marche sinon, bravo):
dans la fonction Verifier, lorsque tu verifie si le premier élément est bien 1 opérateur, il faut mettre des and et non des or, sinon ca ne marche pas (car le premier élément est forcement différent d'1 des 4 opérateur).
@+

Commentaire de CptPingu le 21/05/2005 21:14:33

Oui exact, j'ai pas fait attention. C'est corrigé merci.

Commentaire de Delphiprog le 21/05/2005 21:27:25 administrateur CS

Quelques points à revoir :
function Ajouter(Tab:pTab;Element:string):pTab;
begin
  If Tab=nil then  // Si le tableau n'existait pas on le crée
  begin
  new(Tab);

==> Une fonction appelée ne devrait jamais allouer de mémoire à un pointeur dans le tas.
Ne serait-ce pas plutôt le rôle de la fonction Verifier qui semble commencer dans cette direction (  If Tab<>nil then
begin) mais qui s'arrête aussi vite ?

Dans la fonction :
function Calcul(a,b,Operateur:string):string;
tu écris ensuite :
c:=StrToFloat(a);
d:=StrToFloat(b);
  If Operateur='+' then Res:=c+d;
  If Operateur='-' then Res:=c-d;
  If Operateur='/' then Res:=c/d;
Et si b vaut zéro ? :-(

Suggestion un peu différente de celle de Gimli : au lieu d'une suite de If, il serait bien plus clair d'écrire :
if not (Tab^[I] in ['+','-','*','/']) then

Sinon, bon boulot.

Commentaire de CptPingu le 21/05/2005 23:35:49

Je te remercie d'avoir jeter un coup d'oeil à ce code.
Toutefois il y a deux remarques que je n'ai pas compris.

1_"==> Une fonction appelée ne devrait jamais allouer de mémoire à un pointeur dans le tas.
Ne serait-ce pas plutôt le rôle de la fonction Verifier qui semble commencer dans cette direction"

Qu'aurais-ju dû marquer ?

2_"Suggestion un peu différente de celle de Gimli : au lieu d'une suite de If, il serait bien plus clair d'écrire :
if not (Tab^[I] in ['+','-','*','/']) then"

J'ai essayé mais ca ne marche pas. Le compilateur me met une erreur "Type incompatible Char et String"
Le code suivant n'a pas marché non plus "if not (Char(Tab^[I]) in ['+','-','*','/']) then", le compilateur me marque "transtypage incorrect".

Enfin, dans ta deuxieme remarque tu as parfaitement raison, je n'ai pas fait attention.

Commentaire de Delphiprog le 22/05/2005 22:31:51 administrateur CS

Remarques, réponses et justifications en message privé.

Commentaire de jmp77 le 06/06/2005 14:25:17

Hello,

C'est une très bonne source, en plus en mode console félicitation.
Elle est bien commentée et claire.

Juste une petite remarque à cette ligne dans la procedure Calcul :
'/': if c = 0 then Res := 0 else Res := d / c; //A vérifier !
Si c'est est égale à 0 tu dois dire qu'une division par 0 est impossible et non pas qu'elle est égale à 0.

Allez pour moi tu mérites un bon 9/10.

Bonne continuation,
JMP77.

Commentaire de CptPingu le 06/06/2005 14:38:26

Merci JMP. Si cette source t'as plus tu en trouvera une plus évolué ici:
http://www.delphifr.com/code.aspx?ID=31855

Et oui tu as raison, mais je ne sais pas vraiment comment traiter cet erreur. Alors je m'embête pas et je met ce resultat (ca evite de faire planter le programme quand même). J'essaierai de revoir ca avec un "try except" dès que j'aurai un peu plus de temps.