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:
Merci pour toute aide.
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.
Partager