Profº Piva - Algoritmos - Exercícios Capítulo 2.13) Escreva um algoritmo que calcule e escreva o valor de um termo an qualquer de uma progressão geométrica dada por:

an = a1 x q (2.5)


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

Resposta:

algoritmo "Calculo da progressão geometrica"

var

  a1,q,n,an:real

inicio

  escreval("Calculo da progressão geometrica")

  escreva("Digite o valor de a1 ")

  leia(a1)

  escreva("Digite o valor de q  ")

  leia(q)

  escreva("Digite o valor de n  ")

  leia(n)

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

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

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

fimalgoritmo