Informática e Computação
Aula
Estrutura de Repetição
Réplica do Calculador Diferencial criado por
Charles Babbage –Wikipédia
Informática e Computação
Estrutura de Repetição
Aprender:
• Como vincular a repetição de
blocos à condições
• Quando utilizar cada uma das
estruturas disponíveis
Estrutura ENQUANTO na prática!
Para entender na prática como usamos essa
estrutura de repetição, vejamos um exemplo de
algoritmo utilizando a ferramenta VisuAlg. Vamos
implementar um algoritmo para somar valores até o
usuário digitar o valor 0. Ou seja, vamos somar
todos os valores que o usuário digitar, porém
quando ele digitar 0 o “loop” acaba, a cada iteração
do loop vamos apresentar o resultado atual da
soma.
Algoritmo Soma Enquanto Valor Diferente De 0
var
valorDigitado : REAL;
soma : REAL;
inicio
soma = 0;
ESCREVA ("Digite um valor para a soma diferente de 0 : ");
LEIA (valorDigitado)
ENQUANTO valorDigitado <> 0 FAÇA
soma = soma + valorDigitado;
ESCREVAL ("Total: ", soma);;
ESCREVA ("Digite um valor para a soma diferente de 0 :");
LEIA (valorDigitado)
FIMENQUANTO
ESCREVAL ("Resultado: ", soma);
Fimalgoritmo
inicio
soma := 0;
ESCREVA ("Digite um valor para a soma diferente de 0 : ");
LEIA (valorDigitado)
ENQUANTO valorDigitado <> 0 FACA
soma := soma + valorDigitado;
ESCREVAL ("Total: ", soma);
ESCREVA ("Digite um valor para a soma diferente de 0 : ");
LEIA (valorDigitado)
FIMENQUANTO
ESCREVAL ("Resultado: ", soma);
Fimalgoritmo
Observe o resultado deste algoritmo
Digite um valor para a soma diferente de 0 : 7
Total : 7
Digite um valor para a soma diferente de 0 : 3
Total : 10
Digite um valor para a soma diferente de 0 : 5
Total : 15
Digite um valor para a soma diferente de 0 : 10
Total : 25
Digite um valor para a soma diferente de 0 : 0
Resultado : 25
Desenvolver um algoritmo que efetue a soma
de todos os números ímpares que são
múltiplos de três e que se encontram no
conjunto dos números de 1 até 500.
Var
numero, soma: inteiro;
numero=1;
soma=0;
inicio
ESCREVA ("Soma dos numeros impares multiplos de 3
de 1 ate 500:");
ENQUANTO numero >= 1 e numero<=500 faca
se(numero mod 3=0)entao
soma = soma+numero;
fimse
numero=numero+1;
FIMENQUANTO
ESCREVA ("Soma dos numeros impares = ", soma);
fimalgoritmo
Elabore um algoritmo que apresente os
quadrados de dos número inteiros de 1 a 100.
Var
numero, quadrado : inteiro;
numero=1;
quadrado=0;
inicio
ESCREVA ("Quadrado dos número inteiro de 1 a 100");
ENQUANTO numero<=100 faca
quadrado=numero^2;
ESCREVA ("Quadrado do número ", numero " é = ",
quadrado);
numero = numero + 1;
FIMENQUANTO
fimalgoritmo
Elabore um algoritmo que mostre o resultado da tabuada de
um número inteiro qualquer. O formato deve ser
Exemplo, para o número 2:
Tabuada do 2
2X1=2
2X2=4
2X3=6
2X4=8
2 X 5 = 10
2 X 6 = 12
2 X 7 = 14
2 X 8 = 16
2 X 9 = 18
2 X 10 = 20
algoritmo "Tabuada"
A,B, multiplicacao : inteiro;
A = 1;
B = 0;
inicio
ESCREVA ("digite o nº da tabuada desejada: ");
LEIA (B)
ESCREVA ("Tabuada do : ", B);
ENQUANTO A <=10 FACA
multiplicacao = B*A;
ESCREVA (B," X",A," =", multiplicacao);
A = A+1;
FIMENQUANTO
fimalgoritmo
Escreva um algoritmo que leia um
número n e imprima todos os múltiplos
de 3.
no intervalo de 1 a n.
Var
numero, sequencia: inteiro;
numero=0;
sequencia=1;
inicio
ESCREVA ("Digite ate que valor quer ver os multiplos de 3: ");
LEIA (numero)
ESCREVA ("Numeros multiplos de 3 de 1 ate ", numero);
ENQUANTO sequencia >= 1 e sequencia<=numero faca
se(sequencia mod 3=0)entao
ESCREVA (sequencia);
fimse
sequencia=sequencia+1;
FIMENQUANTO
fimalgoritmo