---

Solutions de l'exercice 1 du  TP n°2 (informatique en S1 DEUG MAIS+MASS)

---

1.) Ce programme calcule la moyenne de deux nombres réels. En voici la preuve constructive

Instruction :                       résultat :
readln(x)       x1=a (valeur fournie par l'utilisateur)
readln(y)       y1=b (valeur fournie par l'utilisateur)
x:=x+y          x2=x1+y1=a+b
y:=x-y          y2=x2-y1=(a+b)-b=a
x:=x-y          x3=x2-y2=(a+b)-a=b

Les indices données aux variables x et y permettent de distinguer le contenu de ces variables d'une instruction à l'autre. Nous n'avons indiqué ici que les instructions qui affectent les valeurs de x ou y.

---

2.) On utilise ici les possibilités d'affichage formaté :

PROGRAM TP2exc1 ;
VAR x, y : real ;
BEGIN
  write('x= ') ; readln(x) ;
  write('y= ') ; readln(y) ;
  (* les lignes suivantes ont été rajoutées *)
  writeln('x':25,'y':8) ;
  write('avant traitement :') ;
  writeln(x:8:1,y:8:1) ;
  (* fin de l'ajout *)
  x:=x+y ; y:=x-y ; x:=x-y ;
  (* la ligne suivante a été modifiée *)
  write('après traitement :') ; writeln(x:8:1,y:8:1) ;
END.

---