kombinacije števil

sej ne vem če paše to glih na tale forum, a nikjer ne najdem. A se da kje dobiti vse kombinacije števil od 0 – 9 mogoče.

0,1,2,3,4,5,6,7,8,9 ????

To so zame vse kombinacije števil od 0 do 9 :))

Če bi morbit malo bolj natančno napisala kaj sploh želiš in kje to sploh želiš imet, potem bomo morda lahko malo več pomagal.

Mislim da hoče permutacije. Pa ne število permutacij ampak prav permutacije

0 1 2 3 4 5 6 7 8 9
1 0 2 3 4 5 6 7 8 9
1 2 0 3 4 5 6 7 8 9
…

Takih “kombinacij” je približno 1.000.000.000, tako da dvomim, da se bo komu dalo vse to pisat.

tukaj imaš excelov Macro, pa sama preglej.
Ko boš kreirala nov macro – moraš pobrisati prvo in zadnjo vrstico,
tako da ostane samo spodnji tekst..
Sem napisal php skripto, samo kolikor vas poznam vse skupaj na forumu
bi mi takoj zabili linux/strežnik s testiranjem aplikacije :)))

Dim CurrentRow

Sub GetString()
Dim InString As String
InString = InputBox(“Vpiši tekst, ali številko za permutacijo:”)
If Len(InString) = 8 Then
MsgBox “Preveč permutacij!”
Exit Sub
Else
ActiveSheet.Columns(1).Clear
CurrentRow = 1
Call GetPermutation(“”, InString)
End If
End Sub

Sub GetPermutation(x As String, y As String)
Dim i As Integer, j As Integer
j = Len(y)
If j < 2 Then
Cells(CurrentRow, 1) = x & y
CurrentRow = CurrentRow + 1
Else
For i = 1 To j
Call GetPermutation(x + Mid(y, i, 1), _
Left(y, i – 1) + Right(y, j – i))
Next
End If
End Sub

sorry, res sm bla tolk zmešana, da sem pozabila ta glavno. Hotela sem namreč štirimestno številko, ki je lahko sestavljena samo iz štirih številk in sicer od nič do devet.

Ah, tko kot kombinacije v ključavnici za becikl? 🙂
To smo se učili pri diskretnih strukturah, koliko je vseh permutacij tolikih števil nad tolikimi števili … Ampak če jih hočeš imet napisane, ti pa ne morem pomagat, ker se mi jih ne da pisat. Veš koliko jih je …

ja sej vem koliko jih je….zato sprašujem če se da to kje s kakšnim programčkom izpisat

Da 🙂

Recimo v Excelu odpri VB Editor (menu Tools –> Macro)
Klikni na Shee1(Sheet1) in v največji prazen prostor skopiraj tole

Sub Kombinacije()
Dim i As Integer
Dim pom As String
Const ASC_1 As Integer = 48

Open “C:\temp\stevila.txt” For Output As #1

For i = 0 To 10 ^ 4 – 1
pom = Chr$(ASC_1 + (i \ 10 ^ 3 Mod 10)) & Chr$(ASC_1 + (i \ 10 ^ 2 Mod 10)) & Chr$(ASC_1 + (i \ 10 Mod 10)) & Chr$(ASC_1 + (i Mod 10))
Print #1, pom
Next i

Close #1

End Sub

Popravi vrstico
Open “C:\temp\stevila.txt” For Output As #1
tako, da bo pot in ime datoteke taka kot želiš.

Zaženi makro in voila…

Če nimaš Excela ali karkoli drugega od Offica, ti lahko pošljem tudi samo datoteko ali exe

ej, res bi bila zelo vesela,če bi mi lahko poslala. Sicer imam excel vendar sem že vse pozabila kako se z njim dela in če se sama lotim mi ziher ne bo ratalo.
Pliz!

aja, še mail: tanja.medic@gov.si