1 den 21 e kadar olan tek sayıların faktöriyelini hesaplayan program

[1978]

1 den 21 e kadar olan tek sayıların faktöriyelini hesaplayan program

 

[muratboz06]

Sub FaktoryelHesapla()
    Dim i As Byte
    For i = 1 To 21
    If i Mod 2 = 1 Then
        Debug.Print i & "!=" & Application.WorksheetFunction.Fact(i)
    End If
    Next i
End Sub

 

[1978]

Sub FaktoryelHesapla()
    Dim i As Byte
    For i = 1 To 21
    If i Mod 2 = 1 Then
        Debug.Print i & "!=" & Application.WorksheetFunction.Fact(i)
    End If
    Next i
End Sub

çalışmıyor olmadı

 

[muratboz06]

Sonuçları çalışma sayfasında mı görmek istiyorsunuz?

Sub FaktoryelHesapla()
    Dim i As Byte
    Dim a As Byte
    
    a = 1
    For i = 1 To 21
    If i Mod 2 = 1 Then
        If i = 1 Then
        Cells(i, 1) = i & "!=" & Application.WorksheetFunction.Fact(i)
        Else
        Cells(i - a, 1) = i & "!=" & Application.WorksheetFunction.Fact(i)
    a = a + 1
    End If
    End If
    Next i
    
End Sub

 

[muratboz06]

 

[Haluk]

Muhtemelen bu bir ödev ve bu ödevden beklenen, faktöryelin döngü ile ne şekilde hesaplandığı .....

Benim önerim;

Sub Test()
    Dim iStart As Integer, iEnd As Integer
    Dim i As Integer, j As Integer
    Dim valFact As Double
    
    iStart = 1
    iEnd = 21
    
    For i = iStart To iEnd Step 2
        valFact = 1
        For j = 1 To i
            valFact = valFact * j
        Next
        MsgBox i & "! =" & valFact
    Next
End Sub

 

[muratboz06]

Stepli for döngüsü nedense aklıma gelmiyor. Boşuna uzatmışım.