1er programme pour HP39gII : calcul mental

→ **MyCalcs** profile · by **Bisam** » 24 Sep 2014, 22:04

Tu peux tout-à-fait créer des sous programmes dans un programme et faire ce que tu veux faire.
Je viens de tester que la syntaxe suivante fonctionne :

Code: Select all: test() Prgm Local test2, test3 Define test3()=Prgm test2() EndPrgm Define test2()=Prgm Disp "You Lose the game !" EndPrgm test3() EndPrgm

→ **MyCalcs** profile · by **zorglub13** » 25 Sep 2014, 05:40

Bonjour,

je viens de tester ce code et j'ai - program not found - au moment de l'appel de test2 ?

Ton code tu l'a fais tourner sur une ti68k ou une nspire ? Je suis sur un émulateur graph89 avec l'os du voyager 200 de TI.

À+

→ **MyCalcs** profile · by **Lepzulnag** » 25 Sep 2014, 10:35

Essaie de définir test2 avant test3 peut-être.

→ **MyCalcs** profile · by **Ti64CLi++** » 25 Sep 2014, 12:42

moi je dis que c'est un tres bon programme car quand on a une calculatrice on devient de moins en moins bon en calcul mental.

→ **MyCalcs** profile · by **Bisam** » 25 Sep 2014, 14:21

zorglub13 wrote:Bonjour,

je viens de tester ce code et j'ai - program not found - au moment de l'appel de test2 ?

Ton code tu l'a fais tourner sur une ti68k ou une nspire ? Je suis sur un émulateur graph89 avec l'os du voyager 200 de TI.

À+

J'ai fait le test sur ma V200... mais effectivement, j'avais fait le premier test sans mettre l'instruction "Local"... et du coup, lors du 2ème test avec l'instruction "Local", le programme "test2" existait en dehors du programme "test", ce qui a permis l'exécution.
En l'état, je constate comme toi que ça ne fonctionne pas.

On peut cependant remédier à cela en simplifiant le programme, en utilisant un seul sous-programme qui traiterait les 4 cas.

→ **MyCalcs** profile · by **zorglub13** » 25 Sep 2014, 18:56

Salut,

Et bien j'ai vérifié en enlevant les Local, cela fonctionne !!!

Du coup, je ne comprends plus vraiment l'utilisation des local pour les programmes...

Pas grave... Bonne soirée

→ **MyCalcs** profile · by **zorglub13** » 27 Sep 2014, 17:25

A titre de comparaison, voici la version du programme pour les TI Basic Z80, il y a pas photo, c'est quand même beaucoup plus simple avec une TI68k ou une HP39Gii (si elle ne plante pas)...

J'avais fait les trois versions histoire de comparer les trois languages...

Code: Select all: PROGRAM:CALCUL :" DEFINITION DU NOMBRE D'ESSAIS :3 -> Q :" DEFINITION DE LA VALEUR MAX :20 -> S :" MENU GENERAL :Lbl A :ClrHome :Menu("TRAVAIL","ADDITION",B,"SOUSTRACTION",C,"MULTIPLICATION",D,"DIVISION",E,"QUITTER",F) :" ADDITIONS :Lbl B :randInt(1,S) -> M :randInt(1,S) -> N :M+N -> O :0 -> R :While R<Q ::ClrHome ::Disp M,"+",N,"=" ::Input P ::If O=P ::Then :::Disp "BRAVO" :::Q -> R ::Else :::Disp "ERREUR" :::1+R -> R :::If R=Q :::Then ::::Pause ::::ClrHome ::::Disp "CORRECTION" ::::Disp M,"+",N,"=",O :::End ::End : Pause :End :Menu("ET MAINTENANT","CONTINUER",B,"MENU",A) :" SOUSTRACTIONS :" REMARQUE - INVERSION DE M ET N SI N EST PLUS GRAND QUE M :" POUR QUE (M-N) NE SOIT PAS NEGATIF :Lbl C :randInt(1,S) -> M :randInt(1,S) -> N :If M<N :Then ::M -> O ::N -> M ::O -> N :End :M-N -> O :0 -> R :While R<Q ::ClrHome ::Disp M,"-",N,"=" ::Input P ::If O=P ::Then :::Disp "BRAVO" :::Q -> R ::Else :::Disp "ERREUR" :::1+R -> R :::If R=Q :::Then ::::Pause ::::ClrHome ::::Disp "CORRECTION" ::::Disp M,"-",N,"=",O :::End ::End ::Pause :End :Menu("ET MAINTENANT","CONTINUER",C,"MENU",A) :" MULTIPLICATIONS :Lbl D :randInt(1,S) -> M :randInt(1,S) -> N :M*N -> O :0 -> R :While R<Q ::ClrHome ::Disp M,"*",N,"=" ::Input P ::If O=P ::Then :::Disp "BRAVO" :::Q -> R ::Else :::Disp "ERREUR" :::1+R -> R :::If R=Q :::Then ::::Pause ::::ClrHome ::::Disp "CORRECTION" ::::Disp M,"*",N,"=",O :::End ::End ::Pause :End :Menu("ET MAINTENANT","CONTINUER",D,"MENU",A) :" DIVISIONS :Lbl E :randInt(1,S) -> M :randInt(1,S) -> N :M -> O :M*N -> M :0 -> R :While R<Q ::ClrHome ::Disp M,"/",N,"=" ::Input P ::If O=P ::Then :::Disp "BRAVO" :::Q -> R ::Else :::Disp "ERREUR" :::1+R -> R :::If R=Q :::Then ::::Pause ::::ClrHome ::::Disp "CORRECTION" ::::Disp M,"/",N,"=",O :::End ::End ::Pause :End :Menu("ET MAINTENANT","CONTINUER",E,"MENU",A) :" FIN DU PROGRAMME :Lbl F :ClrHome :Disp "A BIENTOT" :Stop

J'ai plus d'autres versions maintenant (pas de Casio)...

A+

→ **MyCalcs** profile · by **Bisam** » 27 Sep 2014, 17:28

Pour les z80, je n'ai pas trop regardé, mais pour les 68k, tu peux encore diminuer de moitié la taille du programme, comme je te l'ai suggéré. Le fait d'utiliser 4 sous-programmes de 2 lignes chacun et un 5 ème en plus de tout cela fait perdre énormément de place pour rien.
Si tu fais tout dans 1 seul sous programme (voire pas de sous-programme du tout), tu y gagnes vraiment... et le code n'est pas moins clair.

Si j'ai le courage, un soir, je te montrerai.

→ **MyCalcs** profile · by **zorglub13** » 28 Sep 2014, 07:30

Salut,

Je comprends bien ce que tu veux faire pour les 68k... Pour les z80, il y a sûrement des possibilités pour raccourcir le programme mais c'était le premier que je faisais et en plus directement sur la calculatrice donc difficile d'avoir une vue globale du code...

À+