des exercice pour les debetant en pascal /sujet d examais de usthb universite

Exemple 2
On veut écrire l'algorithme qui permet de saisir 3 notes d'un
étudiant dans trois matières, étant donnés les coefficients respectifs
2, 3 et 1.
Résolution
A partir de l'énoncé du problème, nous recherchons la solution par
une démarche en 2 phases.

• On doit comprendre comment le résoudre manuellement,
  
• Définir ce qu'on a besoin comme données, quelles
  est la démarche à suivre (formules de calcul) pour arriver
  aux résultats.
  

Pour notre problème, nous connaissons les coefficients et la
formule de calcul (åN_i*C_i / åC_i), nous
avons besoins des notes de chaque matière dans l'ordre, et
enfin nous pouvons communiquer le résultat à l'utilisateur.
ALGORITHME MOYENNE
CONST C1=2
C2=3
C3=1
VAR
N1, N2, N3 : REEL
MOY : REEL
DEBUT
{Affichage message : Invitation de l'utilisateur à introduire des
données}

ECRIRE(" Donner trois valeurs
réelles ")
{Saisie des notes}

LIRE(N1, N2, N3)
{Calcul de la moyenne}

MOY¬ (N1*C1+N2*C2+N3*C3) / le du
résultat sur l'écran}

ECRIRE(" La moyenne est = ", MOY)
FIN