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)
Järjestäminen
Re: Järjestäminen
Kokeile ensin tutustua tuohon
http://fi.wikipedia.org/wiki/Kuplalajittelu
Ja tässä todella yksinkertainen ratkaisu:
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