23 lines
422 B
QBasic
23 lines
422 B
QBasic
' This script is an example of MY-BASIC
|
|
' Copyright (c) 2011 - 2014 W. Renxin. All rights reserved.
|
|
' For more information, see https://github.com/paladin-t/my_basic/
|
|
|
|
BEGIN:
|
|
n = 10
|
|
DIM arr(n)
|
|
GOSUB CALC
|
|
GOSUB SHOW
|
|
END
|
|
|
|
CALC:
|
|
arr(0) = 1
|
|
FOR i = 1 TO n - 1
|
|
IF i = 1 THEN arr(i) = 1 ELSE arr(i) = arr(i - 1) + arr(i - 2)
|
|
NEXT
|
|
RETURN
|
|
|
|
SHOW:
|
|
FOR i = 0 TO n - 1
|
|
PRINT arr(i), ", "
|
|
NEXT
|
|
RETURN |