Problème script basic

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème script basic

nokthib

Etudiant en Allemagne !

Hello

Pour l'école je dois faire un petit programme en basic pour transformer un nombre compris entre 0 et 65535 (registre de 16bit)

Seul problème on doi se démerder seul, et voila ce que j'ai, je pense etre tout pret mais il doiy y avoir une petite erreur je ne sais ou

Voici le code:

Code :

cls
[home]
input "Quel nombre ? ";y
print:print
if y<0 then goto [home]
if y>65535 then goto [home]
[home2]
y=y/2
v=INT(y)
if v=y then print"0"
if v<>y then print "1"
y=y-0.5
if y=0 then goto [home]
goto [home2]

Qu'est-ce qui foire la dedans ? Merci

Message cité 1 fois

---------------
Du bist das Mädchen, dass zu mir gehört !

Publicité

arnaud1206

Salut,
Si j ai bien compris tu veux transformer un nombre en binaire ????
Si c est bien cela alors ce qui foire c est tout simplement ton alogorithme.....on prend un nombre, on le divise par deux, on recupere le reste et le quotient, ensuite......
@++

Vobiscum

Vénérez moi !

nokthib a écrit :

Code :

cls
[home]
input "Quel nombre ? ";y
print:print
if y<0 then goto [home]
if y>65535 then goto [home]
[home2]
y=y/2
v=INT(y)
if v=y then print"0"
if v<>y then print "1"
y=y-0.5
if y=0 then goto [home]
goto [home2]

Qu'est-ce qui foire la dedans ? Merci

essaye avec ceci:

Code :

[home]
input "Quel nombre ? ";y
print:print
If y < 0 Or y > 65535 Then GoTo [home]
Do
y = y / 2
v = Int(y)
If v = y Then
x = "0" + x
Else
x = "1" + x
y = Int(y)
End If
Loop Until y = 0
print x
GoTo [home]

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.

nokthib

Etudiant en Allemagne !

hello

voila l'organigramme:

http://nokthib3.free.fr/photos/per [...] gramme.JPG

et en refaisant le code, j'obtiens ca comme réponses:

Citation :

Quel nombre à diviser ? 125
0
Quel nombre à diviser ? 6
1
Quel nombre à diviser ? 5
0
Quel nombre à diviser ? 4
1
Quel nombre à diviser ? 3
0
Quel nombre à diviser ? 2
1
Quel nombre à diviser ? 1
0
Quel nombre à diviser ? 0
1
Quel nombre à diviser ?

ps: j'utilise Liberty basic... programme obliger pour l'école !

et enfin: le code:

Code :

cls
[home]
input "Quel nombre à diviser ? ";nb
if nb < 0 then goto [home]
if nb > 65535 then goto [home]
[home2]
nb2 = nb/2
z = INT(nb2)
if nb2 = z then print "1"
if nb2 <> z then print "0"
nb = nb2-0.5
if y <> 0 then goto [home2]
if y = 0 then goto [home]

Voila, qu'est-ce qui foirez? apparamment, mon organigramme est ok ? si j'ai foirer qq chose dans mon code, thanks de me le dire

Merci

---------------
Du bist das Mädchen, dass zu mir gehört !

Vobiscum

Vénérez moi !

Et la valeur d' "y" ?? Quand lui assignes-tu quelque chose ?

---------------
Ce qui est affirmé sans preuve peut être nié sans preuve.

nokthib

Etudiant en Allemagne !

escuse, c'est pcq dans mon cours j'ai y, et j'ai change y en nb ... pour que ce soit plus clair

---------------
Du bist das Mädchen, dass zu mir gehört !

nokthib

Etudiant en Allemagne !

Code :

cls
[home]
input "Quel nombre à diviser ? ";z
if z < 0 then goto [home]
if z > 65535 then goto [home]
[home2]
z = z/2
w=int(z)
if z = w then print "0"
if z <> w then print "1"
if z<>w then z=z-0.5
if z <> 0 then goto [home2]
if z = 0 then end

Et voilà, il fonctionne

Meric à tous d'avoir essayer de m'aider, certe je n'ai pas été précis

---------------
Du bist das Mädchen, dass zu mir gehört !

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Problème script basic

Sujets relatifs
[CSS] - Probleme double marge IE : position:absolute [résolu]	[Visual Basic 6] - Compter le nombre de fois qu'une lettre apparait
probleme sessions panier	[ECLIPSE] ClearCase plugin->> Probleme Résolu
Probleme de resize des thumbnails galerie photo...	recherche script d'inscription
Problème avec Spip	problème lien html dans une iframe svp
petit probleme formulaire	[Visual Basic 6] Nombre aléatoire qui n'est pas vraiment aléatoire...
Plus de sujets relatifs à : Problème script basic

Page générée en 0.079 secondes