SOMA EM VETOR

JOHNLOGAN 28/05/2010 16:37:54
#343110
Eu tenho um vetor 
D(20) integer
. Dentro dele tenho varas números.
Gostaria que me retornasse os indices de acordo com uma soma. 

D(20)={2,4,12,5,3,21,3,2,12,..}
Soma = 17


Gostaria que me retornasse D(1), D(2), D(4) que somando dariam 17

Alguma idéia?
TECLA 28/05/2010 22:07:53
#343141
Segue um exemplo:

Dim V(6) As Integer, Soma As Integer
Dim i As Byte, j As Byte, ret As String
Soma = 10
V(0) = 2: V(1) = 6: V(2) = 8: V(3) = 4: V(4) = 1: V(5) = 9
For i = 0 To UBound(V) - 2
    For j = i + 1 To UBound(V) - 1
        If V(i) + V(j) = Soma Then ret = ret & i & [Ô] e [Ô] & j & vbCrLf
    Next j
Next i
MsgBox ret, , [Ô]Soma = [Ô] & Soma
JOHNLOGAN 29/05/2010 12:52:55
#343167
Então, mas neste caso voce só testa a possibilidade de somar 2 pontos do vetor... e se o vetor tiver a soma mas usar 4 indices para fazer a soma?

Abraço
EDERMIR 29/05/2010 17:21:42
#343185
A questão não é só somar mais de um elemento do vetor. A questão é somar TODAS as probabilidades entre TODOS os elementos do VETOR.
Tópico encerrado , respostas não são mais permitidas
Voltar