Corrigé C19. Enoncé

Exercice 1 : Couples parfaits

    ALGORITHME Couples_parfaits
    VAR    I, J : ENTIER
    DEBUT
    POUR I = 1, 1000
            POUR J = 1, 1000 :
                SI parfait(I + J)
                    ECRIRE(I, J)
            FSI
            FINPOUR
    FINPOUR
    FIN

Module parfait

    PREDICAT Parfait ( N )
    VAR
        N, S, Quot, I : ENTIER
    DEBUT
        S := 1
        POUR I =2, (N DIV 2) :
            Quot := N DIV I
            SI N = QUOT * I :
                S := S + I
            FSI
        FINPOUR
        Parfait := ( S = N)
    FIN   


Exercice 2 : Mots de la forme x.. y.. z

    ALGORITHME Xyz
    VAR    Sauv, C, Mot : CAR
    DEBUT
        LIRE(C)
        TANTQUE C # '.' :
            TANTQUE C = ' ' : LIRE(C) FINTANTQUE
                SI C = 'x' :
                     Mot := '' ; Trouv := FAUX
                     TANTQUE C # ' ' ET C # '.' :
                         Mot := Mot + C
                         SI C = 'y' : Trouv := VRAI FSI
                         Sauv := C
                         LIRE(C)
                     FINTANTQUE
                     SI Sauv = 'z' et Trouv :
                         ECRIRE(Mot)
                     FSI
                SINON
                     TANTQUE C # ' ' ET C # '.' :
                         LIRE(C)
                     FINTANTQUE
                FSI
            FINTANTQUE
        FIN