Valeur absolue d'un réel.

Algorithme pour déterminer la valeur absolue d'un nombre réel x à partir de la définition de la valeur absolue.

La valeur asolue du nombre réel x est le nombre réel
               x si x est positif
               0 si x est nul
              -x si x est négatif

réel x
écrire "Introduisez x:"
lire x
si x>0 alors  écrire "Valeur absolue =", x
sinon si x=0 alors  écrire "Valeur absolue =", 0
      sinon  écrire "Valeur absolue =", -x
      fsi
fsi

PROGRAM Val_Abs;
VAR x : REAL;
BEGIN
WRITELN('Calcul de la valeur absolue.');
WRITE('Introduisez x:');
READLN(x);
IF x>0 THEN WRITELN('Valeur absolue = ', x)
ELSE IF x=0 THEN WRITELN('Valeur absolue = ', 0)
     ELSE WRITELN('Valeur absolue = ', -x)
END.