Kombinasyon

[faiktek]

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?

 

[veyselemre]

3003 sonuç buluyor, doğruluğunu kontrol edin.

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

 

[faiktek]

sagol

evet dogru çözümü veriyor eline saglık. teşekkürler

 

[se7v7en]

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...