Järjestäminen

[klopari]

Heips taas pitkästä aikaa :3

Siis mulla on kolmesta ( 3 ) viiteen ( 5 ) nimee joitten pisteet pitäisi järjestää.

Kokeilen usein kolmella nimellä.
Elikkäs...

Pelaaja (0), Pelaaja(1) ja Pelaaja(2) saavat pisteitä kierroksilla X ja niiden kierrosten kokonais pisteet jotka ovat esim 65, 72 ja 42
Ja nämä pitäisi pystyy järjestää sillee et se jolla on eniten pisteitä tässä tapauksessa Pelaaja(1) jolla on yhteensä 72 pistettä, olis ylimpänä ja sitten tulis sueraava, Joka olis tässä Pelaaja(0) jolloin viimiseks jää toi Pelaaja(2).

Käyttäjälle tämä tulisi näkyä siis tällai -->

Pisteet:
Pelaaja(0) Pelaaja(1) Pelaaja(2)
3 65 0
62 0 40
0 7 2

Kokonais pisteet:
Pelaaja(1) 72
Pelaaja(0) 65
Pelaaja(2) 42


Eli normaallisti toi ei olis järjestetty vaa olis järjestyksessä nollasta kahteen noi pelaajat, mutta pitäs saada järjestettyy toi helposti ja sujuvasti.
(Eli siis haen koodia vain tuohon suuruus järjestykseen en pisteitten yhteen laskuun.)

Onko tähän mitää helppoo tapaa vai pitääkö yksinkertaisesti tehdä pitkä If ... Then ... Max ... EndIf hösellys??
Jos pystyy jotenkin helposti tai jotenki pitkästi nii kaikki esimerkit otetaan huomioon, niin ja ohjelman seuraava versio (joka tulee olemaan 0.4 ) tulee myös tännekkin eikä vain mun facepook sivulla Kiinostusta ois varmasti koodille jokaisella mutta pidän sen viellä tekijöitten omana ja laitan vain .exe jakoon.
(Voi olla et laitan myös lähdekoodin mut siitä ei ole viellä varmaa)

[legend]

Kokeile ensin tutustua tuohon
http://fi.wikipedia.org/wiki/Kuplalajittelu

Ja tässä todella yksinkertainen ratkaisu:

Code: Select all

    
    Const taulukonKoko = 10
    Dim taulukko(taulukonKoko)
    
    //arvotaan taulukkoon luvut
    For i=1 To taulukonKoko
        taulukko(i) = Rand(1,90)
    Next i
    
    
    
    //taulukon järjestäminen
    For i=1 To taulukonKoko
        For a=1 To taulukonKoko
            
            //jos on suurempi
            If taulukko(i) > taulukko(a)
                //vaihdetaan järjestystä
                tmp = taulukko(i)
                taulukko(i) = taulukko(a)
                taulukko(a) = tmp
            EndIf
            
        Next a
    Next i
    
    
    
    //tulostetaan
    For i=1 To taulukonKoko
        Print taulukko(i)
    Next i
    
    WaitKey