DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Emin ol buraya yazmadan önce araştırdım ve kafa yordum ama ulaşabildiğim en yakın sonuç girilen çift sayının faktoriyelini hesaplamak oldu ama bana lazım olan program ve akış diyagramı direk 1-24 arası tüm çift sayıları ekrana yazdırması. Eğer laf atmak yerine yol göstermek istersen çok güzel teşekkür ederim sana.iyice okul kantinine döndü burası : )
bir de fikir alıp ben yapayım demek yok, herkes direkt ödevi yaptırma derdinde...
Sub Faktoryel()
Dim i As Byte
For i = 1 To 24
If i Mod 2 = 0 Then
Debug.Print i & "! = " & Application.WorksheetFunction.Fact(i)
End If
Next i
End Sub
Dünyanın en güzel teşekkürü senin olsun.Excel vba kodu benden olsun, akış diyagramına vakit ayıramadım.
Kod:Sub Faktoryel() Dim i As Byte For i = 1 To 24 If i Mod 2 = 0 Then Debug.Print i & "! = " & Application.WorksheetFunction.Fact(i) End If Next i End Sub
Değerli genç heyecanlı arkadaşım, öncelikle teşekkür etmesen de canın sağolsun ben sen teşekkür etmedin diye eksilmem, aşağılanmam.Emin ol buraya yazmadan önce araştırdım ve kafa yordum ama ulaşabildiğim en yakın sonuç girilen çift sayının faktoriyelini hesaplamak oldu ama bana lazım olan program ve akış diyagramı direk 1-24 arası tüm çift sayıları ekrana yazdırması. Eğer laf atmak yerine yol göstermek istersen çok güzel teşekkür ederim sana.
Teşekkür ederim deneyimlerinden dolayı yola çıkarak bana verdiğin öğüt için.Değerli genç heyecanlı arkadaşım, öncelikle teşekkür etmesen de canın sağolsun ben sen teşekkür etmedin diye eksilmem, aşağılanmam.
Ancak her gün daha kötüye giden piyasanın içinde bir gün iş problemi yaşadığında "keşke zamanında derslerime daha çok sarılıp ödevlerimi kendim yapsaydım, mantığını anlardım hiç olmazsa...." diye dövüneceksin.
Hayatın ile ilgili herhangi bir eylem,karar beni hiç ilgilendirmez. Ama ben vicdani hareketimi yapıp, inceden bi laf attım kendin yap diye. Gerisi senin kararın. Başarıyı da başarısızlığı da hayatına koyacak kişi sensin.
Hayatında başarılar