Corrigé C29.  Enoncé

Exercice 1 : Mots commençants par 'M'

   
        ALGORITHME M
        VAR
            Im : ENTIER
            C, Sauv : CAR
        DEBUT
            LIRE(C)
            Im := 0
            TANTQUE C <> '#' :
                TANTQUE C = ' ' : LIRE(C) FINTANTQUE
                Sauv := C
                TANTQUE C <> ' ' ET C <> '#' :
                    LIRE(C)
                FINTANTQUE
                SI Sauv = 'M' : Im := Im + 1 FSI
            FINTANTQUE
            ECRIRE(Im)
        FIN

Exercice 2 : Mots se terminant par 'MME'

        ALGORITHME MME
        VAR
            Imme : ENTIER
            C : CAR
        DEBUT
            LIRE(C)
            Imme := 0
            TANTQUE C <> '#' :
                SI C = 'M':
                    LIRE(C)
                    SI C = 'M':
                        LIRE(C)
                        SI C = 'E' :
                            LIRE(C)
                            SI C = ' ' :
                                Imme := Imme + 1
                                LIRE(C)
                            FSI
                        FSI
                    FSI
                SINON
                    LIRE(C)
                FINSI
            FINTANTQUE
            ECRIRE( Imme )
        FIN

Exercice 3 : Mots de longueur L contenant 3 'E'


        ALGORITHME M
        VAR
            Ie, Cpt, I, L : ENTIER
            C : CAR
        DEBUT
            LIRE(L)
            Ie := 0
            LIRE(C)
            TANTQUE C <> '#' :
                TANTQUE C = ' ' : LIRE(C) FINTANTQUE
                Cpt := 0 , I := 0
                TANTQUE C <> ' ' ET C <> '#' :
                    I := I + 1
                    SI C = 'E' : Cpt := Cpt + 1 FSI
                    LIRE(C)
                FINTANTQUE
                SI I = L ET Cpt = 3 : Ie := Ie + 1 FINSI
            FINTANTQUE
            ECRIRE(IE)
        FIN