• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Kombinasyon

Katılım
3 Mayıs 2006
Mesajlar
6
1'den 15'e kadar olan sayılardan herhangi 5 tanesini seçip bunların karelerinin toplamlarını bulmak istiyorum. C(15,5)= 3003 adet sonuç çıkması gerekiyor. örnek sonuçlarından biri: 1+4+9+16+25 = 55

bütün sonuçları verecek bir makro yazılabilir mi?
 
3003 sonuç buluyor, doğruluğunu kontrol edin.
Kod:
Sub dene()
    Application.ScreenUpdating = False
    For i = 1 To 11
        For ii = i + 1 To 12
            For iii = ii + 1 To 13
                For iv = iii + 1 To 14
                    For v = iv + 1 To 15
                        sat = sat + 1
                        Cells(sat, 1) = i
                        Cells(sat, 2) = ii
                        Cells(sat, 3) = iii
                        Cells(sat, 4) = iv
                        Cells(sat, 5) = v
                        Cells(sat, 6) = i ^ 2 + ii ^ 2 + iii ^ 2 + iv ^ 2 + v ^ 2

    Next v, iv, iii, ii, i
    Application.ScreenUpdating = True
End Sub
 
benim sorunum 1'den 40'a kadar olan rakamlardan olabilecek tüm 10'lu kombinasyonları görmek istiyorum bu konuda bana yardımcı olursanız çok sevinirim...
 
Geri
Üst