(Tinspire)Aide pour la conversion d'un programme Casio basic

[D@rk_julien]

Bonjour c mon premier post sur ce nouveau forum et ce nouveau site , je voudrais la conversion en .tns de ce programme ci dessous je ne suis nullement développeur donc si quelqu'un peut me le faire pour l os 2.0 version cas ti nspire :




http://www.mediafire.com/?xg76ki60yaxfg9i


MERCI

[Excale]

Je ne vois pas l’intérêt de convertir ce programme alors que qquasiment toutes les fonction de ce dernier sont déjà présentes dans la bibliothèque "numtheory".

[D@rk_julien]

Merci de m'avoir répondu il faudrait le traduire pour ti nspire pour la qualité des détails des calculs chose que numtheory ne donne que le résultat et pas les détails (essaye le sur Casio tu comprendras ). De plus étant donne que tu es fort en programmation sinon tu n'aurais pas répondu à ma requête en me proposant un autre programme.

Merci à toi

[Bisam]

De ce que j'en ai lu, le programme que tu proposes ne détaille les calculs que pour le PGCD... et avec une Nspire, il faut environ 5 lignes pour écrire une fonction qui ferait ce détail.
On ne te demande pas d'être développeur, mais simplement d'avoir un petit peu de jugeotte. L'algorithmie fait désormais partie du programme du lycée, et l'algorithme d'Euclide du calcul du PGCD est l'un des exemples les plus présents. Il serait bon que tu essaies de le programmer (d'autant que tu as une source dont tu n'as plus qu'à t'iNSpirer).

[Excale]

La bibliothèque que j'ai mentionné plus haut fait les calculs de PGCD pas à pas. Que veut tu de plus comme détails?

[D@rk_julien]

Un petit test sur Casio ne sera pas de refus pour vous deux http://www.planet-casio.com/Fr/logiciel ... ?showid=16 et le programme en question http://www.mediafire.com/?5d5y70f0rfhmqfq

@Bisam j'ai marqué que je ne suis pas développeur quoi de plus de te demander de réaliser si c dans vos capacités car j'attends sinon la tu me dis "démerde toi" la en tourne autour du pot. Est tu capable de le faire oui ou non ?

[Levak]

Et si on a pas de Casio on fait comment pour tester ? =)

Edit : Après avoir regardé le code du programme, oui, c'est clairement pas du pas à pas. Toutes ces fonctions existent déjà sur Nspire.

[D@rk_julien]

On peut avoir sa gratuitement http://vandymath.free.fr/spip.php?article35 par rapport a TI qui t'aurais fais payer .

[Levak]

On peut avoir sa gratuitement http://vandymath.free.fr/spip.php?article35 par rapport a TI qui t'aurais fais payer .

Ya une différence nette entre un émulateur et TI Nspire Computer Software. L'un reproduit sensiblement le comportement de la calculatrice, l'autre est adapté pour PC. Ya clairement une extensibilisation de la part de TI, qui de plus je te le rappelle, fourni gratuitement le logiciel lors de l'achat de la calculette (depuis les TouchPad, tout simplement parce qu'on a gueulé et TI l'assume).

Donc oui, où tu vois du pas à pas dans ce programme ? (à part pour les pgcd qui se fait en 5 lignes comme déjà dit)

[Laurae]

La seule chose qui semble être du pas à pas est le a = b*q+r... et ça prend à peine quelques lignes sur Nspire pour être fait.

code source Casio :

Code: Select all

