| EUCLID |
| Auteur |
Message |
tarken
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
|
Posté le : Dim 09 Jan 2011, 11:11
|
|
 |
Voici un petit programme que j'ai récemment fait et qui servira surtout pour des élèves de terminale spé maths. Il permet de calculer le PGCD de deux nombres en utilisant l'algorithme d'euclide : jusque là rien de bien extraordinaire me direz-vous. Oui mais ! Il va faire a votre place tous les calculs et stocker le détail de ces calculs dans une Chaine. Et ensuite il ne reste plus qu'à recopier.
EUCLID (297 Octets) :
| Code |
:" "->Chaine1
:EffEcr
:Lbl 2
:Disp "AIDE: TAPEZ 0"
:Input "A: ",A
:Input "B: ",B
:If A=0 ou B=0
:Then
:EffEcr
:Disp "CALCULE LE PGCD","DE A ET B","QD FINI, FAITES","VAR>CHAINE>CH.1"
:Pause
:EffEcr
:Goto 2
:End
:While 1
:A->[teta]
:prgmCCTNT
:Chaine1 + Chaine0 + "=" ->Chaine1
:B->[teta]
:prgmCCTNT
:Chaine1 + Chaine0 + "*" ->Chaine1
:partEnt(A/B)->C
:C->[teta]
:prgmCCTNT
:Chaine1 + Chaine0 + "+" ->Chaine1
:B*C->C
:A-C->C
:C->[teta]
:prgmCCTNT
:Chaine1 + Chaine0 + "___" ->Chaine1
:If C=0
:Goto1
:B->A
:C->B
:End
:Lbl1
:Disp B
|
Pour pouvoir stocker des nombres dans une Chaine on utilise un petit utilitaire de Concatenation.
CCTNT (62 Octets) ;
| Code |
:{0,1->L1
:{0,[teta]->L2
:RégLin(a+bx) Y1
:Equ>Chaine(Y1,Chaine0
:sous-Chaine(Chaine0,3,longueur(Chaine0)-3->Chaine0
:EffVar Y1
|
Les résultats sont stockés dans la Chaine1 pour l'afficher faites var, Chaine, Chaine1 puis faites défiler a l'aide des flèches.
Voilà! Qu'en pensez-vous ?
|
 |
  |
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
lover-lol
Autorisation : Membre
Nb de messages : 74
Inscrit le : Ven 03 Déc 2010, 3:42
|
Posté le : Dim 09 Jan 2011, 11:19
|
|
|
 Super utile !
Perso on a commencé en 3ème et sa me faisait bien ch*** de devoir se retaper toujours les mêmes calculs !
----------------------
Derien  |
| |
|
| |
cedraci
Invité
|
Posté le : Mar 18 Jan 2011, 19:05
|
|
|
Bonjour, super idée, mais je n'arrive pas a le faire fonctionner ce programme. En effet, ma calculatrice me dit qu'il y a une erreur au niveau de la chaine(1), a la premiere ligne..
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mer 19 Jan 2011, 0:31
|
|
|
Chaîne1 = var>7-chaîne>1
N'existe pas sur les 82non-stat. Str1 en anglais.
----------------------
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 |
| |
|
| |
Wirekey
Autorisation : Membre
Nb de messages : 240
Inscrit le : Mer 17 Jui 2009, 0:54
|
Posté le : Sam 22 Jan 2011, 12:37
|
|
|
| Citer : lover-lol | Super utile !
Perso on a commencé en 3ème et sa me faisait bien ch*** de devoir se retaper toujours les mêmes calculs ! |
Sinon il y a toujours la fonction pgcd dans Math -> NUM -> 9
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 22 Jan 2011, 13:49
|
|
|
Mais en cours de spé math, on nous demande la démonstration par l'algorithme.
Au passage, un prog de division euclidienne me suffit. Voir même j'utilise Bezout puisque le début est identique.
----------------------
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 |
| |
|
| |
tarken
Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
|
Posté le : Sam 22 Jan 2011, 15:30
|
|
|
Oui en fait l'intérêt est limité aux spé.
Si je ne me trompe pas bezout c'est l'algorithme que l'on prend a l'envers ?
Ca doit pouvoir se faire ...
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Sam 22 Jan 2011, 20:21
|
|
|
Il y a deux façons pour bezout, et les deux sont construites autour de l'algo du pgcd.
Je devrais poster bezout, tiens !
----------------------
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 |
| |
|
| |
Wirekey
Autorisation : Membre
Nb de messages : 240
Inscrit le : Mer 17 Jui 2009, 0:54
|
Posté le : Sam 22 Jan 2011, 22:47
|
|
|
| Citer : linkakro | Mais en cours de spé math, on nous demande la démonstration par l'algorithme.
Au passage, un prog de division euclidienne me suffit. Voir même j'utilise Bezout puisque le début est identique. |
Ah oui c'est vraie d’ailleurs à l'époque j'avais fait un programme qui solvé les équations diophantienne comme sur une feuille pour les Spé Si ça intéresse (Bien que se soit pas bien dur ^^)
|
| |
|
| |
