Challenge for you...

[Jack]

@Petr

Code: (Select All)

$Console:Only
_Dest _Console

f## = CalcFac(1754##)
Print f##

Function CalcFac## (value##)
    Do Until i## = value## - 1##
        If c## = 0 Then a## = 1## Else a## = c##
        b## = i## + 1##
        c## = a## * b##
        i## = i## + 1##
    Loop
    CalcFac## = c## * value##
End Function

1.979261890105010055F+4930

Press any key to continue

I fixed my version of QB64 so it will print _Float without problems