Discussion :

[Z-Vegeta]

Bonsoir à tous.
Je débute en Turbo Pascal et j'aimerais créer un programme qui permet de convertir les chiffres décimaux en binaire.
Mon code fonctionne bien seulement j'ai un petit problème
Ex: Je met le nombre : 20 qui fait 10100 en binaire
mon programme à la place d'afficher : 10100 il affiche 00101 !! Il inverse ! Normal puisque je lui demande d'afficher cela mais comment régler ce problème ?
Voici mon code:

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
 
var x,x2,x3:integer;
 
begin
clrscr;
write('Entrez un nombre qui sera convertis en binaire : ');
readln(x);
x2:=0;
x3:=0;
 
Repeat
x2:=1;
x3:=0;
 If x mod 2 = 1 then begin
                     write(x2);
END
else begin
write(x3);
END;
x:=x div 2;
Until x=0;
readln;
END.

Merci pour toute aide.

[Graffito]

Bonjour,

Comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x:integer;
     s:string ;
begin
clrscr;
write('Entrez un nombre qui sera convertis en binaire : ');
readln(x);
s:='' ;
Repeat
  If x mod 2 = 1 then s:='1'+s else s:='0'+s ;  
    x:=x div 2;
  Until x=0;
write(s) ;
readln;
END.

[Z-Vegeta]

Merci ça marche nickel ^^ Je n'y avais pas pensé