(12C) Check if given number is Fibonacci number

[Gamo]

Program to check if a given number is Fibonacci Number or not.

Procedure:

Yes display 1
No display 0

Example:

377 [R/S] display 1 // Yes this is Fibonacci Number

234 [R/S] display 0 // This number is not Fibonacci Number

987 [R/S] display 1

Program:

Code:


01 STO 1
02 ENTER
03  x
04  5
05  x
06  4
07  +
08  √x
09 FRAC
10 X=0 ?
11 GTO 25
12 RCL 1
13 ENTER
14  x
15  5
16  x
17  4
18  -
19 √x
20 FRAC
21 X=0 ?
22 GTO 25
23  0
24 GTO 00
25  1

Gamo