- Préalablement, le dividende doit être stocké dans STO 0 et le diviseur dans STO 1
- Lancement du programme :
duplication de STO 2=STO 0 et STO 3=STO 1 - Calcul du reste de la division Mem2/Mem3 Mem4
- Si le reste >1 : le dividende prend la valeur du diviseur ; le diviseur celle du reste :
Mem2=Mem3 ; Mem3=Mem4. Boucler au point 3. - Si le reste = 0 : afficher le diviseur qui est le PGCD ;
Sinon afficher 1.
Mon code non optimisé pour TI-57...
Code : Tout sélectionner
00 33 0 RCL 0
01 32 2 STO 2
02 33 1 RCL 1
03 32 3 STO 3
04 02 2
05 32 7 STO 7
06 86 1 LBL 1
07 33 2 RCL 2
08 65 -
09 43 (
10 33 2 RCL 2
11 45 ÷
12 33 3 RCL 3
13 44 )
14 49 Int
15 55 ×
16 33 3 RCL 3
17 85 =
18 32 4 STO 4
19 -76 x<t
20 51 3 GTO 3
21 86 2 LBL 2
22 33 3 RCL 3
23 32 2 STO 2
24 33 4 RCL 4
25 32 3 STO 3
26 51 1 GTO 1
27 86 3 LBL 3
28 01 1
29 32 7 STO 7
30 33 4 RCL 4
31 66 x=t
32 51 4 GTO 4
33 33 3 RCL 3
34 81 R/S
35 86 4 LBL 4
36 01 1
37 81 R/S
________________________________________________
NB : utilisation d'une de mes deux 57 où l'accus a été remplacé par une pile alcaline 9V...