[Résolu] Conversion BASIC z80 -> BASIC nspire
Posted: 22 Feb 2016, 18:09
Bonsoir, j'aurais besoin d'aide. Je débute avec la programmation sur nspire.
Pouvez vous m'aider a traduire cet algorithme a la base écrit sur 83+ vers nspire cx cas.
.8xp : https://www.dropbox.com/s/73oscamhf1bsk3x/MATH.8xp?dl=0
merci.
Pouvez vous m'aider a traduire cet algorithme a la base écrit sur 83+ vers nspire cx cas.
.8xp : https://www.dropbox.com/s/73oscamhf1bsk3x/MATH.8xp?dl=0
- Code: Select all
Lbl 0
ClrHome
Menu("Math","Seuil",1,"Intervalle",2,"Reccurence",3,"Polynom 2nd ^^o",4,"Balayage",5,"Quitter",99)
Lbl 99
ClrHome
Stop
Lbl 1
ClrHome
Input "Pas :",A
Input "Un=",Str1
Input "De .. en ..",K
Str1->{Y1}
0->N
0->U
While U<=A
N+K->N
{Y1}(N)->U
End
Disp "Un>=A au rang :",N
Pause
ClrHome
Menu("Choisir","Recommencer",1,"Quitter",0)
Lbl 2
ClrHome
Input "-1<q<1 :",Q
Input "Intervalle :",A
0->S
Q^0->N
While U>A
N+1->N
Q^N->U
End
Disp "Rang :",N
Pause
ClrHome
Menu("Choisir","Recommencer",2,"Quitter",0)
Lbl 3
ClrHome
Disp "nEi=A Un"
Disp " "
Input "n=",N
Input "Un: ",Str1
Input "i=",A
0->S
Str1->{Y1}
For(O,A,N)
{Y1}(O)->U
S+U->S
End
Disp "Somme: ",S
Pause
ClrHome
Menu("Choisir","Recommencer",3,"Quitter",0)
Lbl 4
Disp "ax^^2+bx+c=0"
Disp " "
Input "a :",A
Input "b :",B
Input "c :",C
B^^2-4AC->D
ClrHome
Disp "Delta=B^^2-4AC :",D>Frac
If D<0
Menu("Donner dans C ?","Oui",A,"Non",B)
Lbl A
(~B+i*sqrt(~D))/(2A)->E
(~B-i*sqrt(~D))/(2A)->F
Disp "Deux solutions :",E>Frac,F>Frac
Pause
Goto C
Lbl B
Disp "Pas de solutions"
Pause
ClrHome
If D=0
Disp "Une solution",~B/(2A)>Frac
If D>0
Then
(~B-sqrt(D))/(2A)->E
(~B+sqrt(D))/(2A)->F
Disp "Deux solutions :",E>Frac,F>Frac
End
Pause
Lbl C
ClrHome
Menu("Choisir","Recommencer",4,"Quitter",0)
Lbl 5
ClrHome
Input "Nbr de decimales: ",N
Input "Borne inf: ",A
Input "f(x) :",Str1
Str1->{Y1}
A->X
1->P
For(I,1,N)
P/10->P
While {Y1}(X)<=0
X+P->X
End
X-P->X
End
ClrHome
Disp "Encadrement: ",X,X+P
Pause
Menu("Choisir","Recommencer",5,"Quitter",0)
merci.