Corrigé C14. Enoncé

Exercice 1 : Facture

Algorithme

    ALGORITHME Facture
    VAR
        Total, Prix_unitaire : REEL
        Numproduit, Quantite : ENTIER
    DEBUT
        Total := 0
        LIRE(Numproduit, Quantite, Prix_unitaire)
        TANTQUE Numproduit <> 0
            Total := Total * Prix_unitaire
            ECRIRE(Numproduit, Quantite, Prix_unitaire)
            LIRE(Numproduit, Quantite, Prix_unitaire)
        FINTANTQUE   
        ECRIRE(Total)
    FIN

Programme

Se référer au programme P6.

Exercice 2 : Analyse d'un texte

Module Numérique

ACTION Numérique ( Mot, l)
VAR
    Mot, C : CAR ;
    I : ENTIER
DEBUT
    I := 1
    C := Prendre(Mot, 1)
    Chiffre := VRAI
    TANTQUE I <= L ET Chiffre
        SI C < '0' OU C >'9' { Non chiffre } :
                Chiffre := FAUX
        SINON
                I := I + 1
                SI I <= L
                    C := Prendre(Mot, I)
                FSI
        FSI
    FINTANTQUE
FIN

Module Alphabétique

FONCTION Alphabétique ( Mot, L) : BOOLEEN
    VAR
        Mot : CAR ;
        L, I : ENTIER
    DEBUT
        I := 1
        C := Prendre(Mot, 1)
        Alphabétique := VRAI
        TANTQUE I <= L ET Alphabétique :
            SI C <='Z' ET C >='A' { non lettre alphabétique } :
                Alphabétique := FAUX
            SINON
                I := I + 1
                SI I <= L
                     C := Prendre(Mot, I)
                FSI
            FSI
        FINTANTQUE
    FIN
   
Algorithme

    ALGORITHME Analyse_texte
    VAR
        Continue : BOOLEEN
        C : CAR
    DEBUT
        Continue := VRAI
        TANTQUE Continue :
            SI C = '/' :
                LIRE(C)
                SI C='*':
                    Fin := FAUX
                    TANTQUE NON Fin
                        LIRE(C)
                        TANTQUE C # '*' :     LIRE(C) FINTANTQUE
                        LIRE(C)
                        SI C = '/' :
                            ECRIRE(0) ; Fin := VRAI
                        FSI
                    FINTANTQUE
                    LIRE(C)
                SINON
                    TANTQUE C # ' ' : LIRE(C) FINTANTQUE
                    ECRIRE(3)
                FSI
            SINON
                SI C = ' ' : LIRE(C)
                SINON
                    Mot := ''
                    L := 0
                    TANTQUE C # ' ' :
                        Mot := Mot + C
                        L := L + 1
                        LIRE(C)
                    FINTANTQUE
                    SI Mot='fintex' : Continue := FAUX
                    SINON
                        SI Numérique(Mot, L) :
                            ECRIRE(2)
                        SINON
                            SI Alphabétique(Mot) :
                                ECRIRE(1)
                            SINON ECRIRE(3) FSI
                        FSI
                    FSI
                FSI
            FSI                
        FINTANTQUE
    FIN

Exercice 3 : Tri de 4 variables

    ALGORITHME Tri
    CONST Grande_valeur = 32 000
    VAR
        I, T1, T2, T3, T4, V : ENTIER
    DEBUT
        T1, T2, T3, T4 := Grande_valeur
        POUR I=1, 4 :
            LIRE(V)
            SI V < T1 :
                T4 : T3
                T3 := T2
                T2 := T1
                T1 := V
            SINON
                SI V < T2 :
                     T4 := T3
                     T3 := T2
                    T2 := V
                SINON
                    SI V < T3 :
                        T4 := T3
                         T3 := V
                     SINON
                        SI V < T4 : T4 := V   FSI
                    FSI
                 FSI

            FSI
        FINPOUR
        ECRIRE(T1, T2, T3, T4)
    FIN