Bonsoir;
J'aimerais exécuter ce programme en Turbo Pascal. Bien que sa syntaxe semble correcte, une erreur s'affiche lors de sa compilation. Je ne sais pas laquelle. Le programme est le suivant:
Merci de m'avoir aidé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 program valeur_absolue; uses WinCrt; var X,A: integer; begin Writeln('Donner un nombre entier'); Readln(X); if(X>0) then A:=X; else A:=-X; Writeln('La valeur absolue de ',X,' est: ',A); end.
Partager