Sujets variés concernant le développement en PureBasic
-
Shadow
- Messages : 1373
- Inscription : mer. 04/nov./2015 17:39
Message
par 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)
Processeur: Intel Core I7-4790 - 4 Cœurs - 8 Thread: 3.60 Ghz.
Ram: 32 GB.
Disque: C: SDD 250 GB, D: 3 TB.
Vidéo: NVIDIA GeForce GTX 960: 2 GB DDR5.
Écran: Asus VX248 24 Pouces: 1920 x 1080.
Système: Windows 7 64 Bits.
PureBasic: 5.60 x64 Bits.
-
falsam
- Messages : 7244
- Inscription : dim. 22/août/2010 15:24
- Localisation : IDF (Yvelines)
-
Contact :
Message
par 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.
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]
Configuration : Windows 11 Famille 64-bit - PB 6.03 x64 - AMD Ryzen 7 - 16 GO RAM
Vidéo NVIDIA GeForce GTX 1650 Ti - Résolution 1920x1080 - Mise à l'échelle 125%