Problème script basic

Marsh Posté le 10-11-2005 à 18:53:59

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 !

Reply

Marsh Posté le 10-11-2005 à 18:53:59

Reply

Marsh Posté le 11-11-2005 à 11:02:50

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......
@++

Reply

Marsh Posté le 11-11-2005 à 15:02:11

nokthib a écrit :

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

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.

Reply

Marsh Posté le 14-11-2005 à 19:59:42

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 !

Reply

Marsh Posté le 15-11-2005 à 09:06:45

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

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

Reply

Marsh Posté le 15-11-2005 à 16:31:32

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 !

Reply

Marsh Posté le 16-11-2005 à 17:11:07

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 !

Reply

Problème script basic

Sujets relatifs:

Leave a Replay