Algorithme expression arithmétique postfixée

Version imprimable

03/05/2007, 18h09
elhou80

Algorithme expression arithmétique postfixée

Salut à tous,
je suis entrain de dévolopper une petite application en Turbo Pascal:
et comme je suis débutant, j'aimerai bien m'aider.
le programme permet de lire une expression arithmétique infixées. ex: 1+2*3+4 utilisant la structure des Piles (Empiler, Dépiler, Pile_vide...)

Je veux transformer cette expression à une expression poste_fixée puis calculer le résultat.
les procedures:
- lire la chaine de caractères.
- extraire le nombres (oprérands), convertir en entier et les mettre dans une Pile.
- extraire les Opération (+,-,*,/,^,(,),pgcd, ppcm,...) et les mettre dans une autre Pile.
- respecter la priorité des opérations. ex: * et plus prioritaire que +,

- afficher l'expression poste fixée

- afficher le résultat final.

Merci à tous.
j'attend vos réponses.:oops:
03/05/2007, 21h41
droggo

Kao,

Citation:

Envoyé par elhou80

Bonjour,
Le temps passe, et aucune réponse,
quelqu'un m'adider svp.

Du calme, à peine plus de 3 heures entre ta demande et cette réflexion :)

C'est un algorithme que tu cherches ou un programme ?

Si c'est un algorithme, ça n'a rien à voir avec le Pascal en soi.

Si c'est un programme, en Pascal donc, d'après ton titre, il y a un forum Pascal :D
04/05/2007, 00h02
M.Dlb

As-tu déjà codé quelque chose ?
04/05/2007, 07h05
droggo

Hol,

Qu'appelles-tu "débutant" ?

Si tu es vraiment débutant au sens habituel du terme, il vaudrait mieux commencer par des programmes plus simples pour apprendre le langage.

En effet, l'expérience montre que vouloir attaquer "bille en tête" est plus un motif d'abandon qu'autre chose.
04/05/2007, 14h36
elhou80

ok, jai dit que suis débutant, c-t-dire dans les structures Piles,
je veux que la sollution de cet algorithme faite en langage pascal avec les piles, P1, P2,
les fonctions et procedures (depiler, empiler, est_vide,.., priorite(op?),...)

Merci de m'aider.

:oops: ex: ((56+23)+(7*8)) = -------- 56 23 + 8 7 * + =
et l'affichage du résultat = 137
04/05/2007, 14h51
elhou80

Citation:

Envoyé par wormful_sickfoot

As-tu déjà codé quelque chose ?

j'ai pas compris ton message

salut,
voilà, j'ai un essai de mon problème, mais pas complet,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
program expression_arithmetique;
  uses crt;
  cons N=200;
  type pile=record
              elem:array[1..N] of integer;  (* elements de la pile  *)
              s: integer;  (* indice de sommet *)
            end;
 
  var p1,p2,p3:pile;
      i:integer;
      exp:string;
 
 
  function est_vide(var P:pile):boolean;
  begin
    est_vide := (P.s=0);
  end;
 
  procedure empiler(var p:pile;e:integer);
  begin
    (* si l pile n'est pas pleine ! *)
    if P.s=N then write(‘Pile Pleine’)
    else begin 
      p.s:=p.s+1;
      p.elem[p.s]:=e;
    end;  
  end;
 
  procedure depiler(var p:pile);
  begin
    (* si la pile n'est pas vide ! *)
    if P.s=0 then 
      write('Pile vide')
    else 
      p.s:=p.s-1;
  end;
 
  procedure creerPile;
    var p:pile;
  begin
    p.s:=0;
    (* alocc du tableau si necessaire *)
    (* retouner P *)
  end;
 
  function sommet(P : pile): element;
  begin
    if est_vide(P) then 
       write(‘pile vide’) 
    else 
       sommet:=P.elem[P.s];
  end;
 
  procedure vide_pile(var P : pile);
  begin
    while (P<>nil) then depiler(P);
  end;
 
  function priorite(op1:char):integer;
  begin
    case op1 of
      '^': priorite:=6;
      '*': priorite:=5;
      '/': priorite:=4;
      '+': priorite:=3;
      '-': priorite:=2
      { ..........}
    end;
  end;
 
  procedure Lire_Expression;
  begin
  end;
 
  procedure Afficher_PosteFixe;
  begin
  end;
 
  procedure Afficher_Result;
  begin
  end;
 
 
  Procedure Menu_Principal;
  begin
    { ..... Menu principal}
  end;
 
 
begin
  clrscr;
  Menu_principal;
 
 
end.

**** J'attend un programme plus simple svp

04/05/2007, 16h04
krachik

Citation:

Envoyé par elhou80

**** J'attend un programme plus simple svp

rends le tien plus lisible(indenté,et commentaire) et apres on vera

J'interviens parce que j'aime bien ce genre de problème qui touche aux interpréteurs et ou compilateurs. Un de mes premiers projets à la fac dans ma jeunesse lointaine a été un peu dans ce genre.

Déjà, en cherchant un peu, par exemple "interpréteur arithmétique", je doute que tu ne trouves pas quelques informations précieuses, y compris sur notre ami Google.

Par ailleurs, je ne te donnerai pas de programme tout fait, mais quelques pistes.

Commence déjà par programmer un parser simple, c'est-à-dire une fonction qui va analyser le texte caractère par caractère pour isoler les éléments sémantiques (nombres, symboles, etc..), et qui renverra un type énuméré indiquant ce qu'il a trouvé.
Code:

1 2 3 4 5 type TParserResult = (parsUnknown, parsNumber, parsAdd, parsSub, parsMult, parsDiv); function ParseString(var CurrentIndex : Integer;S:string;var Number : Integer):TParsResult; begin // à toi de jouer...
Ensuite, on verra.

05/05/2007, 20h07
elhou80

merci bien , mais pas encore une solution,
si je peux faire des parsers et des compilateurs, je ne demande pas d'aide pour un programme comme ceci.
05/05/2007, 20h24
droggo

Mos,

Généralement, on traite ce genre de problème à l'aide d'un arbre plutôt qu'avec une pile.

Comme te l'a dit CapJack, une petite recherche sur Google devrait te donner moult réponses.
25/05/2007, 01h10
elhou80

remerci

merci à tous