Autorisation : Membre
Nb de messages : 80
Inscrit le : Jeu 24 Fév 2011, 19:12
Posté le : Ven 18 Mar 2011, 12:36
Programme RESETMEM par made2kill (à savoir moi ) : 536 octets.
Un petit programme que j'avais fait à mes débuts dans la programmation, et que j'ai amélioré récemment en le ralentissant.
Ce programme donnera l'illusion que votre calto va se réinitialiser... malheureusement, j'ai vu plus tard que ce programme (ou plutôt le principe de ce programme) avait déjà été fait par le webmaster.
Bon... je vous le poste quand même, au cas où...
prgmRESETMEM
Code
Menu("RESET MEMORY ?","NO",[THETA],"YES",A
Lbl [THETA]
ClrHome
0[STO]Z
Lbl E
While Z [EST DIFFERENT DE] 50
Z+1[STO]Z
If Z=50
Goto N
If Z [EST DIFFERENT DE] 50
Goto E
Lbl N
Disp "FATAL ERROR.","MEMORY MUST BE","DELETED.","LA MEMOIRE DOIT","ETRE EFFACEE."
Pause
Lbl A
ClrHome
69!:69!:69!
Output(4,4,"DELETING...
Pause
ClrHome
69!:69!:69!:69!:69!:69!:69!:69!:69!:69!
Disp "VAR DELETED."," ","DELETING THE","REST...
Pause
ClrHome
69!:69!:69!:69!:69!:69!:69!:69!:69!:69!:69!:69!:69!:69!:69!
Disp "PROG DELETED"," ","DELETING THE","REST...
Pause
ClrHome
69!:69!:69!:69!:69!:69!:69!:69!:69!:69!:69!
Disp "ALL MEM DELETED"
Pause
ClrHome
69!:69!:69!
Output(4,3,"TI 83 +
Output(4,3,"MEM CLEARED
Pause
ClrHome
Output(1,1," <-1 espace
A noter également que le
Code
Output(4,3,"TI 83 +
est à changer selon le modèle de votre calto (j'ai mis le modèle de la mienne).
Voilà, c'est mon premier programme, n'hésitez pas à commenter !
---------------------- Aussi connu sous le nom de f/x=x².
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 19 Mar 2011, 8:20
c'est assez bien, sauf:
- "we must be deleted" veut dire "nous devons être supprimés", alors, soit ta TI est schizo, soit tu as utilisé google traduction.
- pour info, tu peux remplacer tous les 69! par une boucle for avec rien dedans.
for(A,1,X
End
et plus X est grand, plus le temps d'attente sera long.
ça donne trois avantages (petits avantages, maios avantages quand même):
- ça prend surememnt moins de mémoire
- c'est moins énervant à taper
- ça permet de faire des temps d'attente très longs, même sur des modèles avancés (je pense à la 84+ qui va très vite)
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Sam 19 Mar 2011, 16:39
69! c'est effectivement le plus grand factoriel possible sur une calto et il est en 10^99.
Il correspond à 1*2*3*4*5*6*7*8*9*...*69 d'où la vitesse d'exécution lente et je le trouve quasi-plus efficace qu'une boucle for.
Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09
Posté le : Sam 19 Mar 2011, 21:01
Citer : made2kill
Alors:
1) Tu vois ça où "WE MUST BE DELETED"? c'est "MEMORY MUST BE DELETED".
c'est pas possible, tu l'as changé toi même ! je suis sur d'avoir lu juste !
enfin, n'en parlons plus ça va faire du flood inutile.
made2kill Invité
Posté le : Mar 22 Mar 2011, 12:09
Citer
c'est pas possible, tu l'as changé toi même ! je suis sur d'avoir lu juste !
Nan, c'est pas vrai, et n'importe quel modérateur sur ce forum (que ce soit Sangohan38 ou... euh... Sangohan38) pourra te dire que je n'ai jamais modifié mon prog. Mais bon, comme tu dis :
Citer
enfin, n'en parlons plus ça va faire du flood inutile.
Sinon, je me suis servi du prog du webmaster pour améliorer le mien:
Code
Menu("RESET MEMORY ?","NO",[THETA],"YES",A
Lbl [THETA]
ClrHome
0[STO]Z:0[STO]K
Lbl E
While Z [EST DIFFERENT DE] 50
Z+1[STO]Z
If Z=50
Goto N
If Z [EST DIFFERENT DE] 50
Goto E
Lbl N
Disp "FATAL ERROR.","MEMORY MUST BE","DELETED.","LA MEMOIRE DOIT","ETRE EFFACEE."
Pause
Lbl A
ClrHome
69!:69!:69!
Output(4,4,"DELETING...
Pause
ClrHome
Lbl Q
Horizontal -1
Horizontal 1
Shade (-1,1
If K=0
Goto 1
If K=1
Goto 2
If K=2
Goto 3
Lbl 1
Disp "VAR DELETED."," ","DELETING THE","REST...
Pause
ClrHome
1[STO]K:Goto Q
Lbl 2
Disp "PROG DELETED"," ","DELETING THE","REST...
Pause
ClrHome
2[STO]K:Goto Q
Lbl 3
Disp "ALL MEM DELETED"
Pause
ClrHome
69!:69!:69!
Output(4,3,"TI 83 +
Output(4,3,"MEM CLEARED
Pause
ClrHome
Output(1,1," <-1 espace
Voilà, normalement il marche, il est plus pratique (car il évite de recopier tous les "69!") et il est plus classe("Shade (").
) : 536 octets.
