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.