Avatar billede troelsm Nybegynder
19. april 2005 - 21:11 Der er 3 kommentarer og
1 løsning

Find de 2 højeste værdier af 4 værdier

Nogen som har en god og effektiv (kort) kode til at uddrage de 2 højeste værdier af 4 tal

Jeg har 4 varibaler
A - B - C - D
de kan alle fire være 0 - 1 - 2 - 3 eller 5
jeg skal bruge en kode som tager de 2 højeste værdier (og kun de 2 højeste) og lægger dem sammen.
Det er underordne fra hvilken varibel den tager værdi hvis der er 2 eller flere ens.
Fx. a = 3, b = 0, C = 3 og d = 5
så er det underordnet om det er A eller C den ligger til D
Avatar billede gammelhat Nybegynder
19. april 2005 - 21:29 #1
En løsning, smid variablerne i et array og sorter det..

Function SortArray(arr)
    Dim i, j, t, l

    l = UBound(arr)

    For i=0 To l
        For j=i+1 To l
            If arr(i) < arr(j) Then
                t = arr(i)
                arr(i) = arr(j)
                arr(j) = t
            End If
        Next
    Next
    SortArray = arr
End Function

arr = Array(a,b,c,d)
arr = SortArray(arr)

result = arr(0) + arr(1)
Avatar billede troelsm Nybegynder
19. april 2005 - 23:48 #2
virker fint - send et svar
Avatar billede troelsm Nybegynder
05. juni 2005 - 17:41 #3
hejsa send lige et svar så du kan få dine point
Avatar billede troelsm Nybegynder
17. september 2005 - 02:39 #4
"gammelhat send lige et svar så jeg kan lukke den
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester