Petit prog pour les interessés - Page 1

Voilà suite à une consultation quelconque dont le sujet concernait un programme pour la conversion de nombres entiers en nombres binaires je me suis proposé de réaliser ce petit programme por ceux que ca interessait bien sûr.
Normalement tout fonctionne j'ai pris le temps de verifier.
Par contre j'ai moi aussi une petite question concernant l'affichage des "0","1". En effet, ceux ci se fait à la suite les uns en dessous des autres ce qui pose probleme pour la lecture du résultat. Si vous pourriez me donner une astuce enfin, me donner la commande car j'ai malheuresement égaré mon manuel avec toutes les instructions en basic, seul me reste des souvenirs mais pas complets lol.
le prog;
prgm
prompt a
2^x->b
0->x
1->b
while a>b
x+1->x
2^(x+1)->b
endwhile
b/2->b
disp "",b
pause
lbl h
if a>b then
disp "1"
a-b>b
else
disp"0"
b/2>b
endif
if a/b=1
then
disp"1"
disp"0"
pause
else
goto h
endif
disp"all is right"
endprgm

copyright GS corporation..

construit une chaine en les concaténant au fur et à mesure par exemple.

Voilà une solution qui semble fonctionner ... (en basic francais, le signe # étant le signe différent de) :

decenbin(d)
Func
  Local r
  If d=0 Then
    "0" -> r
  Else
    "" -> r
    While d#0
      car(48+(d and 1)) & r -> r
      décale(d, -1) -> d
    EndWhile
  EndIf
  Return r
EndFunc

© CBSoft, 2005.

Voici un petit code que j'ai fait:

Func
 Local i,s
 1->i:""->s
 While i<x+1
  If (i and x)=0 Then
   "0"&s->s
  Else
   "1"&s->s
  EndIf
  shift(i,1)->i
 EndWhile
 "0b"&s
EndFunc

© Twindruff Corporation ...

Voilà un code fait par moi :
nombre►Bin
© Clairement Corporation

(oui, mais tout dépend si on a besoin du 0b ou pas)

merci mise a part quelques reponses ...... comme d'habitude si je puis dire mais un grand merci à ceux qui ce sont penchés sur le blem. Ce que je vais faire, je vais essayer en fin de matinée car je dois m'absenter et je vous tiens au courant.
En ce qui concerne le progm dites moi si vous avez trouvé une faille en traduisant mais je ne pense pas.