Poster un nouveau sujet Poster une réponse
Un prgm à diviser.
Auteur Message
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Lun 25 Fév 2013, 19:09   Citer 

Entrez le numérateur dans N, le dénominateur dans D.
Et choisissez la décimale que vous souhaitez atteindre.
Les 125 premières décimales s'afficherons à l'écran, et la dernière visée tout à la fin.
Pour les divisions avec des nombres dans une variable ou encore comme e ou pi, vous n'auraiez que les 13 premières décimales.
Exemple : N=12 D=13 DECn°=150
donne : 0,92307692307692307692307692307692307692307692307692307692307692307692307692307692307692307692307692307692307692307692307692...6
La 150ème est : 6.

Code
:Prompt N
:Prompt D
:Input "DECn°",X          ------ à la fin du catalogue après "!"
:EffEcr
:Output(1,1,partEnt(N/D
:2+ent(log(N/D->V
:V->A:1->B
:While N et A<X+V+1
:partEnt(N/D->S
:10(N-SD->N
:If A<125
:Output(B,A-16(B-1),S
:Output(8,16,S
:B+(A=16B->B
:A+1->A
:End
:Output(1,V,".
:Output(8,13,"...



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Lun 25 Fév 2013, 23:11   Citer 

C'est extrèmement intéressant et l'affichage est bien fait.
J'aime beaucoup l'usage du reste pour obtenir des valeurs exactes.

Pour aller plus loin j'utiliserais une chaine pour ne pas être limité par l'écran, et je coderais les nombres en liste pour supporter des entrées presque sans limite de chiffres.
Si on garde quand même cette saisie, j'effectuerais chaque division sur 14 chiffres.


----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 26 Fév 2013, 0:46   Citer 

Un merci à Linkakro pour cette ligne, sans qui je n'aurai pas trouver :

Code
:1+ent(log(N/D->V



----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 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 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink