fonction lettre_alea() : caractere
{
        variable c: caractere
        
        Selon (hasard(26))
        {
                0: c<-- 'A'
                1: c<-- 'B'
                2: c<-- 'C'

                25: c<-- 'Z'                 
        }
        
        retourne c
}


procedure generation (E/S v : vecteur de caractere, E N : entier)
{
        variable i : entier
        
        Pour i de 0 à N-1
        {
                v[i] <-- lettre_alea()
        }
}

procedure Affichage(E v : vecteur de caractere, E N : entier)
{
        variable i : entier
        
        Pour i de 0 à N-1
        {
                Afficher(v[i])
        }
        Afficher("\n")
}

fonction palindrome(E v : vecteur de caractere, E N : entier): logique
{
        variable id,if : entier
                  pal : logique
        
        id <-- 0
        if <-- N-1
        
        Tant que ((v[id]=v[if]) ET (id<=if))
        {
                id <-- id + 1
                if <-- if - 1
        }
        
        Si (v[id]!=v[if]) alors
        {
                pal <-- FAUX
        }
        sinon
        {
                pal <-- VRAI
        }
        retourne pal
}

Algorithme exo3
{
        constante entier TAILLE <-- 10
        variable v1 : vecteur de TAILLE caractere
                 
        generation(v1, TAILLE)
        Affichage(v1,TAILLE)
        
        Si (palindrome(v1,TAILLE)) alors
        {
                Afficher("C'est un palindrome.\n")
        }
        sinon
        {
               Afficher("Ce n'est pas un palindrome.\n")
        }
}