1. Algoritmo que receba o primeiro termo e a
razão de uma PA e liste seus 30 primeiros termos (enquanto e
repita)?
Com Repita...
algoritmo "P.A
Questão 02"
// Função : Primeiros
termos// Autor : Joanice Carrilho
// Data : 25/05/2013
// Seção de Declarações
var
n1,r,i,n:inteiro
inicio
escreval ("digite o primeiro termo e a razão")
leia(n1,r)
i<-0 repita i<-i+1 n<-n1+(i-1)*r
escreval(n) ate i>29
fimalgoritmo
Com Enquanto...
// Função : Listes seus 30 primeiros termos
// Autor : Joanice Carrilho
// Data : 25/05/2013
// Seção de Declarações
var
n1,r,i,n:inteiro
inicio
escreval ("digite o primeiro termo e a razão")
leia(n1,r)
i<-0
enquanto i<30 faca
i<-i+1
n<-n1+(i-1)*r
escreva(“n”)
fimenquanto
fimalgoritmo
NA MATEMÁTICA..
Solução
an = a1 + (n - 1)r
a10
a10 = a1 + (10 - 1)r = 1,87 + 9 . 0,004 = 1,906
S = (a1
S = (a1 + an)n/2
S = (1,87 + 1,906)10/2 = 18,88
S = (1,87 + 1,906)10/2 = 18,88
// Função : Soma dos n primeiros termos de uma P.A
// Autor : Joanice Carrilho//Data : 21/09/2014
//Seção de Declarações
var
a1, an, r, S : real
n: inteiro
inicio
// Cálculo de an, em que a1 = 1.87, r = 0.004 e n= 10
escreva (" Entre com o valor de a1:")
leia (a1)
escreva (" Entre com o valor de r:")
leia (r)
escreva (" Entre com o valor de n:")
leia (n)
// Cálculo da soma dos dez primeiros termos de uma P. A.
S <- (a1 + an)*r/2
fimalgoritmo
Calcular pa e pg: algoritmo "PA e PG"
// Função : calcular
// Autor : Jerfson silva dos santos
// Data : 28/09/2014
// Seção de Declarações
var
r,pt, nt,u,st,sn,n :real
pq:inteiro
r2,r1,tg,stp:caracter
inicio
repita
escreval(" (Pa)progressão Aritmetrica ou (Pg)Progressão Geometrica ou (s)sair?")
leia(r2)
se(r2="pa")entao
escreval("Digite (1)Termo geral da PA | (2)Soma dos termos de uma PA finita")
leia(pq)
se(pq=1)entao
escreval("Oque vc quer achar?(U)ultimo termo(p)primeiro termo(r)razao ou(nt)Numero de termos ?")
leia(r1)
se(r1="u")entao
escreval("Digite o primeiro termo |A razão |O numero de termos|")
leia(pt)
leia(r)
leia(nt)
u<-pt+(nt-1)*r
escreval("O ultimo termo é:",u)
fimse
se(r1="p")entao
escreval(" Digite o Ultimo termo|A razão |o numero de termos")
leia(u)
leia(r)
leia(nt)
pt<- u-(-nt+1)*r
escreval("O primeiro termo é:",pt)
fimse
se(r1="r")entao
escreval("Digite o primeiro termo | eo segundo termo:")
leia(pt)
leia(st)
r<-st-pt
escreval("A razão é:",r)
fimse
se(r1="nt")entao
escreval("Digite O Ultimo termo|o primeiro termo|A razão ")
leia(u)
leia(pt)
leia(r)
nt<- (u-pt+r)/r
escreval("O numero de termo é:",nt)
fimse
senao
escreval("Digite o |primeiro termo | o ultimo termo| a razão ")
leia(pt)
leia(st)
leia(r)
sn<-((pt+st)*r)/2
escreval("A soma é:",sn)
fimse
fimse
se(r2="pg")entao
escreval("(1)termo geral(2)Soma finita")
leia(pq)
se(pq=1)entao
escreval("Oque vc quer achar ? (U) ultimo termo (p)primeiro termo (r)constante Q | ?")
leia(r1)
se(r1="u")entao
escreval("Digite o primeiro termo |A razão |O numero de termos|")
leia(pt)
leia(r)
leia(nt)
u<- pt*r^(nt-1)
escreval("O ultimo termo é:",u)
fimse
se(r1="p")entao
escreval(" Digite o Ultimo termo|A razão |o numero de termos")
leia(u)
leia(r)
leia(nt)
pt<- u/(r^(nt-1))
escreval("O primeiro termo é:",pt)
fimse
se(r1="r")entao
escreval("Digite o primeiro termo | eo segundo termo:")
leia(pt)
leia(st)
r<-st/pt
escreval("A razão é:",r)
fimse
fimse
se(pq=2)entao
escreval("Digite o primeiro termo|a razão|o numero de termos")
leia(pt)
leia(r)
leia(nt)
st<-(pt*((r^nt)-1))/(r-1)
escreval("A soma finita é:",st)
fimse
fimse
ate r="s"
fimalgoritmo
algoritmo "matrizes"
// Função :
// Autor : jerfson silva dos santos
// Data : 29/09/2014
// Seção de Declarações
var
matriz: vetor [1..3,1..3] de inteiro
linha,coluna,soma:inteiro
inicio
// Seção de Comandos
para linha de 1 ate 3 faca
para coluna de 1 ate 3 faca
leia(matriz[linha,coluna])
fimpara
fimpara
soma<-0
para linha de 1 ate 3 faca
para coluna de 1 ate 3 faca
escreva(matriz[linha,coluna]:8)
soma<- soma + matriz [linha,coluna]
fimpara
escreval("")
fimpara
escreval("A soma é:",soma)
fimalgoritmo
Nenhum comentário:
Postar um comentário