Apprendre simplement le binaire (C'est très facile) !

[Shadow]

Saloute !

Voici comment apprendre le Binaire, c'est pas compliqué !
Avec ce code vous allez normalement tous comprendre !

Code : Tout sélectionner

; Créer par Mr Dieppedalle David le 28/05/2017.

Procedure.s ArbreBinaire(Nombre.q)
  
  Repeat
    
    ArbreBinaire.s + Str(Nombre.q) + " / 2 = " + Str(Nombre.q / 2)
    
    If Nombre.q % 2 = 0 ; Si Nombre / 2 est Entier (Pas de virgule)
      ArbreBinaire.s + ".0" + " = " + Str(Nombre.q / 2) + ", Reste 0" + #LF$
      NombreBinaire.s + "0"
      
    Else
      ArbreBinaire.s + ".5" + " = " + Str(Nombre.q / 2) + ", Reste 1" + #LF$
      NombreBinaire.s + "1"
      
    EndIf
    
    Nombre.q / 2
    
  Until Nombre.q = 0
  
  ArbreBinaire.s + #LF$ + "Nombre Binaire = " + NombreBinaire.s
  ProcedureReturn ArbreBinaire.s
  
EndProcedure

Debug ArbreBinaire(9223372036854775807)

[falsam]

Sujet que tu as déja évoqué en Mars 2016
http://www.purebasic.fr/french/viewtopi ... 42#p181442

On ne va pas recommencer avec tes cours de binaire et bi-bi naire et autres

Et puis fred nous donne une fonction native.

Code : Tout sélectionner

Debug Bin(150)

d'ailleurs je le dis aussi dans ton sujet précédent.

[sujet déplacé de la section Tutorial à la section Discussion générale]