Il y a un bug
Code : Tout sélectionner
01 LBL"EUCLID"
02 FIX 0
03 CF 29
04 "DIVIDENDE ?"
05 PROMPT
06 STO 11
07 "DIVISEUR ?"
08 PROMPT
09 STO 12
10 MOD
11 STO 14
12 STO 00
13 RCL 11
14 RCL 12
15 /
16 INT
17 STO 13
18 STO 21
19 XEQ a
20 1
21 -
22 STO 15
23 RCL 11
24 XEQ a
25 STO 16
26 XEQ b
27 RCL 11
28 RCL 12
29 /
30 INT
31 XEQ a
32 STO 00
33 RCL 14
34 STO IND 00
35 LBL 00
36 CLA
37 ARCL 11
38 "[ I "
39 ARCL 12
40 AVIEW
41 CLA
42 CF 05
43 RCL 16
44 1
45 +
46 STO 22
Code : Tout sélectionner
47 XEQ c
Code : Tout sélectionner
48 SF 05
49 "[--"
50 RCL 12
51 RCL 13
52 X<=Y?
53 X<>Y
54 XEQ a
55 STO 22
Code : Tout sélectionner
56 XEQ c
Code : Tout sélectionner
57 AVIEW
58 CF 05
59 RCL 13
60 XEQ a
61 1
62 X=Y?
63 GTO 03
64 STO 15
65 1
66 STO 00
67 LBL 02
68 CLA
69 RCL 00
70 RCL 15
71 x=y?
72 GTO 03
73 RCL 15
74 2
75 -
76 RCL 00
77 -
78 STO 21
79 RCL IND 00
80 XEQ a
81 RCL 21
82 +
83 CHS
84 RCL 16
85 +
86 STO 22
Code : Tout sélectionner
87 XEQ c
88 ARCL IND 00
89 RCL 21
90 STO 22
Code : Tout sélectionner
91 XEQ c
Code : Tout sélectionner
92 "[ I "
93 1
94 RCL 00
95 x=y?
96 ARCL 13
97 AVIEW
98 1
99 ST+ 00
100 GTO 02
Code : Tout sélectionner
101 LBL a
102 LOG
103 INT
104 1
105 +
106 RTN
Code : Tout sélectionner
107 LBL b
108 RCL 21
109 10
110 /
111 STO 21
112 FRC
113 10
114 *
115 INT
116 STO 19
117 RCL 12
118 *
119 RCL 00
120 +
121 STO 00
122 STO IND 15
123 RCL 00
124 10
125 /
126 INT
127 STO 00
128 1
129 ST- 15
130 RCL 15
131 x≠0?
132 GOTO b
133 RTN
Code : Tout sélectionner
134 LBL c
135 RCL 22
136 x=0?
137 RTN
138 FC? 05
139 "[ "
140 FS? 05
141 "[-"
142 1
143 ST- 22
144 GTO c
Code : Tout sélectionner
145 LBL 03
146 RCL 14
147 XEQ 04
148 CHS
149 RCL 16
150 +
151 STO 22
152 XEQ c
153 ARCL 14
154 "[ I "
155 RCL 13
156 10
157 X>Y?
158 ARCL 13
159 AVIEW
160 FIX 4
161 SF 29
162 END
FX-702P version 1.0