Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 30 Nov 2011, 13:59
voici mon premier jeu. quelle amelioration je pourai faire
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
codeTouche->K
if K=105
Pause
If K=25
A-1->A
If K=34
A+1->A
If K=26
B+1->B
If K=24
B-1->B
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Mer 30 Nov 2011, 16:58
For(A,1,16[,2]
Voila un exemple de boucle for.
Elle peut se traduire ainsi :
Pour A variant de 1 à 16 [avec un pas de 2]
(les parties entre crochets sont facultatives : par défaut, le pas est de 1 si il n'est pas précisé).
Enfin, à la fin d'une boucle for, on a un end.
C'est relativement simple mais c'est tout de même la plus compliquée des boucles à utiliser dans un programme
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 30 Nov 2011, 18:29
super merci!!!
Implosion Invité
Posté le : Mer 30 Nov 2011, 18:48
DAAAAAAAAAAAAAAAAAAAAAAAAAAHHHHHHH
Marche pas sur TI-82 stats, ça met "err domaine", je fais "voir", ça me renvoie a la ligne output(S,C,"-
Une solution quelqu'un?
15 caractères, le 16éme apparait a la ligne d'en dessous.
Dans le cas de ma ligne problématique : Output(S,C,"- Il me reste la place d'un caractère a droite.
Implosion Invité
Posté le : Mer 30 Nov 2011, 19:15
Précisions :
Je peux pas bouger le 0 quand je lance le programme. Les - tombent, si par chance je m'en prend aucun, ça met l'erreur de domaine et me montre la ligne de l'output. Si je m'en prend un, ça met "perdu", "score 2", "meilleur score 2"
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 30 Nov 2011, 19:16
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J // a la place tu met 15->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
codeTouche->K
if K=105
Pause
If K=25
A-1->A
If K=34
A+1->A
If K=26
B+1->B
If K=24
B-1->B
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 30 Nov 2011, 19:17
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J // a la place tu met 15->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
codeTouche->K
if K=105
Pause
If K=25
A-1->A
If K=34
A+1->A
If K=26
B+1->B
If K=24
B-1->B
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Implosion Invité
Posté le : Mer 30 Nov 2011, 19:33
ça change rien...(PS : au tout début j'ai du rajouter 0->S parce que sinon ça marchait pas DU TOUT)
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 30 Nov 2011, 19:34
a ouai merde j'ai oublier de le taper dsl
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C //1->C entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
codeTouche->K
if K=105
Pause
If K=25
A-1->A
If K=34
A+1->A
If K=26
B+1->B
If K=24
B-1->B
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
Posté le : Mer 30 Nov 2011, 19:39
Come stp met ton texte en balise code c'est plus agréable. Sinon, essaie ça implosion :
Code
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C //1->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
EffVar K
Repeat K
codeTouche->K
if K=105
Pause
A+(K=34)+(K=25->A
B-(K=24)+(K=26->B
End
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Bon euh ... c'est fait a la va-vite et je ne pense pas que ce sera optimal
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 03 Déc 2011, 13:11
min( et max( donnent respectivement la plus petite et la plus grande valeur entre soit deux séparées par une virgule, soit de toutes les valeurs d'une liste.
Citer
T'as pas besoin du Et. Sa donne
Code
IF A=S(B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
c'est vrai SSI A ne peut pas prendre la valeur 0 en même temps que le contenu de la parrenthèse n'est pas vérifié
si A=0 et la parrentèse vaut aussi 0, alors on a 0=0, ce qui est vrai alors que ni l'une, ni l'autre des conditions sont vérifiées.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 07 Déc 2011, 17:50
j'ai rajouter sa pour qu'il n'y est plus de sortie d'ecran
Code
Texte en sous-format code
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C //1->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
EffVar K
Repeat K
codeTouche->K
if K=105
Pause
A+(K=34)+(K=25->A
B-(K=24)+(K=26->B
If A=0
16->A
If A=17
1->A
If B=9
3->B
If B+2
8->B
End
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 07 Déc 2011, 17:52
j'ai rajouter sa pour qu'il n'y est plus de sortie d'ecran
Code
Texte en sous-format code
effecr
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C //1->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
EffVar K
Repeat K
codeTouche->K
if K=105
Pause
A+(K=34)+(K=25->A
B-(K=24)+(K=26->B
If A=0
16->A
If A=17
1->A
If B=9
3->B
If B+2
8->B
End
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
Autorisation : Membre
Nb de messages : 60
Inscrit le : Mer 21 Sep 2011, 17:10
Posté le : Mer 07 Déc 2011, 17:53
j'ai rajouter sa pour qu'il n'y est plus de sortie d'ecran
Code
Texte en sous-format code
effecr
Code
1->[theta]
8->A
8->B
Lbl 1
[theta]+1->[tetha]
entaleat(1,2->C //1->C
entaleat(3,4->D
entaleat(5,6->E
entaleat(7,8->F
entaleat(9,10->G
entaleat(11,12->H
entaleat(13,14->I
entaleat(15,16->J
Lbl 2
effecr
S+1->S
disp [theta]
output(1,1,"cree par come
output(S,C,"-
output(S,D,"-
output(S,E,"-
output(S,F,"-
output(S,G,"-
output(S,H,"-
output(S,I,"-
output(S,J,"-
output(A,B,"0
EffVar K
Repeat K
codeTouche->K
if K=105
Pause
A+(K=34)+(K=25->A
B-(K=24)+(K=26->B
If A=0
16->A
If A=17
1->A
If B=9
3->B
If B+2
8->B
End
IF A=S et (B=C ou B=D ou B=E ou B=F ou B=G ou B=H ou B=I ou B=J
Goto 3
If S=8
Goto 1
Goto 2
Lbl 3
Effecr
Disp "perdu!!!","score",[tetha]
if [tetha]>W
[tetha]->W
Disp "meilleur score",W
