/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Sorterings algorithm
Fra : Elmefaard


Dato : 27-12-00 19:11

Hvordan laver jeg en meget enkel sorterings algorithm, den skal helst fylde
meget lidt og skal sortere tal!




 
 
Leo Heuser (29-12-2000)
Kommentar
Fra : Leo Heuser


Dato : 29-12-00 10:02

Nedenstående "bubble-sort" er et bud på en simpel sorteringsalgoritme.
Tallene lægges i arrayet Tal().

Sub Sorter()
'leo.heuser@get2net.dk, december 2000
Dim Tal() As Variant
Dim AntalTal As Long
Dim Counter As Long
Dim Counter1 As Long
Dim Dummy As Variant

AntalTal = 100
ReDim Tal(AntalTal)

Randomize
For Counter = LBound(Tal) To UBound(Tal)
Tal(Counter) = Int(1000 * Rnd)
Next Counter

For Counter = LBound(Tal) To UBound(Tal) - 1
For Counter1 = Counter + 1 To UBound(Tal)
If Tal(Counter) > Tal(Counter1) Then
Dummy = Tal(Counter1)
Tal(Counter1) = Tal(Counter)
Tal(Counter) = Dummy
End If
Next Counter1
Next Counter
End Sub

Med venlig hilsen
LeoH

"Elmefaard" <elmefaard@hotmail.com> skrev i en meddelelse
news:92dbg2$2dk8$1@news.cybercity.dk...
> Hvordan laver jeg en meget enkel sorterings algorithm, den skal helst
fylde
> meget lidt og skal sortere tal!
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177551
Tips : 31968
Nyheder : 719565
Indlæg : 6408825
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste