Skip to content

Fact.bas

Program: fact.bas

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
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