%Header Record
Format:MCS1
Type Number:1
File Name:7SPEMATH
Option Name:
Communication SW:0
Capacity:1622
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 0
\ClrText
\BG-None
\CoordOff
\AxesOff
\ViewWindow 1,127,1,1,63,1
\Text 1,1,"\PiR RICADAT ========= SPEMATHS "
\Text 12,1,"[1]\->FACTEURS PREMIERS"
\Text 19,1,"[2]\->NOMBRE PREMIER"
\Text 26,1,"[3]\->PGCD DE 2 NOMBRES"
\Text 33,1,"[4]\->PPCM DE 2 NOMBRES"
\Text 40,1,"[5]\->DIVISEURS D'UN NOMBRE"
\Text 47,1,"[6]\->AUTRES"
\Text 54,1,"[ESC]\->QUITTER"
\Lbl 1
\Getkey\->G
G=72\=>\Goto2
G=62\=>\Goto3
G=52\=>\Goto4
G=73\=>\GotoD
G=63\=>\GotoB
G=53\=>\GotoF
G=47\=>\Stop
\Goto1
\Lbl F
\BG-None
\Text 1,1,"\PiR RICADAT ========= SPEMATHS "
\Text 12,1,"[1]\->DIVISION EUCLIDIENNE"
\Text 19,1,"[2]\->NOMBRE PARFAIT"
\Text 26,1,"[3]\->BASE"
\Text 54,1,"[ESC]\->QUITTER"
\Lbl G
\Getkey\->G
G=72\=>\GotoH
G=62\=>\GotoI
G=52\=>\GotoK
G=47\=>\Stop
\GotoG
\Lbl 2
\ClrText
"NOMBRE"?\->A
2\->B
\Do
\While \Frac (A/B)=0
B\DispA/B\->A
\WhileEnd
\If B=2
\Then 3\->B
\Else B+2\->B
\IfEnd
\LpWhile B\<=A
"END"\Disp\Goto0
\Lbl 3
\ClrText
"NOMBRE"?\->N
\Int \sqrtN+1\->O
2\->A
\Lbl 5
\Frac (N/A)\->P
\If P=0
\Then \If A=N
\Then \Goto7
\Else \Goto6
\IfEnd
\IfEnd
\Isz A
\If A=O
\Then \Goto7
\IfEnd
\Goto5
\Lbl 6
"   NON PREMIER CAR       DIVISIBLE PAR"
A\Disp\Goto0
\Lbl 7
"NOMBRE PREMIER"\Disp\Goto0
\Lbl 4
\ClrText
"NOMBRE A"?\->A
"NOMBRE B"?\->B
A=0\=>\Stop
B=0\=>\Stop
\Lbl 9
\ClrText
\Int (A/B)\->Q
A-(B*Q)\->R
\If R=0
\Then \GotoA
\IfEnd
\Locate 1,4,A
\Locate 5,4,"="
\Locate 6,4,B
\Locate 10,4,"*"
\Locate 11,4,Q
\Locate 13,4,"+"
\Locate 14,4,R
B\->A
R\->B
\Goto9\Disp\Lbl A
"PGCD(A,B)="
B\Disp\If B=1:\Then "A ET B SONT PREMIERS       ENTRE EUX"\Disp\IfEnd
\Goto0
\Lbl B
\ClrText
"NOMBRE"?\->N
1\->A
\Lbl C
\Frac (N/A)\->P
N/A\->B
\If A\>=B
\Then \If A=B
\Then A\Disp\IfEnd
"END"\Disp\Goto0
\IfEnd
\If P=0
\Then A\DispB\Disp\IfEnd
\Isz A
\GotoC
\Lbl D
\ClrText
"NOMBRE A"?\->A
"NOMBRE B"?\->B
\If A=0
\Then "PAS DE PPCM"\Disp\Goto0
\IfEnd
B\->N
\Lbl E
N-A*(\Int (N/A))\->P
\If P=0
\Then N-B*(\Int (N/B))\->Q
\If Q=0
\Then N\Disp\Goto0
\IfEnd
\IfEnd
\Isz N
\GotoE
\Lbl H
0\->Z
\ClrText
"A"?\->A
"B"?\->B
\If B<0
\Then \Abs B\->B
1\->Z
\IfEnd
\Intg (A/B)\->Q
A-(B*Q)\->R
\If R\>=0
\Then "Q="
\If Z=1
\Then \(-)Q\Disp\Else Q\Disp\IfEnd
"R="
R\Disp\Else "PAS DE DIVISION EUCLIDIENNE"\Disp\IfEnd
\Goto0
\Lbl I
\ClrText
"NOMBRE"?\->N
1\->A
\(-)N\->C
\Lbl J
\Frac (N/A)\->P
N/A\->B
\If A\>=B
\Then \If A=B
\Then A+C\->C
\IfEnd
\If C=N
\Then "NOMBRE PARFAIT"\Disp\Else "NOMBRE NON PARFAIT"\Disp\IfEnd
\Goto0
\IfEnd
\If P=0
\Then A+B+C\->C
\IfEnd
\Isz A
\GotoJ
\Lbl K
21\->\r
"N"?\->A
"BASE"?\->B
\ClrText
\Lbl L
\Intg (A/B)\->Q
A-(BQ)\->R
\Locate \r,4,R
\r-1\->\r
Q\->A
\If Q=0
\Then \Goto0\Disp\IfEnd
\GotoL\@00
%End