| 12
 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
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
 100
 101
 
 | 
@echo off
REM Efface l'écran pour faire beau
CLS
REM Cadre avec bordures pour afficher les propriétés du programme
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º      Programme realise par                            º
echo º          Manumation                               º
echo º                                                       º
echo º      Nom : Bin                                        º
echo º      Date: 03.03.06                                   º
echo º      But : Transformer un nombre decimal en binaire   º
echo º                                                       º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
:Clavier
REM Vide la variable d'affichage final pour éviter d'afficher deux fois le
REM nombre si on éxécute deux fois le programme
set Nfin=
echo.
echo Entrer un nombre au clavier et il sera converti en binaire :
REM Le nombre entré au clavier sera dans N1
echo.
set /p N1=
REM Tester si le nombre est valide
if %N1%=="" goto Erreur
if %N1% LEQ 0 goto Erreur
:Calcul
REM Diviser le nombre N1 par 2 et le mettre dans la variable N2
set /a N2=%N1%/2
REM L'ordinateur arrondit le nombre divisé par 2 en-dessous, donc si le nombre
REM n'était pas un multiple de 2, il sera arrondit. EX : 9/2 = 4
REM Je multiplie le nombre divisé par 2
set /a N3=%N2%*2
REM Puis je le compare au premier nombre. EX : N4 = 9 - (4*2) = 9 - 8 = 1
REM Le premier chiffre binaire est trouvé !
set /a N4=%N1%-%N3%
REM A chaque boucle j'ajoute le nombre trouvé à la variable Nfin
REM Les nombres sont séparés par des espaces
set Nfin=%N4% %Nfin%
REM Je fait que la chiffre divisé par 2 précédemment se trouve dans N1 pour
REM pouvoir recommencer la boucle
set /a N1=%N2%
REM Si le nombre divisé par 2 = 0 , il n'y a plus rien a faire, le binaire est
REM trouvé totalement, Je vais au Label Fin
if %N1% == 0 goto Affichage
REM Si la condition ci-dessus n'est pas remplie, on retourne au début du Label
REM Calcul
goto Calcul
:Erreur
echo.
echo ERREUR
echo.
echo Le nombre n'est pas valide, Veuillez entrer un entier plus grand que 0
goto Clavier
:Affichage
REM Tout est fini, il n'y a plus qu'à afficher tous les nombres binaires stockés
REM dans Nfin
echo.
echo.
echo Nombre binaire :
echo.
echo %Nfin%
echo.
echo.
REM Commande CHOICE pour choisir quitter ou recommencer
echo.
echo Pour quitter , Pressez "Q"
echo Pour recommencer , Pressez "R"
echo.
choice /C:RQ
if errorlevel 2 goto Fin
if errorlevel 1 goto Clavier
:Fin
echo.
echo FIN DU PROGRAMME
echo.
pause>Nul | 
Partager