işinize yarayabilir faktorıyel hesaplama programı
Faktoriyel Hesaplama
Tesekkurler Sn.Harun_061,
Bir de progrsami gorebilseydik.
Sevgi ve Saygilar
Bir de progrsami gorebilseydik.
Sevgi ve Saygilar
Sanırım dosyayı eklemeyi unutmuşsunuz sn. harun_061
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Kod:
Private Function Faktoriyel(i As Integer) As Long
Dim t As Integer
Dim sn As Long
Dim j As Integer
If i = 0 Or i = 1 Then
Faktoriyel = 1
Exit Function
End If
t = 1
If i < 0 Then
i = Abs(i)
If (i Mod 2) = 0 Then t = 1 Else t = -1
End If
sn = 1
For j = 1 To i
sn = sn * j
Next
Faktoriyel = sn * t
End Function
Konuyu Okuyanlar: 1 Ziyaretçi
