| Spé Maths : racine évidente de Bézout |
| Auteur |
Message |
Métalocif
Autorisation : Membre
Nb de messages : 92
Inscrit le : Lun 10 Mai 2010, 19:24
|
Posté le : Sam 07 Jan 2012, 22:16
|
|
 |
Bon, le titre n'est peut-être pas clair : ce programme trouve un couple racine évidente d'une équation du type : ax+by=z .
Par exemple, pour 13x+84y=7 , il renvoie {7;-1}.
Voilà le code:
| Code | ClrHome
Prompt A,B
Input "AX+BY=?",Z
DelVar X
DelVar Y
While AX+BY/=/Z
If X<0
-X->X
If Y<0
-Y->Y
If AX<=BY
X+1->X
If AX-BY=Z
-Y->Y
If BY-AX=Z
-X->X
If BY<=AX
Y+1->Y
If AX-BY=Z
-Y->Y
If BY-AX=Z
-X->X
End
ClrHome
Output(1,1,"LE COUPLE:
X=
Y=
EST UNE SOLUTION
EVIDENTE DE L'EQUATION.
PAR ALEX
Output(2,3,X
Output(3,3,Y |
/=/ est le signe "différent de".
<= est le signe "inférieur ou égal à".
Bon, si vous n'êtes pas en TS, Spé Maths, ce programme sera parfaitement inutile. Si c'est le cas, testez le !
Métalocif
----------------------
"On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse." Clémenceau |
 |
  |
| |
azerty1
Autorisation : Membre
Nb de messages : 468
Inscrit le : Dim 12 Déc 2010, 20:44
|
Posté le : Sam 07 Jan 2012, 22:40
|
|
|
Je ne suis pas en term', et je n'ai regardé que vaguement ton prog,mais se n'est pas un peu long de tester tout les entiers? (si j'ai bien compris)
----------------------
Ti-Connect 64bits
PROTECT
Tuto Skin Perso Wabbitemu |
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Dim 08 Jan 2012, 23:00
|
|
|
Ce programme m'a tout l'air d'un crible bien que je ne comprenne pas tout...
Si ça fonctionne c'est déjà ça. 
ax+by=z est un problème de Diophante qui est prouvé comme soluble grâce au théorème de Bézout.
Nuance 
Je préfère largement utiliser un des algorithmes à notre disposition.
J'en connais deux et j'ai utilisé celui de mon cours.
Celui de mon cours ne gère pas naturellement les négatifs. J'ai ajoûté quelques tests dans le prog.
Le miens (version 4) : http://www.mediafire.com/download.php?2ia4x58nem05bk6
EDIT decembre 2014 : une meilleure version de mon bezout (version 5).
----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store |
| |
|
| |
calcugeek
Autorisation : Membre
Nb de messages : 72
Inscrit le : Jeu 26 Mai 2011, 16:41
|
Posté le : Lun 09 Jan 2012, 12:53
|
|
|
Salut metalocif. ton programme est en effet "très" long.
Voici le mien que j'avais posté l'année dernière quand j'avais la joie d'être en classe de siest... EUH de terminale 
tu m'en diras des nouvelles 
http://tout82.free.fr/forum/sujet.php?sujet=2627
----------------------
En école d'ingénieurs depuis cette année.
Continue de programmer sur ma ti malgré les 3 tonnes quotidiennes de devoirs ^^
Fan de metallica et de tous autres groupes sachant jouer du vrai métal. (yeah!!!) |
| |
|
| |
Métalocif
Autorisation : Membre
Nb de messages : 92
Inscrit le : Lun 10 Mai 2010, 19:24
|
Posté le : Jeu 12 Jan 2012, 18:57
|
|
|
Oui, les cours de maths avec Sat... Mlle Honoré s'apparentent à un coma profond... mis à part qu'elle note si sec qu'elle est interdite de corriger les copies du Bac...
Pour ton programme, il est en effet bien plus "malin" que le mien. J'y penserai!
Métalocif
----------------------
"On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse." Clémenceau |
| |
|
| |
