Informática e Computação
Aula
Estrutura de Repetição
Réplica do Calculador Diferencial criado por
Charles Babbage –Wikipédia
Faça um algoritmo que calcule o valor de Soma,
sendo que ele é determinado pela série:
Soma = 1/1 + 2/4 + 3/9 + 4/16 + 5/25 ... + 20/400.
algoritmo "Calculo Fração Soma"
var
Numerador, Denominador : inteiro;
Soma: Real;
Numerador=1;
Denominador=Numerador ^ 2;
Soma=0;
inicio
ENQUANTO Numerador<=20 faca
Soma=Soma+Numerador/Denominador;
Numerador=Numerador+1;
Denominador=Numerador ^ 2;
FIMENQUANTO
ESCREVA ("A soma é: ",Soma);
fimalgoritmo
Faça um algoritmo que calcule o valor de
Soma, sendo que ele é determinado pela
série:
Soma = 1/1 - 2/4 + 3/9 - 4/16 + 5/25 ... - 20/400.
algoritmo "Calculo Fração Soma e Diferença"
var
Numerador, Denominador : inteiro;
Soma: Real;
Numerador=1;
Denominador=Numerador ^ 2;
Soma=0;
inicio
ENQUANTO Numerador<=20 faca
SE(Numerador mod 2=0) entao
Soma=Soma-Numerador/Denominador;
SENAO
Soma=Soma+Numerador/Denominador;
FIMSE
Numerador=Numerador+1;
Denominador=Numerador ^ 2;
FIMENQUANTO
ESCREVA ("A soma é: ",Soma);
Fimalgoritmo
Elaborar um algoritmo que apresente o
fatorial de um número inteiro.
algoritmo "Fatorial de um número"
var
Numero, Limite: INTEIRO;
Fatorial: REAL;
Numero=0;
Fatorial=1;
Inicio
escreva ("Digite um numero que deseja calcular o Fatorial: ")
leia (Limite)
ENQUANTO Numero <=Limite faça
Fatorial=Fatorial*Numero;
Numero=Numero+1;
FIMENQUANTO
ESCREVA ("A Fatorial do numero “, Limite, “ é: ",Fatorial);
Fimalgoritmo
A sequência abaixo é conhecida como série
de Fibonacci.
Faça um programa para escrever esta série
até o seu trigésimo termo.
Série de Fibonacci : 1,1,2,3,5,8,13,21,34,55,…
var
A,Proximo,N,controleP: REAL;
A=Proximo=N=1;
inicio
Escreva (A,", ");
1
ENQUANTO (N<=30) faça
Escreva (Proximo,", ");
controleP=Proximo;
Proximo=Proximo+A;
A=controleP;
N=N+1;
FIMENQUANTO
Fimalgoritmo
Elabore um algoritmo que leia n números
inteiros positivos em ordem crescente.
A leitura deve ser encerada quando um
número menor que o último número lido seja
digitado.
var
Numero, Limite, Parar: INTEIRO;
Numero=0;
Limite=0
Inicio
ENQUANTO Limite <=Numero faça
Limite=Numero
escreva ("Digite um numero em ordem crescente
para parar digite menor que o anterior: ")
leia (Numero)
FIMENQUANTO
ESCREVA ("O penúltimo numero foi : ", Limite,
" e o ultimo: ",Numero);
Fimalgoritmo
Elaborar um algoritmo para ler um número
inteiro maior do que 2 e, determinar e
escrever se o número é primo ou não
(números primos são aqueles que são
divisíveis apenas por eles mesmos e pela
unidade).
var
numero, ndiv, cont: inteiro;
inicio
numero =ndiv = 0;
cont = 1;
escreval("digite um numero a ser verificado maior que 2: ");
leia(numero)
ENQUANTO numero>= cont faça
se (numero mod cont = 0) entao
ndiv=ndiv +1
fimse
cont=cont +1;
FIMENQUANTO
se (ndiv = 2) entao
escreval("O numero",numero," é um numero primo");
senao
escreval("O numero",numero," nao é um numero primo");
fimse