[TI57... etc] P.G.C.Dons avec...

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
Avatar du membre
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 823
Enregistré le : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

[TI57... etc] P.G.C.Dons avec...

Message par Thierry Loiseau »

Image
  1. Préalablement, le dividende doit être stocké dans STO 0 et le diviseur dans STO 1
  2. Lancement du programme :
    duplication de STO 2=STO 0 et STO 3=STO 1
  3. Calcul du reste de la division Mem2/Mem3 :arrow: Mem4
  4. Si le reste >1 : le dividende prend la valeur du diviseur ; le diviseur celle du reste :
    Mem2=Mem3 ; Mem3=Mem4. Boucler au point 3.
  5. 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...
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
[***Apple //e, 7100, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs

[--- plus ---]
http://astrophoto.free.fr/
Répondre

Retourner vers « Tous les Pockets »