View Single Post
Staro 09.01.2008., 17:28   #4
pogi
aka Mali Mirko
Moj komp
 
pogi's Avatar
 
Datum registracije: Nov 2001
Lokacija: Rijeka
Postovi: 3,085
To što su primjeri u C++ nebi trebalo biti problem. Bez obzira što neznaš C++...

Ahhh ... probaj nabaviti neku knjigu tipa (ova je najjednostavnija)
Teach Yourself Data Structures And Algorithms In 24 hours - Robert Lafore

A do tada sam našao nekakav moj kod u VBA od prije ni neznam koliko (dakle ne primam pokude na kod :-) ) Koristi polja A4:AM4 i koje upišeš nekakve brojeve. Glavna stvar koju će profesor vjerojatno tražiti da se unutarnja petlja mora za svako izvođenje vanjske petlje mora smanjivati (ako sam se dobro izrazio

Citiraj:
Dim shit As Object

Sub bubble_sort()
Const matrsize = 39
Dim matrica(matrsize) As Integer

Dim result As Boolean

Set shit = Sheets("Sheet1")

'napuni matricu
For i = 1 To matrsize
matrica(i) = shit.Cells(4, i).Value
Next

result = bsort(matrica, matrsize)


End Sub

Function bsort(ByRef matrix, ByVal size As Integer) As Boolean
Dim tempvar, i, j, brojprolaza, brojzamjena As Integer

brojprolaza = 0
brojzamjena = 0
For i = 1 To (size - 1)
For j = 1 To ((size - 1) - (i - 1))
brojprolaza = brojprolaza + 1
shit.Cells(5, j).Value = 1
shit.Cells(5, j + 1).Value = 1
If shit.Cells(4, j).Value > shit.Cells(4, j + 1).Value Then
brojzamjena = brojzamjena + 1
tempvar = shit.Cells(4, j).Value
shit.Cells(4, j).Value = shit.Cells(4, j + 1).Value
shit.Cells(4, j + 1).Value = tempvar
End If
shit.Cells(5, j).Value = 0
shit.Cells(5, j + 1).Value = 0
Next j
Next i
MsgBox "Broj prolaza = " & brojprolaza & " Broj zamjena = " & brojzamjena
bsort = True
End Function
__________________
Verifikacija poštenog trgovca #1, #2, #3, #4, #5, #6, #7, #8, #9
pogi je offline   Reply With Quote