bonjour
je suis entrain de recopié un programme mais je ne trouve pas la fontion ipart rand. après des recherches sur internet j'ai lu que pour ipart c'est partent et rand c'est entaleat.mais quand j'utilise c'est fontion la, mon programme ne marche pas.
pouvez vous me dire svp quel est sur la ti82 stat fr la touche ipart rand
merci
Autorisation : Membre
Nb de messages : 438
Inscrit le : Dim 12 Déc 2010, 20:44
Posté le : Sam 03 Déc 2011, 20:37
C'est bizarre iPart(rand donne toujours 0... puisque rand en français c'est NbrAléat, se qui donne un nombre aléatoire entre 0 et 1, donc parEnt(NbrAléat donnera beaucoup 0, et avec beaucoup de chance donnera 1...
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 03 Déc 2011, 20:39
iPart et int donnent le même résultat. Elles se traduisent par ent et partEnt. Remarque que l'inversion dans mon message est volontaire car les TI ont ce défaut de traduction.
L'instruction 1+int(A*rand) peut se traduire mot pour mot mais il y a une fonction plus efficace à partir de la 82stat :
randInt qui se traduit par entAléat (en une seule fonction)
entAléat(A,B) donne un entier aléatoire entre A et B.
---------------------- 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)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 03 Déc 2011, 21:13
partent(entaleat(2,62->D
Enlève aussi le parEnt qui ne sert à rien.
La notion d'entier est déjà présente dans entAléat.
pxl-on(D-1,E+1
Nous pouvons rien y faire sans les valeurs de D et E ni le reste du programme.
D doit être compris entre 1 et 63. E doit être compris entre 0 et 94.
---------------------- 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)
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 03 Déc 2011, 21:51
D,E,F et G ne sont pas initialisées au début donc cela ne peut marcher.
Tu dois avoir oublié le début .
ent(partEnt(a)) ne servent à rien. Tu dois seulement écrire entAléat(2,62) avec uniquement la fonction qui se trouve dans math+gauche+5.
---------------------- 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)
le program en entier.
merci de m'aider.jai donc mis sur ma calculette entaleat(2,62)
:ClrDraw
:AxesOff
:GridOff
:Normal
:Func
:FullScreen
:Float
:ZStandard
:PlotsOff
:FnOff
:Lbl F
:Menu("SÖaKûS","PLAY GAME!",C,"RULES",D,"CREDITS",E
:Lbl D
:ClrDraw
:Text(1,32,"SÖaKûS
:Text(7,1,"THE RULES ARE SIMPLE. GUIDE
:Text(13,1,"YOUR SÖaKû AROUND BY USING
:Text(19,1,"THE ARROW KEYS. TO GAIN
:Text(25,1,"POINTS, GUIDE YOUR SNAKE
:Text(31,1,"THROUGH THE DOTS. (PUSH
:Text(37,1,"ENTER TO SEE AN EXAMPLE.)
:Pause
:Pxl-On(50,30
:Pxl-On(50,32
:Pxl-On(48,30
:Pxl-On(48,32
:For(A,50,40,ú1
:Pxl-On(55,A
:For(B,1,40):End
:End
:For(A,55,49,ú1
:Pxl-On(A,40
:For(B,1,40):End
:End
:For(A,40,31,ú1
:Pxl-On(49,A
:For(B,1,40):End
:End
:Pxl-Off(50,30
:Pxl-Off(50,32
:Pxl-Off(48,30
:Pxl-Off(48,32
:Pxl-On(55,70
:Pxl-On(55,72
:Pxl-On(57,70
:Pxl-On(57,72
:Text(56,1,"(PUSH ENTER)
:Pause
:ClrDraw
:Text(1,32,"SÖaKûS
:Text(7,1,"THE EXAMPLE ON THE BOTTOM
:Text(13,1,"SHOWED HOW TO GET A POINT.
:Text(19,1,"BUT, IF YOU HIT YOURSELF,
:Text(25,1,"GO OUTSIDE, OR HIT ONE OF THE
:Text(31,1,"FOUR DOTS, YOU LOSE. TRY
:Text(37,1,"TO GET AS MANY POINTS
:Text(43,1,"AS YOU CAN BEFORE DIENG
:Text(49,1,"TO GET A HIGH-SCORE.
:Text(55,1,"GOOD LUCK!
:Pause
:Goto F
:Lbl E
:ClrDraw
:AxesOff
:GridOff
:Normal
:Float
:Func
:FullScreen
:PlotsOff
:FnOff
:For(A,94,24,ú1
:Text(29,A,"PHIL SOFTWARE
:End
:For(A,1,94
:For(B,29,35
:Pxl-Change(B,A
:End
:End
:For(A,2,94,2
:For(B,29,35
:Pxl-Off(B,A
:End
:End
:For(A,93,1,ú2
:For(B,35,29,ú1
:Pxl-Off(B,A
:End
:End
:Goto F
:Lbl C
:ClrDraw
:31üA
:47üB
:3üC
:ú1üS
:iPart rand60+2üD
:iPart rand92+2üE
:Lbl B üF
:EüG
:iPart rand60+2üD
:iPart rand92+2üE
:Pxl-On(D-1,E-1
:Pxl-On(D-1,E+1
:Pxl-On(D+1,E-1
:Pxl-On(D+1,E+1
:Pxl-Off(F-1,G-1
:Pxl-Off(F-1,G+1
:Pxl-Off(F+1,G-1
:Pxl-Off(F+1,G+1
:S+1üS
:Lbl A
:getKeyüK
:If K=24
:1üC
:If K=25
:2üC
:If K=26
:3üC
:If K=34
:4üC
:Pxl-On(A,B
:If C=1 and Bø1
:B-1üB
:If C=2 and Aø1
:A-1üA
:If C=3 and Bø94
:B+1üB
:If C=4 and Aø62
:A+1üA
:If A=D and B=E
:Goto B
:If pxl-Test(A,B)=0
:Goto A
:ClrHome
:Disp "SCORE:",S
---------------------- 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)
üF
