فاكتوريال

[mehdiafzali]

1-برنامه اي كه توسط يك تابع بازگشتي فاكتوريل يك عدد را محاسبه كند.
(vb)

 

[bluekerm]

الگوریتم کلی رو میگم دیگه خودتون با vb بنویسید

function factl(int x)
{
if x=0 or x=1 then return fact=1
else
return x * fact(x-1)
}

 

[the_king]

1-برنامه اي كه توسط يك تابع بازگشتي فاكتوريل يك عدد را محاسبه كند.
(vb)

Private Function Factorial(x As Integer) As Long
    If x > 1 Then
        Factorial = x * Factorial(x - 1)
    Else
        Factorial = 1
    End If
End Function

Private Sub Form_Load()
    Dim a As Integer
    a = Val(InputBox("Please enter a number :"))
    MsgBox Factorial(a)
End Sub