Discussion :

[Salah_Hbs]

Bonjour ! Que quelqu'un m'explique pourquoi ça ne marche pas ! svp

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program ConvertisseurDec_Hex;
uses crt;
Var
deci,x,r:integer;
c:Char;
s:string;
Begin
ClrScr;
write('Donnez le nombre a convertire: ');
readln(deci);
x:=deci;
repeat
r:=x mod 16;
x:=x div 16;
case r of
10: c:='A';
11: c:='B';
12: c:='C';
13: c:='D';
14: c:='E';
15: c:='F';
else
c:=Chr(r);
end;
s:=c+s;
 
Until x=0;
write(s);
readln;
end.

[Andnotor]

Le caractère "0" vaut 48 en ASCII : c:=Chr(48 +r);