Fonctions prédéfinies : remplacer chaque séquence par un appel équivalent, écrire l'instruction qui donne une valeur finale

1. Indices de "programmation" (Long(ch) = 13) :

p r o g r a m m a t i o  n
0 1 2 3 4 5 6 7 8 9 10 11 12

• Sous_chaine(ch, 3, 7) : indices 3 à 6, $\boxed{\text{"gram"}}$.
• Effacer(ch, 3, 7) : on retire gram, $\boxed{\text{"promation"}}$.
• Effacer(ch, 7, 13) : on retire les indices 7 à 12, $\boxed{\text{"program"}}$.
• Sous_chaine(ch, 0, 13) : la chaîne entière, "programmation".

2. Idée : le troisième paramètre est l'indice qui suit le dernier caractère voulu. Ici f = 3 est inférieur à d = 7 : aucun indice i ne vérifie 7 ≤ i < 3, l'appel retourne la chaîne vide (comme ch[7:3] en Python). "mat" occupe les indices 7, 8 et 9 : il faut écrire Sous_chaine(ch, 7, 10), c'est-à-dire Sous_chaine(ch, 7, 7 + 3) ; pour n caractères à partir de d, on prend f = d + n.

3. On garde les indices 0 à p − 1, on ajoute c2, puis on reprend à l'indice p :

c1 ← Sous_chaine(c1, 0, p) + c2
     + Sous_chaine(c1, p, Long(c1))

soit "BAC " + "juin " + "2026".

4. c1 ← Effacer(c1, Long(c1) - 1, Long(c1)), ou encore c1 ← Sous_chaine(c1, 0, Long(c1) - 1).

1. Pos("@", adr) = 6 ; Pos("s", adr) = 0, car s est le caractère d'indice 0 ; Pos("@", "sami.edu.tn") = -1.

2. Avec c = "s" et ch = adr, Pos vaut 0 : la condition > 0 est fausse alors que s est présent. La correction teste l'absence telle que la notation la code : Si Pos(c, ch) ≠ -1 Alors Ecrire("présent") FinSi. L'habitude « > 0 » vient de l'ancienne notation, où les positions commençaient à 1 et où l'absence valait 0.

3.

Fonction Domaine (adr : Chaîne) : Chaîne
DEBUT
    p ← Pos("@", adr)
    Si p = -1 Alors
        r ← ""
    Sinon
        r ← Sous_chaine(adr, p+1, Long(adr))
    FinSi
    Retourner r
FIN

Domaine(adr) retourne "edu.tn" et Domaine("sami.edu.tn") la chaîne vide.

4. Idée : effacer tout jusqu'à la première occurrence incluse, chercher à nouveau, puis décaler l'indice trouvé de p1 + 1 — sauf si la seconde recherche échoue.

Fonction Deuxieme (c : Caractère,
                   ch : Chaîne) : Entier
DEBUT
    r ← -1
    p1 ← Pos(c, ch)
    Si p1 ≠ -1 Alors
        p2 ← Pos(c, Effacer(ch, 0, p1+1))
        Si p2 ≠ -1 Alors
            r ← p1 + 1 + p2
        FinSi
    FinSi
    Retourner r
FIN

Pour "." : p1 = 4, Effacer(adr, 0, 5) = "b@edu.tn", p2 = 5, d'où $\boxed{10}$. Pour "@" : p1 = 6, "edu.tn" ne contient pas @, p2 = -1, d'où $\boxed{-1}$. Sans le test sur p2, on retournerait −1 + 6 + 1 = 6, l'indice de la première occurrence : −1 ne doit jamais entrer dans un calcul d'indice.

1. Idée : Valeur ne s'applique qu'à une chaîne convertible, et + n'additionne pas une chaîne et un entier.

• n ← Valeur(c1) + 1 : correcte, n reçoit 2027.
• n ← Valeur(c2) : incorrecte, "20a6" n'est pas convertible (Estnum(c2) vaut Faux).
• n ← c1 + 1 : incorrecte, c1 est une chaîne ; il faut d'abord la convertir.
• c2 ← Convch(Valeur(c1) + 1) : correcte, c2 reçoit la chaîne "2027".

2. Idée : la conversion vient après la boucle : quand on y arrive, Estnum(ch) est vrai et Valeur(ch) est sûre.

Procédure SaisirAnnee (@an : Entier)
DEBUT
    Répéter
        Ecrire("Année : ")
        Lire(ch)
    Jusqu'à (Long(ch) = 4) Et Estnum(ch)
    an ← Valeur(ch)
FIN

Objet local : ch (Chaîne), l'année saisie.

3.

Fonction SommeChiffres (ch : Chaîne) : Entier
DEBUT
    Si Non(Estnum(ch)) Alors
        s ← -1
    Sinon
        s ← 0
        Pour i de 0 à Long(ch)-1 Faire
            s ← s + Valeur(ch[i])
        Fin Pour
    FinSi
    Retourner s
FIN

Le test Estnum protège chaque appel Valeur(ch[i]) : dans la branche Sinon, chaque caractère est un chiffre. SommeChiffres("4071") retourne $4+0+7+1=\boxed{12}$ et SommeChiffres("40a1") retourne $\boxed{-1}$.