Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 11 Juil 2011, 19:06
Plusieurs méthodes et un programme.
=============
SortA = TriCroi
SortD = TriDécroi
SortA(L1,L2)
Cela Tri les éléments de L1 et L2 tel que L1 soit dans l'ordre croissant
On fait la même chose sans L2 et aussi pour un tri décroissant.
======
Cas où Tous les scores sont classé sans distinction de catégorie.
Pour stocker, il suffit d'ajoûter un nombre à la fin de la liste et classer la liste avec SortD ou SortA. (avec N scores à sauver)
Code
S->L1(N+1
SortD(L1
N->dim(L1
======
Cas où il y a des catégories et plusieurs scores par catégorie.
=> sauver de nouveaux scores
Ce programme insère automatiquement un score dans une liste en fonction du niveau, du nombre total de niveaux, et du nombre de scores par niveau.
Il classe les scores dans l'ordre décroissant pour chaque niveau.
Vous pouvez remplacer les calculs par des valeurs fixes pour intégrer l'agorithme dans un jeu.
Code
structure de stockage des scores :
{ 2 , 1 , 2 , 1 }
score1 ; score2 ;; score1 ; score2
niveau 1 ;; niveau 2
Code
Prompt S // score
Input "LEVEL=",B // niveau
Input "NBRE LVLS=",N // nombre total de niveaux
Input "NBRE SCORE/LVL=",A // nombre de scores par niveau
0->U
For(W,1,N
U+1->U
For(V,1,A
U->L1(V+WA-A // indices
End
End
S->L2(NA+1 // scores
B->L1(NA+1
SortD(L2,L1
For(W,1,NA+1
If L1(W)=B
W->V
W+(NA+1)L1(W)->L1(W
End
(NA+1)(N+1)+1->L1(V
SortA(L1,L2
L2 = liste des scores
nombre de scores dans la liste = A*N = M
M*N+M+1 : c'est le plus grand nombre qui sera conçu par l'algo de tri.
=> affichage de scores par catégorie
Code
1->N
For(A,1,3 // 3 est le nombre de niveaux
EffEcr
If A=1
Disp "FACILE
If A=2
Disp "NORMAL
If A=3
Disp "EXPERT
For(C,1,3 // 3 est le nombre de scores par niveau
Disp L1(N
N+1->N
End
Pause
End
======
Cas où il y a plusieurs catégories mais un seul score par catégorie :
Code
If S>L1(N)
S->L1(N)
// OU BIEN
max(S,L1(N))->L1(N)
---------------------- 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)
