| algorithme de babylone( ou de heron) |
| Auteur |
Message |
dodododod
Autorisation : Membre
Nb de messages : 6
Inscrit le : Jeu 23 Déc 2010, 14:42
|
Posté le : Jeu 23 Déc 2010, 15:02
|
|
 |
Salut à tous j'aurais besoin que l'on maide à trouver comme faire un alogorithme( permettant de remplir un tableau )cette algorithme sera tourner 5 foi =) et on prendra pour l'algorithme de babylone racine carré de 2
merci =)
|
 |
  |
| |
Wirekey
Autorisation : Membre
Nb de messages : 228
Inscrit le : Mer 17 Jui 2009, 0:54
|
Posté le : Jeu 23 Déc 2010, 16:42
|
|
|
J'ai rien compris
Peux-tu détailler un peu stp? 
|
| |
|
| |
patate007
Autorisation : Membre
Nb de messages : 103
Inscrit le : Mar 09 Fév 2010, 8:49
|
Posté le : Jeu 23 Déc 2010, 20:16
|
|
|
On va demander à l'utilisateur quelle sera la racine carré qu'il cherche et à partir de combien il voudra que l'algorithme commence.
On pourra utiliser les listes de la calto pour faire notre tableau : L1 pour la racine recherchée et L2 pour l'algorithme lancé 5 fois.
Le programme est en français (et commenté). Si tu veus les fonctions en anglais, demande moi (ou va voir le topic dédié  )
| Code | :EffListe L1
:EffListe L2 //On rend vierge les 2 premières listes
:Input "[racine]",A //On demande la racine
:Input "X(0)=",B //On demande la variable de début
:A->L1(1) //On met la racine recherchée dans L1
:B->L2(1) //On met le début au début de L2
:For(I,1,6) //On lance 5x l'algorithme
:(L2(I)+A/L2(I))/2->L2(I+1) //La formule est lancée pour chaques lignes
:End |
EDIT:
Rooh ! Je suis trop bon Je te met le code en anglais même si tu n'en avais pas besoin 
| Code | :ClrList L1
:ClrList L2
:Input "[racine]",A
:Input "X(0)=",B
:A->L1(1)
:B->L2(1)
:For(I,1,6)
:(L2(I)+A/L2(I))/2->L2(I+1)
:End |
----------------------
Joyeuse Pâques |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 25 Déc 2010, 18:42
|
|
|
Et moi je t'offre un programme encore plus light que celui du dessus:
| Code | :DelVar L1 DelVar L2
:Input "[racine]",A
:Input "X(0)=",B
:A->L1(1
:B->L2(1
:For(I,1,6
:L2(I->C
:.5(C+A/C->L2(I+1)
:End |
Ok, ça fait qu'une économie d'environ 10 octets mais c'est toujours ça de gagner.
Sangohan38
|
| |
|
| |
Google_AdSense
|
Publicité
|
|
|
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Ven 31 Déc 2010, 12:36
|
|
|
Tes delvar supprimment carrément les listes. Et cela met le bazar dans le menu stat>édit.
EffListe L1,L2
Vous tournez la boucle 6 fois  à moins que la première soit l'initialisation.
----------------------
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 |
| |
|
| |
