GV1IFV4-2015-11

Prévia do material em texto

Algoritmo Questão_1
Início
Variáveis
Inteiro n;
Real q, a1, Sn, num, den;
fim-variáveis
Escreva("Entre com a razão (diferente de 1):");
Leia(q);
Escreva("Entre com o termo inicial:");
Leia(a1);
Escreva("Forneça o número de termos:");
Leia(n);
Se (q==1.0) OU (q==0.0) OU (a1==0.0) OU (n<1) então
Escreva(“Dados errados”);
Senão
início-senão
num = pot(q,n) - 1.0;
den = q - 1.0;
Sn = num / den;
Sn = a1 * Sn;
Escreva("A soma dos termos da progressão geométrica finita é:",Sn);
fim-senão
Fim
Algoritmo Questão_2
Início
Variáveis
Inteiro n, f1, f2, k, fib, soma, cont;
Real media;
fim-variáveis
Escreva("Forneça a quantidade de termos:");
Leia(n);
f1 <- 0;
f2 <- 1;
soma <- 0;
cont <- 0;
Se (n>1) então
inicio-se
Para k <- 1 até n passo 1 faça
fib <- f1 + f2;
f2 <- f1;
f1 <- fib;
Se (fib mod 2 != 0) então
soma <- soma + fib;
cont <- cont + 1;
media <- soma / cont;
fim-se
Senão
Se (n==0)ou(n==1) então
Escreva("Erro na quantidade de termos");
Escreva("A média é:", media);
Fim
Algoritmo Questão_3
Início
Variáveis
Inteiro n, k, fat;
Real x, exp, num, A,soma;
fim-variáveis
soma <- 0.0;
Escreva("Forneça o valor x:");
Leia(x);
Repita
Escreva("Forneça o número de termos");
Leia(k);
até(k>0;)
Para n <- 1 até k passo 1 faça
inicio-para
Para i <- 1 até n passo 1 faça
inicio-para
Se ( i== 1 ) então
fat <- 1;
Senão
fat <- fat * i;
fim-para
num <- pot(x,n);
A <- num / fat;
soma <- soma + A;
fim-para
Escreva("Exponencial de x:", soma);
Fim
Algoritmo Questão_4
Início
Variáveis
Inteiro a, b, c;
fim-variáveis
Escreva (“Forneça um número inteiro”);
Leia(a);
Escreva (“Forneça outro número inteiro”);
Leia(b);
Se ((a!=0) e (b!=0)) então
Enquanto (b != 0) faça
t <- b;
b <- a mod b;
a <- t;
Escreva("O máximo divisor comum é:", a);
Senão
Escreva("Número fornecido igual a zero");
Fim