Poster un nouveau sujet Poster une réponse
Roulettte russe
Auteur Message
Pieih
Invité
Posté le : Jeu 18 Fév 2010, 17:13   Citer 

Voici un petit programme, niveau technique il est loin d'etre parfait mais il permet de passer le temps en cours bigmouth.gif

Code
:EffEcr
:Lbl1
:entAléat(1,6)->A
:While1
:Effecr
:entAléat(1,6)->B
Disp"tourne le"," chargeur"
:Pause
:If A=B
:Goto2
:End
:Lbl2
:if A=B
:Then
Disp "Tes mort!"
Output(1,1,"



Versions avec deux balles dans le chargeur:

Code
:EffEcr
:Lbl 1
:entAléat(1,6)->A
:entAléat(1,6)->C
:End
:If A=C
:Goto 1
:While 1
:Effecr
:entAléat(1,6)->B
:Disp"tourne le"," chargeur"
:Pause
:If A=B ou B=C
:Goto2
:End
:Lbl2
:if A=B ou B=C
:Then
Disp "Tes mort!"
:Output(1,1,"




Si vous avez des améliorations je suis preneur !

Ps: Il y a-t-il un moyen de déterminer si un nombre et paire ou impair avec la ti-82 stats ?

  Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Jeu 18 Fév 2010, 17:37   Citer 

Tu divises par 2 et tu regardes si la partie décimale est non nulle.


Code

:If PartDec(X/2)
:Disp "IMPAIR"




Aussi je crois qu'à la roulette russe on ne peut tomber qu'une fois sur une chambre sauf si le barillet est tourné entre chaque coup.

Dans le 1er cas il faudra par exemple utiliser une liste qui stocke les 6 chambres et qui attribue la valeur 1 si elles sont déjà tombées (0 sinon), du coup si entaleat=chambre qui vaut 1 tu refais un entaleat.

 Adresse email Haut de page Bas de page 
 
Pieih
Invité
Posté le : Jeu 18 Fév 2010, 17:42   Citer 

Merci je connaisais pas la fonction...
Donc prochainement je pense que je pourrais poster une simulation de roulette francaise !

  Haut de page Bas de page 
 
Spofish
Invité
Posté le : Dim 26 Sep 2010, 21:02   Citer 

Bonjour, j'ai recopier le jeu avec une seul balle et je le trouve asser maran mais il manque de... gueule je pensais (je parle au bon programeur) qui serait bien d'ajouter au dessou de ¨TOURNE LE CHARGEUR¨ un pistolet et en dessou de ¨T ES MORT¨ une tete de mort. Merci d'aboutir à ma requette.bigmouth.gif

  Haut de page Bas de page 
 
Spofish
Invité
Posté le : Dim 26 Sep 2010, 21:23   Citer 

c_______________________
('''''''''''''(xxxxxx('''''''''IB
(-----^)--(xxxxxx(-----_I
[\\\\\]''
[\\\\\]_

Voiçi un exemple de pistolet (trés mal fai) ^^

  Haut de page Bas de page 
 
Spofish
Invité
Posté le : Lun 27 Sep 2010, 17:58   Citer 

c__________________
('''''''''''''''''(xxxxxx(''''''''''IB
(-----^)--(xxxxxx(-----_I
[\\\\\]''
[\\\\\]_
Heu plutôt comme sa...

  Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes