Skip to main content

AccessTr.neT


Faktoriyel Hesaplama

Faktoriyel Hesaplama

#1
işinize yarayabilir faktorıyel hesaplama programı
Cevapla
#2
Tesekkurler Sn.Harun_061,
Bir de progrsami gorebilseydik.

Sevgi ve Saygilar
Cevapla
#3
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
Cevapla
#4
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

Herşeyi devletten beklememek lazım Img-grin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task