View source

From BorielWiki

for ZX BASIC:Fact.bas

Jump to: navigation, search

You do not have permission to edit this page, for the following reason:

You must confirm your e-mail address before editing pages.
Please set AND validate your e-mail address through your [[Special:Preferences|user preferences]].

You can view and copy the source of this page:

 Program: fact.bas

<zxbasic>REM Factorial recursive test

function fact(x as ulong) as ulong
    if x < 2 then
        return 1
    end if

    return x * fact(x - 1)
end function

cls
for x = 1 To 10:
    print "Fact ("; x; ") = "; fact(x)
next x</zxbasic>
[[Category:ZX BASIC Examples]]

Return to ZX BASIC:Fact.bas.

Retrieved from "http://www.boriel.com/wiki/en/index.php/ZX_BASIC:Fact.bas"

Views

Personal tools

Log in / create account

Search

Custom Search

Toolbox