Soma Infinita

Exercício Intermediário

Enunciado

Faça uma Function onde o usuário entra com o número $n$ de termos desejado para uma série e lhe é retornado a sua soma, sendo a série a seguinte: $$S={1 \over 1^3} - {1 \over 3^3} + {1 \over 5^3} - {1 \over 7^3}+...$$

Conceitos Sugeridos:

Dim
For Next
Function

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Crie um Loop com um determinado "$n$" e tente perceber o padrão que existe na série para ser replicado.

Exercício Resolvido

Resolvendo o Problema

Iniciamos definindo os argumentos da função e o tipo de dados de saída
```
Function SoMaInF(n As Double) As Double
```
Definimos as variáveis
```
Dim i As Double
Dim Prog As Double
```
Criamos um loop For Next de 1 a $n$. A variável Prog foi criada tendo em vista a adição do próximo elemento da série conforme o número de termos
```
For i = 1 To n
    Prog = Prog + (-1) * ((-1) ^ i) * (1 / ((2 * i - 1) ^ 3))
Next i
```
Terminado o loop For Next definimos o resultado da Function como a variável Prog
```
SoMaInF = Prog
```

Código Consolidado

    Function SoMaInF(n As Double) As Double

    Dim i As Double
    Dim Prog As Double

    For i = 1 To n
        Prog = Prog + (-1) * ((-1) ^ i) * (1 / ((2 * i - 1) ^ 3))
    Next i

    SoMaInF = Prog

    End Function

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO