Bonjour,
 
Je souhaite convertir un octet en décimal.
je ne suis pas for pour formuler un pseudo-code alors, permettez moi de vous présenter ce que j'ai fais avec Ada.
 

type T_Byte is array (1..8) of Boolean;
 
function To_Byte(Bbyte : in T_Byte) return Byte is
      The_Byte : Byte := 0;
   begin
      for I in reverse Bbyte'Range loop
         The_Byte := The_Byte + (boolean'Pos(Bbyte(I))*2)**(I-1);
      end loop;
      return The_Byte;
   end To_Byte;

 
Boolean'pos() revoie la position de la valeur => de type entier universel... Selon
Si False => 0 ; Si True => 1;
 
Mon problème, je pense, est que lorsque i=0, The_Byte prend +1;
 
Enfin, j'en rajoute pas, je suis nul en maths, Merci pour votre aide.

T'aurais pas un problème de parenthèse ?
Je ne connais pas la syntaxe ADA mais il faut faire : bit * (2^position) et non (bit * 2)^position
Et là du coup si bit = 0 alors ça pour la position 0 tu auras bien 0.

 
Oui, c'est ça... Merci beaucoup !  
 
Oh l'embrouille que je me suis faite.