Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse
EUCLID
Auteur Message
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Dim 09 Jan 2011, 11:11   Citer 

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 ?

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
lover-lol
Avatar

Autorisation : Membre
Nb de messages : 74
Inscrit le : Ven 03 Déc 2010, 3:42
Posté le : Dim 09 Jan 2011, 11:19   Citer 

bigmouth.gif 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 winkle.gif
 Adresse email Haut de page Bas de page 
 
cedraci
Invité
Posté le : Mar 18 Jan 2011, 19:05   Citer 

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..

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mer 19 Jan 2011, 0:31   Citer 

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
 Adresse email Haut de page Bas de page 
 
Wirekey



Autorisation : Membre
Nb de messages : 241
Inscrit le : Mer 17 Jui 2009, 0:54
Posté le : Sam 22 Jan 2011, 12:37   Citer 


Citer : lover-lol
bigmouth.gif 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

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 22 Jan 2011, 13:49   Citer 

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
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
tarken
Avatar

Autorisation : Membre
Nb de messages : 22
Inscrit le : Mar 15 Sep 2009, 15:04
Posté le : Sam 22 Jan 2011, 15:30   Citer 

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 ...

 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 22 Jan 2011, 20:21   Citer 

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
 Adresse email Haut de page Bas de page 
 
Wirekey



Autorisation : Membre
Nb de messages : 241
Inscrit le : Mer 17 Jui 2009, 0:54
Posté le : Sam 22 Jan 2011, 22:47   Citer 


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 ^^)

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa