Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> aide pour meilleurs scores

aide pour meilleurs scores

Auteur

Message

leton2111

Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14

Posté le : Jeu 07 Oct 2010, 19:20

voila j'utilise ce jeu de course

:7üT
:ClrHome
:6üA:8üI:10üY
:ClrList L†
:Tüdim L†
:Ansüdim L…
:Fill(0,L…
:For(X,1,T
:6üL†(X
:Disp "/////] [/////
:End
:Output(1,8,"V
:For(X,0,ý^9
:getKeyüK
:If K=24:I-1üI
:If K=26:I+1üI
:A-1+int 3randüA
:If A=1:2üA
:If A=11:10üA
:AüL†(T
:Disp "
:Output(8,1,X
:Output(T,1,"////////////////
:Output(T,A,"] [
:Output(1,I,"V
:If rand<X/300
:Then
:A+int 4rand+1
:Output(T,Ans,"Á
:0.01Ans+L†(TüL†(T
:End
:int L†(1
:If I÷Ans or Iù5+Ans or I=100fPart L†(1
:Goto 0
:SortA(L…,L†
:End:Lbl 0
:Output(1,I,"X
:Output(8,8,"GAME OVER
:Pause :ClrHome
:ClrList L…,L†
:Output(1,1,"

j'aimerai rajouter le meilleurs score dans une liste (petit)lscore

si vous voulez bien me l'expliquer puis un menu d'avant jeu affichant les 3 meilleurs /ou le meilleurs peu importes

merci d'avance d'un seconde

leton2111

Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14

Posté le : Jeu 07 Oct 2010, 19:43

si se programmes appartient a quelqu'un et que le publier le gene il faut me le signaler cé mon frere qui me la donnée merci

linkakro

Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Jeu 07 Oct 2010, 22:35

Ce programme vient de ce forum

(en tout cas il est dans la liste des jeux)

Le titre de la liste n'est pas judicieux si tu as plusieurs jeux.

* Pour un seul meilleur score, ajoûte au tout début

Code

1->dim(lSCORE
ClrHome
Pause lSCORE(1)

et à la fin

Code

If X>lSCORE(1)
X->lSCORE

* Pour 3 scores,

Code

4->dim(lSCORE
ClrHome
Disp lSCORE(1)
Disp lSCORE(2)
Disp lSCORE(3)
Pause

Code

X->lSCORE(4
SortD(lSCORE

edit: correction d'après une faute signalée plus bas

----------------------
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

leton2111
Invité

Posté le : Dim 10 Oct 2010, 18:46

merci

leton2111

Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14

Posté le : Dim 10 Oct 2010, 19:00

la tu tester ?
il me met erreur type de donnée puis me renvoie a
:if x>(petit l) lscore

sinon merci
et si tu a la solution reposte

leton2111

Autorisation : Membre
Nb de messages : 9
Inscrit le : Jeu 07 Oct 2010, 19:14

Posté le : Dim 10 Oct 2010, 19:06

j'ai trouver a la fin apres la liste il faut mettre le (1)

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> aide pour meilleurs scores

Page générée en 9 requêtes

Flux RSS