Un prgm pour afficher les décimales :)

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