Exercício 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:

sn = ((a1 + an) / 2) * n

Onde a1, é o primeiro termo da progressão, an, é o ultimo e n é o numero de termos, tal que: n = ((an – a1) / r) + 1

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


algoritmo "Progressão Aritmética"
var
a1, an, r, sn, n:real

inicio
escreval("Calculando uma Progressão Aritmética")
escreva("Entre com o valor de a1: ")
leia(a1)
escreva("Entre com o valor de an: ")
leia(an)
escreva("Entre com o valor de r: ")
leia(r)
n <- ((an - a1)/r) + 1
sn <- ((a1 + an)/2) * n
escreval("O valor de Sn é: ", sn)

fimalgoritmo