Source : Ahmed Fessi

Tâche : Sans utiliser la fonction prédifini qui renvoie la valeur absolue, écrire un programme qui affiche la valeur absolue d'un réel donné.

Exemple :

• Entrée : x=-3.25
• Sortie : 3.25

Correction Problème : valeur Absolue

Par : Ahmed Fessi

program Valeur_Abs;
uses wincrt;
var
     x,Res:real;
begin
     writeln('Donner le réel x');
     readln(x);
     if x>=0 then Res:=x else Res:=-x;
     writeln('La valeur absolue de ',x:3:2,' est ',Res:3:2);
end.