Você está aqui: VB.NET ::: Dicas & Truques ::: Recursão (Recursividade) |
Como somar os elementos de um vetor em VB.NET usando uma função recursiva - Linguagem VB.NET para iniciantesQuantidade de visualizações: 376 vezes |
|
Em algumas ocasiões ficamos imaginando o que pode ser feito com os métodos e funções recursivas. A resposta é: praticamente tudo. Veja abaixo um programa VB.NET completo no qual eu mostro como escrever uma função recursiva que recebe um array e mostra a soma de seus elementos (lembre-se de que um array é o mesmo que vetor, ou seja, uma matriz de uma linha e várias colunas): ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
Imports System
Module Program
' função principal do programa VB.NET
Sub Main(args As String())
' vamos declarar um array de 10 elementos
Dim valores(9) As Integer
Dim soma As Integer
' vamos pedir ao usuário para informar os valores para o vetor
For i As Integer = 0 To valores.GetUpperBound(0)
Console.Write("Informe o valor do elemento " & i & ": ")
valores(i) = Int32.Parse(Console.ReadLine())
Next
' vamos efetuar uma chamada à função recursiva somar();
' nota que estamos passando o índice inicial, o tamanho do
' array e o array em si
soma = Somar(0, valores)
Console.WriteLine(vbCrLf & "A soma dos elementos é: " & soma)
Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
' pausa o programa
Console.ReadKey()
End Sub
' função recursiva para somar todos os elementos de um array
Function Somar(indice As Integer, vetor As Integer()) As Integer
' o caso base...hora de encerrar a recursividade
If indice = (vetor.Length - 1) Then
Return vetor(indice)
Else
' ainda não é o caso base? vamos fazer uma nova chamada à função somar()
Return vetor(indice) + Somar(indice + 1, vetor)
End If
End Function
End Module
Ao executarmos este código VB.NET nós teremos o seguinte resultado: Informe o valor do elemento 0: 7 Informe o valor do elemento 1: 3 Informe o valor do elemento 2: 1 Informe o valor do elemento 3: 3 Informe o valor do elemento 4: 8 Informe o valor do elemento 5: 9 Informe o valor do elemento 6: 4 Informe o valor do elemento 7: 3 Informe o valor do elemento 8: 2 Informe o valor do elemento 9: 6 A soma dos elementos é: 46 |
|
|
Desafios, Exercícios e Algoritmos Resolvidos de VB.NET |
Veja mais Dicas e truques de VB.NET |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |






