[TI 83+]Mathématique -> Besoin d'aide

par **payne** le Mer 31 Jan - 2:52

Voilà... j'ai décidé de faire un petit programme pour que vous compreniez que c'est vrai ce qu'Ephemere et moi-même affirmiont :

:0->U:0->V
:0->S:0->T
:Lbl 0
:ClrHome
:Input "NUMBER OF CARS:",A
:If A>99 or A<3
:Goto 0
:iPart(A)->X
:Lbl 1
:ClrHome
:randInt(1,X)->B
:Input "CHOOSE ONE CARD:",C
:If C>X or C<1
:Goto 1
:ClrHome
:Output(4,1,"1: YES
:Output(5,1,"0: NO
:Input "CHANGE OF CARD? ",R
:If R=1 and C=B
:S+1->S
:If R=0 and C=B
:T+1->T
:If R=1 and C=/B
:U+1->U
:If R=0 and C=/B
:V+1->V
:Goto 3
:Lbl 3
:ClrHome
:Output(1,1,"STATS:
:Output(2,1,"----------------
:Output(3,1,"WIN BY CHANGING:
:OUtput(4,7,U
:Output(5,1,"WIN BY =/ CHANGING:
:Output(6,7,T
:Output(7,1,"LOSES (=):
:Output(7,14,V
:Output(8,1,"LOSES (=/):
:Output(8,14,S
:Pause
:Goto 0

Voilà... je n'ai pas terminé, mais pour l'instant, il fonctionne!