ALGORITHMIQUE
By: kyleon 04:02

Les outils de base de l’algorithmique

Exercice 1 :

Ecrire un algorithme qui demande les coordonnées de deux points dans le plan, calcule et affiche à l’écran la distance entre ces deux points.
N.B.
la distance entre deux points A(x1,y1) et B(x2,y2) est : AB= sqrt((x2-x1)^2 + (y2-y1)^2) on donne la fonction sqrt(x) qui renvoie la racine carrée d’un nombre réel x .

Solution :
Algorithme calcul_distance;
Var
X1,x2,y1,y2,s : réels ;
Debut
Ecrire(‘entrer la valeur de x1 : ‘) ; Lire(x1) ; Ecrire(‘’ entrer la valeur de y1 : ‘’) ; Lire(y1) ;
Ecrire(‘’ entrer la valeur de x2 : ‘’) ; Lire(x2) ;
Ecrire(‘’ entrer la valeur de y2 : ‘’) ; Lire(y2) ; S sqrt((x2-x1)^2 + (y2-y1)^2) ; Ecrire(‘la distance entre A(‘ ,x1,’,’,y1,’) et B(‘,x2,’,’,y2,’) est : ‘,s) ; fin Exercice 2 :

Elaborer un algorithme permettant de demander les valeurs de trois résistances r1,r2 et r3 et de calculer et afficher leurs résistances équivalente dans les deux cas suivants :
N.B.
Lorsque ces résistances sont branchées en série : Rser = r1+r2+r3
Lorsque ces résistances sont branchées en parallèle : Rpar=(r1*r2*r3)/(r1*r2+r1*r3+r2*r3)

Solution :
Algorithme calcul_resistance;
Var
r1,r2,r3,Rpar,Rser: réels ;
Debut
Ecrire(‘entrer la valeur de r1 : ‘) ; Lire(r1) ; Ecrire(‘ entrer la valeur de r2 : ’) ; Lire(r2) ;
Ecrire(‘ entrer la valeur de r3 : ’) ; Lire(r3) ; Rser  r1+r2+r3; Rpar  (r1*r2*r3)/(r1*r2+r1*r3+r2*r3) ; Ecrire(‘ la résistance équivalente a r1 ,r2 et r3 en série est : ‘,Rser) ;
Ecrire(‘ la résistance équivalente a r1 ,r2 et r3 en parallèle est : ‘,Rpar) ; fin Exercice 3 :