Advertisement
Koelite

RACINE 2.0

Apr 20th, 2019
952
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. EffÉcran
  2. 1→A:0→B
  3.  
  4. Lbl 0
  5. Input "√(",Chn7
  6. dansChaîne(Chn7,"/")→N
  7. If N>1:Then
  8. sousch(Chn7,1,N-1)→Chn8
  9. expr(Chn8)→R
  10. sousch(Chn7,N+1,longueur(Chn7)-N)→Chn9
  11. expr(Chn9)→S
  12. Else
  13. If N=1:Then
  14. "1"→Chn8:1→R
  15. sousch(Chn7,N+1,longueur(Chn7)-N)→Chn9
  16. expr(Chn9)→S
  17. Else
  18. If N=0:Then
  19. Chn7→Chn8
  20. expr(Chn8)→R
  21. "1"→Chn9:1→S
  22. Else
  23. If N=longueur(Chn7):Then
  24. sousch(Chn7,1,longueur(Chn7)-1)→Chn8
  25. expr(Chn8)→R
  26. "1"→Chn9:1→S
  27. End:End:End:End
  28.  
  29. dansChaîne(Chn8,".")→L
  30. If L≠0:Then
  31. 10^(longueur(sousch(Chn8,L+1,longueur(Chn8)-L)))→J
  32. End
  33. dansChaîne(Chn9,".")→M
  34. If M≠0:Then
  35. 10^(longueur(sousch(Chn9,M+1,longueur(Chn9)-M)))→K
  36. End
  37. max(J,K)→J:expr(Chn8)*J→R:expr(Chn9)*J→S
  38.  
  39. While partDéc(R)0 ou partDéc(S)0 ou R*S≤0
  40. Disp "Entrer une frac-"
  41. Disp "tion positive."
  42. Goto 0
  43. End
  44.  
  45. If R<0:Then:­R→R:­S→S:End
  46. pgcd(R,S)→Q
  47. R/Q→R
  48. S/Q→S
  49.  
  50. If partDéc((R/S))=0
  51. Then
  52. (R/S):prgmCONVSTR
  53. Disp "= "+Chn9
  54. Stop:End
  55.  
  56. If partDéc((R/S))0:Then
  57. If partDéc((R))=0:Then
  58. (R)→B
  59. 1→R
  60. Else
  61. R→P
  62. Goto P
  63. End
  64.  
  65. Lbl S
  66. If partDéc((S))=0
  67. Then
  68. (S)→A
  69. 1→S
  70. Else
  71. S→P
  72. Goto P
  73. End
  74. End
  75.  
  76. Lbl D
  77. If R=1 et S=1:Then
  78. B:prgmCONVSTR:Chn9→Chn0
  79. A:prgmCONVSTR:Chn9→Chn2
  80. Disp "= "+Chn0+""+Chn2:End
  81.  
  82. If partDéc((R/S))0:Then
  83. If B=1 et A=1:Then
  84. R:prgmCONVSTR:Chn9→Chn8
  85. S:prgmCONVSTR
  86. If S=1:Then:Disp "= √("+Chn8+")":Else
  87. If R=1:Then:Disp "= 1/√("+Chn9+")":Else
  88. Disp "= √("+Chn8+""+Chn9+")":End:End
  89. End
  90.  
  91. If B≠1 ou A≠1
  92. Then
  93. B:prgmCONVSTR:" "+Chn9→Chn0
  94. R:prgmCONVSTR:Chn9→Chn4
  95. S:prgmCONVSTR:Chn9→Chn5
  96. If S=1:Then:"√("+Chn4+")"→Chn6:Else:"√("+Chn4+""+Chn5+")"→Chn6:End
  97. If R=1:Then:"1√("+Chn5+")"→Chn6:End
  98. If B≠1:Then
  99. If A=1:Then:Chn0+"*"→Chn2:Else:A:prgmCONVSTR:Chn0+""+Chn9+"*"→Chn2:End:Disp "="+Chn2+Chn6:End
  100. If B=1:Then:A:prgmCONVSTR
  101. If R=1:Then:Disp "= 1("+Chn9+"√("+Chn5+"))":Else:""+Chn9→Chn2:Disp "="+Chn6+Chn2:End:End
  102. End
  103. End:Stop
  104.  
  105. Lbl P
  106. {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₅
  107. 1→I
  108. While I<66
  109. If P≥L₅(I)^2:Then
  110. If partDéc(P/L₅(I)^2)=0:Then
  111. A*L₅(I)→A
  112. P/L₅(I)^2→P
  113. Else:I+1→I:End
  114. Else:66→I:End
  115. End
  116.  
  117. If B=0
  118. Then
  119. A→B
  120. 1→A
  121. P→R
  122. Goto S
  123. Else
  124. P→S
  125. Goto D
  126. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement