L2 - 12 - Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão aritmética dada pela formula:

Escreva um algoritmo que calcule e escreva a soma Sn dos n primeiros termos de uma progressão
aritmética dada pela formula:

onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que:

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

Algoritmo "calcula os primeiros termos de uma progressao aritmetica"
//Autor: Guilherme Paulino
//Data: 30/08/2010
Var
  a1,an, n, s, r: numerico
Inicio
  Escreva("Informe o primeiro termo da progressao aritmetica: ")
  Leia(a1)
  Escreva("Informe o ultimo termo da progressao: ")
  Leia(an)
  Escreva("Informe o valor da razao da progressao: ")
  Leia(r)
  n <- ( ( an - a1 )/r ) + 1
  s <- ( ( a1 + an )/2 ) * n
  Escreva("A soma dos primeiros termos da progressao aritmetica fornecida resulta em ", s)
Fimalgoritmo