/
Forside
/
Teknologi
/
Udvikling
/
VB/Basic
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
VB/Basic
#
Navn
Point
1
berpox
2425
2
pete
1435
3
CADmageren
1251
4
gibson
1230
5
Phylock
887
6
gandalf
836
7
AntonV
790
8
strarup
750
9
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
Alle emner
Teknologi
Udvikling
VB/Basic
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177551
Tips :
31968
Nyheder :
719565
Indlæg :
6408825
Brugere :
218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.