Exo 1 Part 2 (Algo)

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;