Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.

Forum Casio - Autres questions


Index du Forum » Autres questions » Programme simulant un dès
Cramdefoin Hors ligne Membre Points: 173 Défis: 0 Message

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 :





LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2022 | Il y a 65 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd