En
mea-culpa d'avoir oublié qu'il y avait un paramètre en entrée, voici une nouvelle version en assembleur pour les calculatrices
Ti-83 Plus (anciennes générations) :
Code : Tout sélectionner
#include "ti83plus.inc"
#define progStart $9D95
.org progStart-2
.db $BB,$6D
bcall(_RclAns) ; Ans -> OP1
bcall(_ConvOp1) ; OP1 -> DE
ld hl,0 ; HL = 0
ld b,e
cp 0 ; A = 0 ?
jp z,fin ; Si oui -> fin
ld de,$1 ; DE = 1
loop:
add hl,de ; HL = HL + DE
ex de,hl ; Echange HL et DE
djnz loop
fin:
bcall(_dispHL) ; Affichage de HL
ret
- F(0)=0, F(1)=1, F(16)=987
- fibo.png (5.1 Kio) Vu 3637 fois
Ce programme fonctionne jusqu'à F(24) = 46368 qui est la dernière valeur <= 65535
Démonstration en vidéo
Code : Tout sélectionner
PROGRAM:FIBO
:AsmPrgmBB6DEFD7
4AEFEF4A21000043
FE00CAAB9D110100
19EB10FCEF0745C9
40 octets en version compilée ou 71 octets pour la version ci-dessus.