[TI-84+] Formatage RAM quand quitte programme

→ **MyCalcs** profile · by **Sh0eps** » 16 Sep 2008, 22:02

Bonjour !

Je m'explique. Depuis que j'ai UP en 2.43, mon programme pour savoir si un nombre est premier, bug... Enfaite quand il est archivé et que noshell est installé, à la fin du programme, quand j'appuie sur enter, la calculette s'éteind et quand j'allume, formatage de la RAM... (Un peu galère ^^)

Le truc c'est que quand le programme est dans la RAM aucun souci... Je précise bien que j'ai ce problème depuis mon passage en 2.43.

Merci d'avance si vous avez une idée, mais j'ai vérifié, aucune ligne de code indique quoi que ce soir quant à ce formatage.

My calculator programs · by **Adriweb** » 17 Sep 2008, 01:49

Je n'ai pourtant jamais eu de probleme avec Noshell, meme en 2.43 ...

→ **MyCalcs** profile · by **Sh0eps** » 17 Sep 2008, 16:25

J'sais pas... J'vais essayer de reflasher et de réinstaller tous mes programmes en les laissant dans la RAM sinon :/

→ **MyCalcs** profile · by **tama** » 17 Sep 2008, 21:19

juste par curiosité, c'est quoi le code du programme en question ? c'est toi qui l'a codé ? ça le fait uniquement pour ce programme ?

→ **MyCalcs** profile · by **Sh0eps** » 17 Sep 2008, 21:25

Le programme a ete fait a la main et ca me le fait uniquement avec ce programme. Je l'UP pendant le WE histoire de voir si c'est moi ou le programme.

Merci de votre aide

→ **MyCalcs** profile · by **ced78fr** » 18 Sep 2008, 14:54

^^ oki sa roule

→ **MyCalcs** profile · by **Sh0eps** » 19 Sep 2008, 21:27

http://shoeps.free.fr/racine/TI-84/PREMIER.rar

Voila dites moi si vous trouvez quelque chose qui cloche (Pour rappel, ça bug a la fin du programme quand on appuie sur enter, et qu'il est utilisé avec noshelle en archivé)

My calculator programs · by **Adriweb** » 19 Sep 2008, 21:28

code source :

ClrHome
Input "A=",A
ClrHome
If (fPart(A)≠0 or abs(A)≠A)
Then
Output(3,2,A"N EST PAS UN")
Output(5,2,"ENTIER NATUREL")
Goto 0
End
If (fPart(A/2)=0 or A=1) and A≠2
Goto 1
iPart(√(A))→B
For(C,3,B,2)
If fPart(A/C)=0
Goto 1
End
Output(4,4,"A PREMIER")
Goto 0
Lbl 1
0→E
0→dim(L₅)
iPart(√(A))→B
For(C,1,B)
A/C→D
If iPart(D)=D
Then
E+1→E
E→dim(L₅)
C→L₅(E)
E+1→E
E→dim(L₅)
D→L₅(E)
End
End
SortA(L₅)
Disp "A NON PREMIER"
Disp "DIVISEURS :"
Pause L₅
ClrHome
Stop
Lbl 0
Pause

Je vois pas le probleme. ....

→ **MyCalcs** profile · by **ced78fr** » 20 Sep 2008, 13:41

très compliqué je trouve comme programme pour juste trouver les diviseurs du nombre ou s'il est premier il s'exécutait rapidement ?

j'en ai un pas mal à te proposer sinon