Exercice 5 Les Enregistrements Corrigé
Type TEnregistrement = Enregistrement
    T : Tableau[1..100] de Entier
    N : Entier
Fin
Fonction TrouverPositionsAB(M : Chaine) : TEnregistrement
    Déclarer E : TEnregistrement
    E.N ← 0
    Pour i de 1 à Longueur(M) - 1 faire
        Si (M[i] = 'a') et (M[i + 1] = 'b') Alors
            E.N ← E.N + 1
            E.T[E.N] ← i
        FinSi
    FinPour
    Retourner E
FinFonction
Début
    Déclarer M : Chaine
    Déclarer Resultat : TEnregistrement
    Ecrire("Entrer la chaîne de caractères M : ")
    Lire(M)
    Resultat ← TrouverPositionsAB(M)
    Ecrire("Positions : ")
    Pour i de 1 à Resultat.N faire
        Ecrire(Resultat.T[i])
    FinPour
    Ecrire("Nombre d'éléments : ", Resultat.N)
Fin
Pas encore de commentaires.
 
            
Ajouter un commentaire
Veuillez vous connecter pour ajouter un commentaire.