Home

Logithèque

TI86

Test de précision générique

Code

"Trouver N minimal tel":"que 1+2^N=2^N"

0->N:1->M:Lbl A

1+N->N:2*M->M

If 1+M/=M:Goto A

"Trouver M minimal tel":"que 1+M=M"

M/4->N:M-N->M:Lbl B

If 1+M/=M

Then:M+N->M

Else:M-N->M:End

N/2->N:If N>1:Goto B

1+M->M

"Trouver B minimal tel":"que M+B-M/=0"

1->N:Lbl C:1+N->N:M+N-M->B:If B/=0:Goto C

Disp "-----"

Disp "Base",B

Disp "Chiffres significat.",log M/log B-1

If N<B:Then

Disp "Arrondi a ",N

Else "Troncature":End

Attention la combinaison "/=" en 4ème, 7ème 12ème et 13ème lignes représente le signe "différent de".

422 octets - Utilise B, C, M et N.

Mode d'emploi

Lancer le programme.

Il affiche les paramètres de calcul arithmétiques de la machine.

Les résultats ne sont pas donnés ici car cela enlèverait tout intérêt au programme...

Ce programme est utilisable après traduction sur toute machine.