Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Conversion d’un nombre décimale en binaire

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Conversion d’un nombre décimale en binaire   Dim 6 Mar - 1:06

Conversion d’un nombre décimale en binaire

Définition :

(38)10 = (100110)2
C'est-à-dire que 38 dans la base 10 est égal à 100110 dans la base 2.
Pour convertir 38 de la base 10 en son équivalent de la base 2, on a effectué des divisions successives par 2 et on écrit les restes de la division en ordre inverse de leur apparition ; on a obtenu 100110.


Quotient 3819 9 42 1 0
Reste 0 11 0 01 Arrêt
<-------------------------------------------------------
100110


Animation:

[Vous devez être inscrit et connecté pour voir ce lien]

Analyse du programme principal :

Code:
Résultat = Proc affiche (t,j)
Proc Reste (n, t, j)
Proc saisir (n)

Analyse de la procédure Reste :

Code:
   Def Proc Reste (n : entier ; var t : tab ; var j : entier)
   Résultat = t
   t=[ j ← 0 ]
   Répéter
         j ← j + 1
         t[ j ] ← n mod 2
         n ← n div 2
   jusqu’à (n=0)

Code en Pascal :
Code:
Program conversion_10_2;
Uses wincrt ;
Type
Tab=array[1..100] of 0..1 ;

Var
T : tab ;
j, n : integer ;

procedure saisir (var n: integer);
begin
repeat
writeln(‘Saisir un entier positif’);
readln(n) ;
until (n > 0) ;
end ;

procedure Reste ( n:integer; var t:tab; var j:integer) ;
begin
j:=0;
Repeat
j:=j + 1;
t[ j ]:= n mod 2;
n := n div 2;
until n =0;
end;

Procedure afficher(t:tab; j:integer);
Var
i : integer;
begin
For i := j  downto 1 do
Write (t[ i ] : 3);
End;

Begin
Saisir (n);
Reste (n, t, j);
Afficher (t, j);
End.
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Conversion d’un nombre décimale en binaire
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Cours-
Sauter vers: