[es] - Pomoc oko permutacija

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

^{23.05.2011. u 19:36 - pre 157 meseci}

Ljudi pomagajte zapeo sam...

Imam jedan skup npr. {1,2,3,4} , e sad treba da isipisem sve brojeve koji pocinju sa npr. 1. pa treba da dobijem:

Code:
1
12,13,14
123,124,134
1234

E to sad i ne bi bio problem, zavrtim to kroz 4 petlje i eto ga, ali kako to napraviti za skup od n brojeva, a da ne vrtim kroz n petlji :-( ?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Pomoc oko permutacija

^{23.05.2011. u 21:47 - pre 157 meseci}

Mogao bi rekurzijom. Za svaki element niza imas njega + ta ista funkcija sa nizom bez tog elementa.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: Pomoc oko permutacija

^{23.05.2011. u 22:24 - pre 157 meseci}

Nisam bas razumio?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Pomoc oko permutacija

^{23.05.2011. u 22:44 - pre 157 meseci}

Huh, nemam vb, a nije bas da se secam sintakse dovoljno da bih ovako napamet.. Probacu malo detaljnije opisno.
Dakle, imas funkciju koja prima niz brojeva.
Ides For Each kroz taj niz. Unutar foreach ispisujes taj broj i pozivas ponovo tu funkciju sa novim nizom koji je prekopiran stri samo sa izbacenim trenutnim brojem.

Jedino je malo smor sto moras praviti nove nizove ali sta je tu je :)

Aj' ako se nismo skontali jos uvek, javi pa cu ispisati kod.

Odgovor na temu

vuchko.vuchko

Član broj: 217112
Poruke: 301
*.teol.net.

+2 Profil

Re: Pomoc oko permutacija

^{24.05.2011. u 23:20 - pre 157 meseci}

Jos ja nisam provalio taj tvoj fazon, al smisljam neki svoj, sa nekim brojacima. Sad imam nov problem kada zelim redimenzionisati svoj niz izbacuje mi gresku "out of memory", ali to je off topic :(

Code:
Dim niz()

Private Sub Command1_Click()
Dim BrClanova As Double
BrClanova = 2 ^ 30
ReDim niz(BrClanova, 1)
End Sub

E sad znam ja da je 2 na 30-tu zaista puno, al mi treba toliki niz pa cak i veci i do 2 na 200, jel ima kakavo rjesenje?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: Pomoc oko permutacija

^{25.05.2011. u 06:46 - pre 157 meseci}

Cek, ti hoces da ispies sve kombinacije elemenata niza sa 2^30 clanova? To ce trajati kao pronalazenje odgovora na pitanje zivota vaseljene i svega ostalog :)
I 30 clanova je mnogo a kamoli 2^30.

Code:

Private sub IspisiKombinacije(niz as integer())
    if len(niz) > 0 then
        for i = 1 to len(niz)
            console.write(len(i))
            dim NoviNiz as Integer(len(niz)-1)
            'kopiraj sve clanove iz niz u NoviNiz osim i-tog clana
            IspisiKombinacije(NoviNiz)
        next
    else
        console.writeline("")
    end if
end sub

Verovatno sam ponegde izgresio u sintaksi i ovo kopiranje niza nisam uradio, ali valjda je dovoljno da se shvati poenta :)
Znam da u vb6 nema console, al' umesto toga stavi sta ti vec odgovara.

Odgovor na temu