Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
15
Task/Fibonacci-sequence/Tiny-BASIC/fibonacci-sequence.basic
Normal file
15
Task/Fibonacci-sequence/Tiny-BASIC/fibonacci-sequence.basic
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
10 LET A = 0
|
||||
20 LET B = 1
|
||||
30 PRINT "Which F_n do you want?"
|
||||
40 INPUT N
|
||||
50 IF N = 0 THEN GOTO 140
|
||||
60 IF N = 1 THEN GOTO 120
|
||||
70 LET C = B + A
|
||||
80 LET A = B
|
||||
90 LET B = C
|
||||
100 LET N = N - 1
|
||||
110 GOTO 60
|
||||
120 PRINT B
|
||||
130 END
|
||||
140 PRINT 0
|
||||
150 END
|
||||
Loading…
Add table
Add a link
Reference in a new issue