PS : j'y ai aussi intégré un algorithme de simplification des racines et des fraction car le module est parfois en racine carré
j'aimerai donc l'optimiser, gagner de la place car il est long et remplacer les boucles if pour le rendre plus rapidos
- Code: Tout sélectionner
Lbl M
Menu("Nombre complexe","Algebri->Trigo",AB,"Trigo->algebri",TR,"QUITTER",3
Lbl EX
Radian
EffÉcran
Lbl AB
EffÉcran
Disp "Prgm cplx
Disp "Par Cindano J.
Disp "z=a+ib
Disp "Avec a≠0 et b≠0
Input "a=",A
Input "b=",B
A²+B²→R
Disp "r=√(",R
A/√(R)→C
B/√(R)→S
If C=√(3)/2 et S=.5
Then
Disp "θ=π/6[2π]
Pause
End
If C=.5 et S=√(3)/2
Then
Disp "θ=π/3[2π]
End
If C=.5 et S=√(3)/2
Then
Disp "θ=2π/3[2π]
End
If C=√(3)/2 et S=.5
Then
Disp "θ=5π/6[2π]
End
If C=√(3)/2 et S=.5
Then
Disp "θ=π/6[2π]
End
If C=.5 et S=√(3)/2
Then
Disp "θ=π/3[2π]
End
If C=.5 et S=√(3)/2
Then
Disp "2π/3[2π]
End
If C=√(3)/2 et S=.5
Then
Disp "θ=5π/6[2π]
End
If A>0 et A=B
Then
Disp "θ=π/4[2π]
End
If A>0 et A=B
Then
Disp "θ=π/4[2π]
End
If A<0 et B=A
Then
Disp "θ=3π/4[2π]
End
If A<0 et B=A
Then
Disp "θ=3π/4[2π]
End
If A=0 et B>0
Then
Disp "θ=π/2[2π]
End
If A=0 et B<0
Then
Disp "π/2[2π]
End
If B=0 et A>0
Then
Disp "θ=0[2π]
End
If B=0 et A<0
Then
Disp "θ=π[2π]
End
If C≠0 et C≠1 et C≠√(3)/2 et C≠.5 et C≠.5 et C≠√(3)/2 et C≠√(2)/2 et C≠√(2)/2
Then
Disp "Angle inconnu
End
Pause
Menu(" ","Refaire",M,"Simplifier √(",9,"QUITTER",3
Lbl 9
EffÉcran
Lbl M
Menu("Simplification","Fraction",1,"Racine carree",2,"QUITTER",3
Lbl 1
EffÉcran
Output(1,5,"Fraction"
Disp " "," "
Input "x=",A
Disp " "
Disp "x simplifiee:
Disp AFrac
Pause
Menu(" ","Refaire",1,"Menu",M,"QUITTER",3
Stop
Lbl 2
EffÉcran
Output(1,7,"Rac(x)"
Disp " "
Input "x=",X
If (ent(√(X))²=X
Then
Output(4,1,"Simplifiee:"
Output(5,1,√(X)
Else
2→A
1→B
While A²<X
If X-A²*(ent(X/A²))=0
Then
B*A→B
X/A²→X
Else
A+1→A
End
End
B→Z
2→Y
While B≥10
Y+1→Y
B/10→B
End
X→W
Y+2→V
V→U
While X≥10
U+1→U
X/10→X
End
U+1→U
abs(Z)→Z
abs(W)→W
If Z≠1
Then
Output(4,1,"Simplifiee:"
Output(5,1,Z
Output(5,Y,"√("
Output(5,V,W
Output(5,U,")"
Else
Y-1→Y
V-1→V
U-1→U
Output(4,1,"Ne peut pas etre
Output(5,1,"Simplfiee:
Output(6,Y,"√("
Output(6,V,W
Output(6,U,")"
End
End
Pause
Menu(" ","Refaire",2,"Menu",M,"QUITTER",3)
Stop
Lbl 3
EffÉcran
Stop
Lbl TR
Radian
DelVar θ
DelVar R
DelVar A
DelVar B
EffÉcran
Disp "Prgm cplx
Disp "Par Cindano J.
Disp "z=re^(iθ) ou
Disp "r(cos(θ)+i*sin(θ)
Input "r=",R
Input "θ=",θ
cos(θ)*R→A
sin(θ)*R→B
Disp "a=",A
Disp "b=",B
Pause
Menu(" ","Refaire",M,"QUITTER",3