Profº Piva - Algoritmos - Capitulo 2.12) Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula:

Os valores de a1, an e r (a razão da progressão) serão fornecidas pelo usuário.

Resposta:

algoritmo "Cálculo da progressão aritmétrica"

var

  a1,an,r,sn,n:real

inicio

  escreval("Calculo da progressão aritmétrica")

  escreva("Digite o valor de a1 ")

  leia (a1)

  escreva("Digite o valor de an ")

  leia (an)

  escreva("Digite o valor de r  ")

  leia (r)

  n  <-((an-a1)/r)+1

  sn <-((a1+an)/2)*n

  escreval("A soma Sn dos n primeiros termos da progressão aritmétrica é      igual a ",Sn,".")

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

fimalgoritmo