Programme simulant un dès
Posté le 07/06/2009 20:49
Bonjour!
Voila j'ai fait un programme pour simuler un dès et il ne marche pas comme je le veux... pouvez m'aider à chercher l'erreur? Merci d'avance!
Le problème, c'est que quand je donne un nombre N de lancers, le dès fait toujours 1 (qui correspond à la variable A dans ce programme) ... donc pas normal... Quel est-il ce problème ???
La partie qui foire à mon avis, c'est le milieu avec les "if"... j'ai pas screené le reste (pour l'image) car c'est juste je pense (c'est que de l'affichage de texte..
Lbl 0
0ÞA
0ÞB
0ÞC
0ÞD
0ÞE
0ÞF
ClrText
"N="?ÞN
NÞM
Lbl 1
Ran#ÞG
If G<(1/6):Then Isz A
N™1ÞN
IfEnd:If N=0:Then Goto 2
Else Goto 1
If (1/6)àG<(2/6):Then Isz B
N™1ÞN
IfEnd:If N=0:Then Goto 2
Else Goto 1
If (2/6)àG<(3/6):Then Isz C
N™1ÞN
IfEnd:If N=0:Then Goto 2
Else Goto 1
If (3/6)àG<(4/6):Then Isz D
N™1ÞN
IfEnd:If N=0:Then Goto 2
Else Goto 1
If (4/6)àG<(5/6):Then Isz E
N™1ÞN
IfEnd:If N=0:Then Goto 2
Else Goto 1
If Gâ(5/6):Then Isz F
N™1ÞN
IfEnd:If N=0:Then Goto 2
Else Goto 1
Lbl 2
ClrText
Locate 2,2,"1:"
Locate 4,2,A
Locate 2,3,"2:"
Locate 4,3,B
Locate 2,4,"3:"
Locate 4,4,C
Locate 2,5,"4:"
Locate 4,5,D
Locate 2,6,"5:"
Locate 4,6,E
Locate 2,7,"6:"
Locate 4,7,F
Locate 8,2,"PROB 1:"
Locate 15,2,A/M
Locate 8,3,"PROB 2:"
Locate 15,3,B/M
Locate 8,4,"PROB 3:"
Locate 15,4,C/M
Locate 8,5,"PROB 4:"
Locate 15,5,D/M
Locate 8,6,"PROB 5:"
Locate 15,6,E/M
Locate 8,7,"PROB 6:"
Locate 15,7,F/MÝ
ClrText
Goto 0
Pour vous aider à la compréhension je vous screen :
