Corrigé C4.  Enoncé

Exercice 1 : Calcul de la somme 13 + 33 + 53 + . . .

    ALGORITHME Somme
    VAR S, I, N : ENTIER
    DEBUT
        LIRE(N)
        S := 0
        POUR I=1, 2*N + 1, 2 :
            S := S + I3
        FINPOUR
        ECRIRE(S)
    FIN

Exercice 2 : Division de 2 entiers A et B (A>=B>0) avec l'opérateur '-' :

    ALGORITHME Division
    VAR A, B, Q : ENTIER
    DEBUT
        LIRE(A, B)
        Q := 0
        TANTQUE A >= B :
            A := A - B
            Q := Q + 1
        FINTANTQUE
        ECRIRE(Q, A) { A étant le reste}
    FIN

Exercice 3 : longueur du Mot le plus long

    ALGORITHME LeMotpluslong
    VAR     C     : CAR
        K, L          : ENTIER
    DEBUT
        LIRE(C)
        L := 0
        TANTQUE C # '.' :
            TANTQUE C = ' ' : LIRE(C) FINTANTQUE
            K := 0
            TANTQUE C # ' ' ET C # '.' :
                K := K + 1
                LIRE ( C )
            FINTANTQUE
            SI K > L : L := K FSI
        FINTANTQUE
        ECRIRE(L)
    FIN