Exercício cap.2.13

13. Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

onde a1, é o primeiro termo da série, an, é o enésimo termo, q é a razão e n  é o número  de termos. Os valores de a1, q e n serão fornecidos pelo usuário.

Resposta:

1.  algoritmo "Cálculo da progressão geométrica"

2.  var

3.    a1,q,n,an:real

4.  inicio

5.    escreval("Cáculo da progressão geométrica")

6.    escreva("Digite o valor de a1 ")

7.     leia(a1)

8.    escreva("Digite o valor de q  ")

9.     leia(q)

10.   escreva("Digite o valor de n  ")

11.    leia(n)

12.   an <- a1*(q^(n-1))

13.   escreval("O valor de an é igual a ",an)

14.   escreval("*** F I M ***")

15. fimalgoritmo