test si Multiples |
Auteur |
Message |
linkakro
Invité
|
Posté le : Jeu 15 Oct 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
Autorisation : Membre
Nb de messages : 655
Inscrit le : Dim 13 Sep 2009, 8:27
|
Posté le : Jeu 15 Oct 2009, 22:33
|
|
|
En effet programe simple mais interessant
---------------------- Ti-83+.fr
Passe en 1ère S
Foire Aux Questions__________Traduction des fonctions Anglais/Français
Emplacement des fonctions____Lexique
Liste des jeux
Ouvrir, éditer et créer des .82p ou .83p sans télécharger de logiciel
Logiciel pour prendre des screenshot animés
Hebergeur pour vos .83p |
|
|
|
linkakro
Invité
|
Posté le : Ven 16 Oct 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
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 17 Oct 2009, 11:16
|
|
|
Utilise la balise "code" pour que ton programme soit lisible.
Sinon, ton programme peut être raccourcis.
Code | Prompt A,B
pgcd(A,B)->C
If C=B
Disp "A multiple de B"
If C=A
Disp "B multiple de A"
If C[différent de]A and C[différent de]B
Disp "pas multiples"
Disp pgcd(A,B)
Pause
ClrHome |
Sangohan38
|
|
|
|
linkakro
Invité
|
Posté le : Sam 17 Oct 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
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 17 Oct 2009, 14:50
|
|
|
C'est de ma faute, j'ai mal tapé le code.
Maintenant ça devrait être bon.
Sangohan38
|
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|