Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Sam 28 Nov 2009, 19:04
Bon, voila je vois qu'il n'y en a pas, alors je sors mon premier programme ^^
Il permet de calculer par algorithme une racine carrée d'un nombre quelconque, avec toutes les précisions voulues (nbr d'itérations, etc...), mais il faut mettre les nombres qui encadrent...
Alors...
Code
0->T
Input "[Racine carrée de](?):",R
Input "A?:",A
Input "B?:",B
Input "10^(?):",P
Menu("FRAGMENTER?","OUI",O,"NON",N
Lbl O
While B-A>10^P
(A+B)/2->M
If M²<R
Then
M->A
Else
M->B
End
T+1->T
Disp "ITERATIONS:",T
Disp "A:",A
Disp "B:",B
Pause
End
Goto R
Lbl N
While B-A>10^P
(A+B)/2->M
If M²<R
Then
M->A
Else
M->B
End
T+1->T
End
Lbl R
Disp "FIN"
Disp "ITERATIONS :",T
Disp "A:",A
Disp "B:",B
Pause
Avec A nombre encadrant inférieur et B nombre encadrant supérieur, et P la précision (en puissance de 10 et doit être négatif)
Bon, certes il n'est pas parfait mais il marche, j'ai pas économisé d'octets ^^
(Il a vite été créé en cours de math pour "faciliter" le contrôle suivant )
Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Lun 30 Nov 2009, 17:45
Ah désolé j'avais pas vu ^^
Mais bon, j'essaie au moins de participer un peu a la vie active du forum (je posterai des jeux quand j'arriverai a en faire (déjà a moitié ^^) et quand ils présenteront un intérêt (ça, ça va être plus dur )
)
désolé j'avais pas vu ^^
!