Algo

[Résolut]Conversion d'un base 10 en base 16

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolut]Conversion d'un base 10 en base 16

The matrix

Chacun fait ce qu'il en veut.

Bonjour,

je cherche l'algo qui me permettrait de convertir un base 10 en base 16, thx.

Message édité par The matrix le 12-08-2009 à 20:33:43

---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter

Publicité

The matrix

Chacun fait ce qu'il en veut.

Avec Ada, j'ai fait ceci ...

Code :

procedure Test is
 
   function Hex_Image(Num : Integer) return String is
      Image : String(1..9);
      Last  : Positive := 9;
      Number : Integer := num;
      type Hexa_Digit is
        ('0', '1', '2', '3', '4', '5', '6', '7',
         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
      Rest : Integer;
   begin
      while number > 16 loop
         image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val((Number rem 16))));
         Number := Number - (Number rem 16);
         Last := Last - 1;
 
      end loop;
      image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val(Number)));
      return Image(Last..Image'length);
   end Hex_Image;
 
 
begin
   Put(Hex_Image(Num => 100));
end Test;

J'ai un Constraint_Error levé ligne 17 à l'execution.

Message édité par The matrix le 12-08-2009 à 13:52:38

The matrix

Chacun fait ce qu'il en veut.

Voici le code corrigé...

Code :

function Hex_Image(Num : Integer) return String is
      Image : String(1..9);
      Last  : Positive := 9;
      Number : Integer := num;
      type Hexa_Digit is
        ('0', '1', '2', '3', '4', '5', '6', '7',
         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
      Rest : Integer;
   begin
      while (Number rem 16) /= 0 loop
 
         Rest := (Number rem 16);
         image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val((rest))));
         number := Number - rest;
 
         Last := Last - 1;
 
      end loop;
      image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val(Number/16)));
      return Image(Last..Image'length);
   end Hex_Image;

Merci !

Taz

bisounours-codeur

Tu fais par division successive par 16, en traduisant le reste en base 16 (=> 1 chiffre). Et tu renverses le tout:

30041983/16
1877623.93750000000000000000
1877623*16
30041968
30041983-30041968
[b]15[/b]

1877623/16
117351.43750000000000000000
1877623-117351*16
[b]7[/b]

117351/16
7334.43750000000000000000
117351-7334*16
[b]7[/b]

7334/16
458.37500000000000000000
7334-458*16
[b]6[/b]

458/16
28.62500000000000000000
458-28*16
[b]10[/b]

28/16
1.75000000000000000000
28-1*16
[b]12[/b]

[b]1[/b]

Et voilà, tu relis de bas en haut:

printf %x 30041983
1ca677f

The matrix

Chacun fait ce qu'il en veut.

Merci Taz !

Je savais plus, j'étais un peu pommé. Merci.

The matrix

Chacun fait ce qu'il en veut.

Petite rectification du code ci-dessus ...

Code :

function Hex_Image(Num : Integer) return String is
      Image : String(1..9);
      Last  : Positive := 9;
      Number : Integer := num;
      type Hexa_Digit is
        ('0', '1', '2', '3', '4', '5', '6', '7',
         '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
      Rest : Integer;
   begin
      loop
 
         Rest := (Number rem 16);
         image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val((Rest))));
         number := Number - rest;
 
         Last := Last - 1;
         exit when (Number rem 16) = 0;
      end loop;
      image(Last) := Character'Value(Hexa_Digit'image(Hexa_Digit'val(Number/16)));
      return Image(Last..Image'length);
   end Hex_Image;

Message édité par The matrix le 12-08-2009 à 15:22:38

FORUM HardWare.fr

Programmation

Algo

[Résolut]Conversion d'un base 10 en base 16

Sujets relatifs
Inserer données fichier excel dans base Mysql	recuperer des données de la base
[Résolut]Traduction du C++	Conversion d'un nombre hexa en float
enregistrement en arabe illisible dans la base mysql	hebergement d'une base MySQL distante
inserer dans la base	Lire donnée dans une base avec mysql
Utiliser base de donne d'un autre site	formater du texte issu d'une base PHP
Plus de sujets relatifs à : [Résolut]Conversion d'un base 10 en base 16

Page générée en 0.075 secondes