Dossier d'Algorithmique : Algorithme Poid
1. Algorithme Principal
Algorithme poid
Début
Saisir(N)
Remplir_T(T, N)
Remplir_TP(T, TP, N)
Affiche(T, N)
Affiche(TP, N)
Fin
T.D.O.G (Tableau de Déclaration des Objets Globaux)
Objets Type / Nature
N Entier
T Tab1
TP Tab2
Saisir, Remplir_T Procédure
Remplir_TP, Affiche Procédure
T.D.N.T (Tableau de Déclaration des Nouveaux Types)
Type
Tab1 = tableau de N chaine
Tab2 = tableau de N Entier
2. Procédure Saisir
Procédure Saisir (@N : entier)
Début
Répéter
Ecrire("donner entier : ")
Lire(N)
Jusqu'à (2 <= N <= 10)
Fin
T.D.O.L (Saisir)
1
Objets Type / Nature
Aucun objet local
2
3. Fonction Verif
Fonction verif (ch : chaine) : booléen
Début
Test ← vrai
i ← 0
Tant que test et i < long(ch) faire
Si "A" <= majus(ch[i]) <= "Z" alors
i ← i + 1
Sinon
test ← False
Fin si
Fin tant que
Retourner test
Fin
T.D.O.L (Verif)
Objets Type / Nature
i Entier
test booléen
4. Procédure Remplir_T
Procédure Remplir_T (@T : Tab1, N : Entier)
Début
Pour i de 0 à N - 1 faire
Répéter
Lire(T[i])
Jusqu'à (T[i] ≠ "" et verif(T[i]))
Fin pour
Fin
T.D.O.L (Remplir_T)
Objets Type / Nature
i Entier
verif fonction
3
5. Procédure Remplir_TP
Procédure Remplir_TP (@TP : Tab2, T : Tab1, N : Entier)
Début
Pour i de 0 à N - 1 faire
TP[i] ← poid(T[i])
Fin pour
Fin
T.D.O.L (Remplir_TP)
Objets Type / Nature
i Entier
poid fonction
6. Fonction Poid
Fonction poid (ch : chaine) : entier
Début
p ← 0
Pour i de 0 à N - 1 faire
p ← p + ord(ch[i])
Fin pour
Retourner p
Fin
T.D.O.L (Poid)
Objets Type / Nature
i, p Entier
7. Procédure Affiche
Procédure Affiche (T : Tab, N : Entier)
Début
Pour i de 0 à N - 1 faire
Ecrire(T[i])
Fin pour
Fin
T.D.O.L (Affiche)
4
Objets Type / Nature
i Entier