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 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