[Student]

Zitat von Tucklemuck

Function subfak(wert As Byte)
For i = 1 To wert
    If i Mod 2 = 0 Then
        sf = sf + (1 / fak(i))
    Else
        sf = sf - (1 / fak(i))
    End If
Next
sf = 1 + sf
subfak = fak(wert) * sf
End Function

Function fak(ByVal zahl As Byte)
fak = 1
If zahl = 0 Then
    fak = 1
Else
    fak = zahl * fak(zahl - 1)
End If
End Function

Iteration ist menschlich, Rekursion ist göttlich (;-))