Pour faire un top 10
Date: 21 janvier 2006 à 22:48:47 CET
Sujet: Quelques astuces de programmation


Vous avez crée un matrice ( ici pour l'exemple ce sera Mat A[n*1] pour un top 6 )
S→Mat A[n,1]
Mat→List(Mat A,1)→List 1
SortD(List 1)
List→Mat(List 1)→Mat A
pi→Mat A[n,1]
1→A
Lbl 1
0→C
Clrtext
For A→B To B+7
Mat A[A,1]=pi=>Break
B>8=>10→C
Locate 1,A+C,A
Locate 3,A+C,Mat A[1,A]
Next
Do:Getkey→X
LpWhile X=0
X=37=>A+7→A
X=28=>A-7→A
B1→B
Goto 1


Ce programme met le dernier score en dernière position de la matrice, il va la classer et mettre une valeur du style pi en dernière position. Ensuite Il va affiché tous les scores dans l'ordre et quel que soit le nombre qu'il y en a.







Cet article provient de Programmes et jeux pour calculatrices Casio Graph et calculatrice ClassPad 300, jeux casio, cours...
http://www.jeuxcasio.com

L'URL de cet article est:
http://www.jeuxcasio.com/article-102.html