Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
FLECHETTE
Auteur Message
sulexa



Autorisation : Membre
Nb de messages : 8
Inscrit le : Jeu 21 Oct 2010, 16:21
Posté le : Jeu 04 Nov 2010, 16:42   Citer 

bonjour, voilà j'aifait un programme de fléchette en graphique vous pourriez me dire ce que vous en pensez.

Code
0->S
lbl pp
eff dessin
ent aleat(1,5)->A
0->D
if A=1
then
-2->C
end
if A=2
then
-14->C
end
if A=3
then
-26->C
end
if A=4
then
-38->C
end
if A=5
then
-50->C
end
ent aleat(1,5)->A
if A=1
then
-2->E
end
if A=2
then
-14->E
end
if A=3
then
-26->E
end
if A=4
then
-38->E
end
if A=5
then
-50->E
end
94->J
C-6->X
0->F
10->G
9->H
8->I
0->M
X->R
X->U
F->N
G->O
H->P
I->Q
ligne(D,C,D,C-12
cercle(D,C-6,6
ligne(J,E,J,E-12)
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
repeat K>91 et K<95 ou K>81 et K<85 ou K>71 et K<75
code touche->K
end
if K=92
then
repeat M=4
M+1->M
F+21->F
G+21->G
I+21->I
H+21->H
X+12->X
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
pause
goto X
endlbl X
if X=E-6
then
S+1->S
goto 99
else
output(4,1,3VOUS AVEZ PERDU
output(5,2,"AVEC    POINTS
output(5,7,"S
pause
effecr
output(1,1,"
end


bon pour aujord'hui j'ai plus envie de continuer, pour ceux qui voudrait essayer je vous donne les dernieres lignes du programme vous pourrez tester au moin avec la touche 1
si vous avez des idées pour le racourcir ça m'aiderait je mettrai le reste dans le courant de la semaine prochaine

----------------------
vive les TI
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Jeu 04 Nov 2010, 20:14   Citer 

pour le simplifier:

quand tu écris un If + condition, tu dois mettre "Then" et "End" seulement si ton If a plus d'une instruction à effectuer.

je m'explique:
prenons des exemples au hasard:


Code
If B=45
Then
8->E
Disp "COUCOU"
EffDessin
T->G
End




mais par contre, on écrit:


Code
If B=45
1->A



et non pas


Code
If B=45
Then
1->A
End



et même, pour une meilleure lisibilité, écrits le en utilisant les deux points:


Code
If B=45:1->A



 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 04 Nov 2010, 23:01   Citer 

Remplace

Code
ent aleat(1,5)->A
if A=1
then
-2->C
end
if A=2
then
-14->C
end
if A=3
then
-26->C
end
if A=4
then
-38->C
end
if A=5
then
-50->C
end
ent aleat(1,5)->A
if A=1
then
-2->E
end
if A=2
then
-14->E
end
if A=3
then
-26->E
end
if A=4
then
-38->E
end
if A=5
then
-50->E
end

Par
Code
entaléat(1,5)->A
10-12A->C
entaléat(1,5)->A
10-12A->E



----------------------
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
 Adresse email Haut de page Bas de page 
 
Persalteas



Autorisation : Membre
Nb de messages : 2176
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 06 Nov 2010, 11:06   Citer 

whaa!
ça c'est du simplifiage!! (euh, on dit de la simplification ou du simplifiage?)

 Adresse email Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Sam 06 Nov 2010, 22:35   Citer 

en effet
ps: je crois que les 2 mots se disent...

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
sulexa



Autorisation : Membre
Nb de messages : 8
Inscrit le : Jeu 21 Oct 2010, 16:21
Posté le : Mar 09 Nov 2010, 12:52   Citer 

Super génial ton truc grace a toi j'ai économisé des octets je mets la suite du progue a mettre avant lblX

if K=93
then
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
repeat M=3
M+1->M
X-12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
pause
goto X
end
if K=94
then
X-12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
repeat M=3
M+1->M
X-12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
pause
goto X
end
if K=82
then
X+12->X
repeat M=2
M+1->M
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
repeat M=4
M+1->M
X-12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
pause
goto X
end
if K=83
then
repeat M=2
M+1->M
X-12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
repeat M=4
M+1->M
X-12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
pause
goto X
end
if K=84
then
repeat M=2
M+1->M
X+12->X
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
end
F+21->F
G+21->G
H+21->H
I+21->I
ligne(F,X,G,X
ligne(H,X-1,H,X+1
ligne(I,X-2,I,X+2
ligne(N,R,O,R,0
ligne(P,R-1,P,R+1,0
ligne(Q,R-2,Q,R+2,0
pt-on(0,U
pt-on(6,U
X->R
X->U
F->N
G->O
H->P
I->Q
X-12->X
F+21->F
G+21->G
H+21->H


J'ai cour je met la suite plus tard
I+21->I

----------------------
vive les TI
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa