linkakro le 15/10/2009 à 22:21

---

Salut !
J'ai un petit programme pour tester si un nombre est multiple d'un autre. Je me sert de la fonction PGCD.
Je ne sais pas trop comment transférer des programmes par l'ordi (désolé) alors je vous indique mon texte.

Prompt A,B
pgcd(A,B)->C
If C=B
Then
Disp "A multiple de B"
End

Si vous vous assurez toujours de mettre le grand nombre en premier, cela suffit.
Sinon avant End ajoutez

Else
If C=A
Disp "B multiple de A"

A vous de voir si ça vous interesse.

sypotu le 15/10/2009 à 22:33

---

En effet programe simple mais interessant

linkakro le 16/10/2009 à 19:18

---

Aïe ! j'ai compris que je n'ai pas du tout posté là où il faut. pardon
Depuis j'ai compris quelques défauts que j'ai corrigé, et j'ai amélioré mon programme avec des supplément:

Prompt A,B
pgcd(A,B)->C
If C=B
Then
Disp "A multiple de B"
Disp pgcd(A,B)
Else
If C=A
Then
Disp "B multiple de A"
Disp pgcd(A,B)
Else
Disp "pas multiples"
Disp pgcd(A,B)
End

Maintenant le programme dit s'ils sont multiples mais aussi calcule leur pgcd.
Donc un petit prg multifonction utilitaire. C'est aussi peut-être plus ludique à l'execution que de taper tout une fonction pgcd.

ps: je suis sur TI82stat.fr

Sangohan38 le 17/10/2009 à 11:16

---

Utilise la balise "code" pour que ton programme soit lisible.
Sinon, ton programme peut être raccourcis.



Sangohan38

linkakro le 17/10/2009 à 13:39

---

Quand je tape exactement le même code que toi, ma calculatrice bloque toujours sur le Else
Ce code est-il prévu pour ti82stat.fr ? (des fois que les autres marchent différemment)

Sangohan38 le 17/10/2009 à 14:50

---

C'est de ma faute, j'ai mal tapé le code.
Maintenant ça devrait être bon.

Sangohan38