Progressão aritmética e soma dos termos de uma PA

Prévia do material em texto

Algoritmo "semnome"
// Disciplina : [Linguagem e Lógica de Programação]
// Professor : Antonio Carlos Nicolodi 
// Descrição : Calcular PA e Soma dos números de uma PA
// Autor(a) : Vanessa de Aguiar
// Data atual : 06/10/2022
Var
an, a1, n, r,sn: real;
sn1, sn2: real;
Inicio
escreval ("Olá amiguinho, vamos calcular a PA")
escreval("Qual o valor do primeiro termo?")
leia (a1)
escreval ("Qual a quantidade de termos dessa PA?")
leia (n)
escreval ("Qual é a razão dessa PA?")
leia (r)
an <- a1+(n-1).r
escreval ("O termo procurado é:",an)
// Agora vamos somar os termos
sn <- (a1+an)*n
sn1 <- sn / 2
escreval ("A soma dos termos dessa PA é igual a:",sn1)
Fimalgoritmo