TI 82 et + Casio Graph 65 et +
:FnOff :ClrHome :ClrDraw :AxesOff :0 -> A :0 -> B :0 -> C :0 -> E :0 -> F :0 -> G :0 -> H :0 -> Z :0 -> D :0 -> W :Text(27,26,A :Text(27,42,B :Text(27,58,C :RecallPic Pic6 :Pause :Lbl 8 :ClrDraw :Text(27,26,A :Text(27,42,B :Text(27,58,C :RecallPic Pic5 :For(Z,0,100) :End :ClrDraw :RecallPic Pic6 :Text(27,26," " :Line(27,24,27,40) :For(Z,0,300) :End :Text(27,42," " :Line(43,24,43,40) :For(Z,0,300) :End :Text(27,58," " :Line(59,24,59,40) :For(Z,0,600) :End :Line(27,25,27,39,0) :int 3rand -> A :Text(27,26,A :For(Z,0,400) :End :Line(43,25,43,39,0) :int 3rand -> A :Text(27,42,B :For(Z,0,400) :End :Line(59,25,59,39,0) :int 3rand -> C :Text(27,58,C :For(Z,0,50) :End :If A=B And B=C :Then :Goto 1 :End :If A=/B or B=/C :Then :Goto 3 :End :Lbl 1 :W+1 -> W :If W=1 :Then :500000 -> E :End :If W=2 :Then :1000000 -> F :End :If W=3 :Then :1500000 -> G :End :If W=4 :Then :20000000 -> H :End :If W>4 :Then :Goto 5 :End :Lbl 4 :D+1 -> D :Text(10,30,"JACKPOT" :For(Z,0,100) :End :text(30,10," " :For(Z,0,100) :End :If D=5 :Then :Goto 2 :End :Goto 4 :Lbl 2 :Clrhome :Disp "FELICITATIONS!" :Pause :Disp "TU AS GAGNE LE JACKPOT." :Pause :Lbl 3 :Menu(" JACKPOT ","CONTINUER",8,"ARGENT GAGNE",7,"ARRETER",9) :Lbl 9 :Stop :Lbl 7 :ClrHome :E+F+G+H -> Y :Disp "","ARGENT GAGNE",Y :Pause :Goto 3 :Lbl 5 :ClrHome :Disp "LA BANQUE EST","RUINEE..." :Pause :E+F+G+H -> Y :Disp "ARGENT AMMASSE:",Y :Stop Voici les dessins Pic5 et Pic6 (Crée un nouveau programme que tu effaceras une fois que tu l'auras exécuté et qu'il aura fonctionné correctement) Pic6 Pic5 :Line(16,6,70,6) :Line(16,6,70,6) :Line(70,6,70,56) :Line(70,6,70,56) :Line(70,56,16,56) :Line(70,56,16,56) :Line(16,56,16,6) :Line(16,56,16,6) :Line(26,10,58,10) :Line(26,10,58,10) :Line(58,10,58,18) :Line(58,10,58,18) :Line(58,18,26,18) :Line(58,18,26,18) :Line(26,18,26,10) :Line(26,18,26,10) :Line(22,24,32,24) :Line(22,24,32,24) :Line(32,24,32,40) :Line(32,24,32,40) :Line(32,40,22,40) :Line(32,40,22,40) :Line(22,40,22,24) :Line(22,40,22,24) :Line(38,24,48,24) :Line(38,24,48,24) :Line(48,24,48,40) :Line(38,24,48,24) :Line(48,40,38,40) :Line(48,40,38,40) :Line(38,40,38,24) :Line(38,40,38,24) :Line(54,24,64,24) :Line(54,24,64,24) :Line(64,24,64,40) :Line(64,24,64,40) :Line(64,40,54,40) :Line(64,40,54,40) :Line(54,40,54,24) :Line(54,40,54,24) :Line(70,26,80,26) :Line(70,26,76,26) :Line(80,26,80,42) :Line(70,30,80,30) :Line(76,30,76,42) :Line(76,26,76,18) :Line(76,42,80,42) :Line(80,30,80,18) :Line(70,30,76,30) :Line(80,18,76,18) :Line(80,42,84,46) :Line(76,18,72,14) :Line(84,46,84,50) :Line(72,14,72,10) :Line(84,50,80,54) :Line(72,10,76,6) :Line(80,54,76,54) :Line(76,6,80,6) :Line(76,54,72,50) :Line(80,6,84,10) :Line(72,50,72,46) :Line(84,10,84,14) :Line(72,46,76,42) :Line(84,14,80,18)-> = petite flèche (STO) =/ = différent de
Si vous avez d'autres programmes, des remarques ou des problèmes,
N'hésitez pas à me contacter : webmaster@procaltos.fr.st