Anonymous recursion: Difference between revisions
Content added Content deleted
(Anonymous recursion en True BASIC) |
(Anonymous recursion en QBasic) |
||
Line 2,354: | Line 2,354: | ||
[None, None, 0, 1, 1, 2, 3, 5, 8, 13, 21, 34] |
[None, None, 0, 1, 1, 2, 3, 5, 8, 13, 21, 34] |
||
</lang> |
</lang> |
||
=={{header|QBasic}}== |
|||
{{works with|QBasic}} |
|||
{{trans|BASIC256}} |
|||
<lang qbasic>DECLARE FUNCTION Fibonacci! (num!) |
|||
PRINT Fibonacci(20) |
|||
PRINT Fibonacci(30) |
|||
PRINT Fibonacci(-10) |
|||
PRINT Fibonacci(10) |
|||
END |
|||
FUNCTION Fibonacci (num) |
|||
IF num < 0 THEN |
|||
PRINT "Invalid argument: "; |
|||
Fibonacci = num |
|||
END IF |
|||
IF num < 2 THEN |
|||
Fibonacci = num |
|||
ELSE |
|||
Fibonacci = Fibonacci(num - 1) + Fibonacci(num - 2) |
|||
END IF |
|||
END FUNCTION</lang> |
|||
{{out}} |
|||
<pre> |
|||
Igual que la entrada de BASIC256. |
|||
</pre> |
|||
=={{header|Qi}}== |
=={{header|Qi}}== |