Imam sledečo nalogo:
Napišite funkcijo, ki kot argument sprejme tabelo 10 števil in poišče najdaljše naraščajoče podzaporedje.
Napišite funkcijo tako, da kot rezultat vrne dolžino najdaljšega naraščajočega podzaporedja.
pr
1 2 5 3 2 6 8 12 4 7 ----- rešitev je 2 6 8 12
Zanima me, kako napišem funkcijo, ki sprejme kot argument tabelo?
Poleg tega pa, kako tako funkcijo kličem?
Hvala za odgovor.
p.s. Napisala sem tole kodo, vendar je ne znam preveriti ali sploh deluje, ker je na znam kliciti! Tako, da sem morda zgrešila bistvo naloge!
Koda: Izberi vse
Function najdaljse(t) As Integer
t = Array("1", "2", "5", "2", "6", "8", "12", "4", "7")
Max = 0
st = 0
For i = 0 To 8
If t(i) < t(i + 1) Then
st = st + 1
temp = st
If temp < st Then
temp = st
st = 0
End If
ElseIf t(i) > t(i + 1) Then
i = i + 1
End If
Next
najdaljse = temp
End Function