Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Fonction Parenthesage(str: chaine de caracteres): entier // MALEK ILYES G03
- Var P,Sommet : Pointeur(TMaillon) ; x,i: entier;
- Debut
- InitPile(P);
- Pour i allant de 0 à Longueur(str) faire
- Debut
- Si (str[i] = '(' )
- Empiler(0);
- Sinon
- Si (str[i] = '[' )
- Empiler(1);
- Sinon
- Si (str[i] = ')' )
- Si (PileVide(P) )
- Retourner -1 ;
- Sinon
- Debut
- Depiler(adr(x)) //Dépile P et Mettre la valeur dépilé de P dans x //
- Si (x <> 0 )
- Retourner -1 ;
- FinSi;
- Fin;
- FinSi;
- Sinon
- Si (str[i] = ']' )
- Si (PileVide(P))
- Retourner -1;
- Sinon
- Debut
- Depiler(adr(x))
- Si (x <> 1)
- Retourner -1;
- FinSi;
- Fin;
- FinSi;
- FinSi;
- FinSi;
- FinSi;
- FinSi;
- FinPour;
- Si (PileVide(P))
- Retourner 0;
- Sinon
- Retourner -1;
- FinSi;
- Fin;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement