Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> 1, 2 ou 3 dés ?

1, 2 ou 3 dés ?

Auteur

Message

Mathérible

Autorisation : Membre
Nb de messages : 12
Inscrit le : Mar 20 Nov 2012, 21:24

Posté le : Ven 11 Jan 2013, 9:46

Bonjour,

J'aimerais vous présenter 3 programmes pour lancer des dés

Code

:prgmDE1
EffEcr
For(F,1,100
entAléat(1,6ü

A
Output(4,8,A
End
Pause
EffEcr
Output(1,1,""

Code

:prgmDE2
2ü

Y
15ü

Z
EffEcr
For(F,1,50
entAléat(1,6ü

A
entAléat(1,6ü

B
Output(4,Y,A
Output(4,Z,B
End
Repeat Y=8 et Z=9
Output(4,Y,A
Output(4,Y-1," "
Output(4,Z,B
Output(4,Z+1," "
Y+1ü

Y
Z-1ü

Z
End
EffEcr
A+Bü

X
Output(4,8,x
Pause
EffEcr
Output(1,1,""

Code

:prgmDE3
2ü

Y
15ü

Z
EffEcr
For(F,1,100/3
entAléat(1,6ü

A
entAléat(1,6ü

B
entAléat(1,6ü

C
Output(4,Y,A
Output(4,8,B
Output(4,Z,C
End
Repeat Y=8 et Z=9
Output(4,Y,A
Output(4,Y-1," "
Output(4,Z,C
Output(4,Z+1'" "
Y+1ü

Y
Z-1ü

Z
End
EffEcr
A+B+Cü

X
Output(4,8,X
Pause
EffEcr
Output(1,1,""

(note: Ces prog ont été rééditer)

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Ven 11 Jan 2013, 16:51

Tu as confondu ù (>=) et ü (->).

Tu peux regrouper les calculs et affichages, mais cela nécessiterait un calcul supplémentaire après la boucle pour stocker le résultat.
Output(4,8,entAléat(1,6

La génération de plusieurs aléatoires est techniquement innutile mais cela ajoute de la vie au jeu.

Tu peux remplacer le Repeat par un For.

Code

For(W,1,7
Output(4,1+W,A
Output(4,W," "
Output(4,16-W,B
Output(4,17-W," "
End

Je suis troublé par l'abscence du troisième dé dans l'affichage de DE3.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Mathérible

Autorisation : Membre
Nb de messages : 12
Inscrit le : Mar 20 Nov 2012, 21:24

Posté le : Lun 14 Jan 2013, 12:20

Si tu parle du 3e dés dans repeat, c'est parce que le 3e des ne se déplace pas

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 14 Jan 2013, 13:51

Dans ce cas le troisième dé, à la colonne 8, sera écrasé par le dé de gauche à la fin.

Code

//prgmDE3
EffEcr
For(F,1,33
entAléat(1,6->A
entAléat(1,6->B
entAléat(1,6->C
Output(4,1,A
Output(4,8,B
Output(4,15,C
End
For(W,1,6
Output(4,W," "
Output(4,1+W,A
Output(4,16-W," "
Output(4,15-W,C
End
EffEcr
Output(4,8,A+B+C
Pause
EffEcr
Output(1,1,"

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store

Mathérible

Autorisation : Membre
Nb de messages : 12
Inscrit le : Mar 20 Nov 2012, 21:24

Posté le : Mer 16 Jan 2013, 8:10

de toute façon, ce qui importe, c'est le résultat

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> 1, 2 ou 3 dés ?

Flux RSS