Exercício cap.2.12

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

( 2,3 )

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

( 2,4 )


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


Resposta:

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

2.  var

3.    a1,an,r,sn,n:real

4.  inicio

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

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

7.    leia (a1)

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

10.   leia (an)

11.   escreva("Digite o valor de r  ")

12.   leia (r)

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

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

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

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

17. fimalgoritmo