examain 2003 avec la solution / usthb / pascal

Ecrire l'algorithme qui permet de saisir les moyennes des N étudiants
de la classe Informatique et de calculer la moyenne générale de la
classe.
Résolution
Sans les boucles, on est obligé de déclarer N variables, et
d'écrire N actions LIRE.
LIRE(note)
S¬ S + MOY
LIRE(MOY)
S¬ S + MOY
…..
LIRE(MOY)
S¬ S + MOY
La boucle POUR donne l'ordre à la machine d'itérer les deux
actions N fois.
Donc le compteur varie de 1 jusqu'à N avec un pas de 1.
ALGORITHME MOYENNE
VAR i, N : entier
MOY, MC : réel
DEBUT
ECRIRE("Donner le nombre d'étudiants")
LIRE(N)
SI (N > 0) ALORS
S ¬ 0 {Initialisation de S}
POUR i DE 1 A N FAIRE {Le pas égale 1 par défaut}
ECRIRE("Donner la moyenne de l'étudiant n°", i)
LIRE(MOY)
S ¬ S + MOY {on rajoute la moyenne du i^ième
étudiant à la somme}
FIN FAIRE
MC ¬ S / N
ECRIRE("La moyenne de la classe est : ", MC)
SINON
ECRIRE("Erreur dans le nombre d'étudiants")
FINSI
FIN
Remarque Juste Avant le FIN FAIRE, le changement de
la valeur de i se fait automatiquement.
Application 1
Ecrire l'algorithme qui permet d'afficher tous les nombres pairs
qui existent entre 1 et 10.
1^ière solution
POUR i de 2 à 10 pas 2 Faire
ECRIRE(i)
FINFAIRE
2^ième solution
POUR i de 2 à 10 Faire
SI (i mod 2 = 0) ALORS
ECRIRE(i)
FINSI
FINFAIRE
3^ième solution
POUR i de 1 à 5 Faire
ECRIRE(2*i)
FINFAIRE

Mrc mais makach Codage wela architectur des systemes informatique (algébre de bool wel les foction logique ie tableau de karnaugh ) !!! si tu peux