Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- EffÉcran
- 1→A:0→B
- Lbl 0
- Input "√(",Chn7
- dansChaîne(Chn7,"/")→N
- If N>1:Then
- sousch(Chn7,1,N-1)→Chn8
- expr(Chn8)→R
- sousch(Chn7,N+1,longueur(Chn7)-N)→Chn9
- expr(Chn9)→S
- Else
- If N=1:Then
- "1"→Chn8:1→R
- sousch(Chn7,N+1,longueur(Chn7)-N)→Chn9
- expr(Chn9)→S
- Else
- If N=0:Then
- Chn7→Chn8
- expr(Chn8)→R
- "1"→Chn9:1→S
- Else
- If N=longueur(Chn7):Then
- sousch(Chn7,1,longueur(Chn7)-1)→Chn8
- expr(Chn8)→R
- "1"→Chn9:1→S
- End:End:End:End
- dansChaîne(Chn8,".")→L
- If L≠0:Then
- 10^(longueur(sousch(Chn8,L+1,longueur(Chn8)-L)))→J
- End
- dansChaîne(Chn9,".")→M
- If M≠0:Then
- 10^(longueur(sousch(Chn9,M+1,longueur(Chn9)-M)))→K
- End
- max(J,K)→J:expr(Chn8)*J→R:expr(Chn9)*J→S
- While partDéc(R)≠0 ou partDéc(S)≠0 ou R*S≤0
- Disp "Entrer une frac-"
- Disp "tion positive."
- Goto 0
- End
- If R<0:Then:R→R:S→S:End
- pgcd(R,S)→Q
- R/Q→R
- S/Q→S
- If partDéc(√(R/S))=0
- Then
- √(R/S):prgmCONVSTR
- Disp "= "+Chn9
- Stop:End
- If partDéc(√(R/S))≠0:Then
- If partDéc(√(R))=0:Then
- √(R)→B
- 1→R
- Else
- R→P
- Goto P
- End
- Lbl S
- If partDéc(√(S))=0
- Then
- √(S)→A
- 1→S
- Else
- S→P
- Goto P
- End
- End
- Lbl D
- If R=1 et S=1:Then
- B:prgmCONVSTR:Chn9→Chn0
- A:prgmCONVSTR:Chn9→Chn2
- Disp "= "+Chn0+""+Chn2:End
- If partDéc(√(R/S))≠0:Then
- If B=1 et A=1:Then
- R:prgmCONVSTR:Chn9→Chn8
- S:prgmCONVSTR
- If S=1:Then:Disp "= √("+Chn8+")":Else
- If R=1:Then:Disp "= 1/√("+Chn9+")":Else
- Disp "= √("+Chn8+""+Chn9+")":End:End
- End
- If B≠1 ou A≠1
- Then
- B:prgmCONVSTR:" "+Chn9→Chn0
- R:prgmCONVSTR:Chn9→Chn4
- S:prgmCONVSTR:Chn9→Chn5
- If S=1:Then:"√("+Chn4+")"→Chn6:Else:"√("+Chn4+""+Chn5+")"→Chn6:End
- If R=1:Then:"1√("+Chn5+")"→Chn6:End
- If B≠1:Then
- If A=1:Then:Chn0+"*"→Chn2:Else:A:prgmCONVSTR:Chn0+""+Chn9+"*"→Chn2:End:Disp "="+Chn2+Chn6:End
- If B=1:Then:A:prgmCONVSTR
- If R=1:Then:Disp "= 1("+Chn9+"√("+Chn5+"))":Else:""+Chn9→Chn2:Disp "="+Chn6+Chn2:End:End
- End
- End:Stop
- Lbl P
- {2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,101,103,107,109,113,127,131,137,139,149,151,157,163,167,173,179,181,191,193,197,199,211,223,227,229,233,239,241,251,257,263,269,271,277,281,283,293,307,311,313,317}→L₅
- 1→I
- While I<66
- If P≥L₅(I)^2:Then
- If partDéc(P/L₅(I)^2)=0:Then
- A*L₅(I)→A
- P/L₅(I)^2→P
- Else:I+1→I:End
- Else:66→I:End
- End
- If B=0
- Then
- A→B
- 1→A
- P→R
- Goto S
- Else
- P→S
- Goto D
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement