Home

 Logithèque

HP42S

Convertit un réel en fraction


Code

LBL "FRAC"

STO 06

STO 00

1

STO 01

STO 04

CLX

STO 02

STO 03

LBL 01

RCL 02

RCL 00

IP

STO ST Z

RCL 01

STO 02

*

+

STO 01

RCL 04

RCL ST Z

RCL 03

STO 04

*

+

STO 03

/

RCL 06

-

ABS

RCL 06

1E6

/

X>=Y?

GTO 02

RCL 00

FP

1/X

STO 00

GTO 01

LBL 02

RCL 01

RCL 03

CLA

ARCL 01

+"/"

ARCL 03

AVIEW

END

 

Taille : 68 octets.


Mode d'emploi

Entrer le réel dont une approximation est demandée.

Exécuter le programme. Le rapport est affiché, les numérateur et dénominateur sont dans Y et X.

On peut changer la précision demandée en ligne 32, qui contient la constante assez correcte de 1E6.


Mathématiques à l'oeuvre

On utilise les fractions continues.