Lógica de

Programação

Estrutura de Repetição – Parte 2

Comando Repita

Repita

Bloco

Ate Expressão

• O repita é bem parecido com o escolha, mas logicamente é o contrario do outro.

Revisão “ENQUANTO” Somador

algoritmo "semnome"varn, cont, s : inteiroinicio

s <- 0cont <-1enquanto (cont <= 5) faca

escreva ("digite o", cont, "º. Valor ==> ")leia (n)s <- s + ncont <- cont + 1

fimenquantoescreval ("A soma de todos os valores e ",s)

fimalgoritmo

Melhorando o Programa

Modificação Somador para melhorar

algoritmo "semnome"varn, s : inteiroresp : caractereinicio

s <- 0resp <- "S"enquanto (resp = "S") faca

escreva ("digite o Valor ==> ")leia (n)s <- s + nescreval("Você quer continuar? [S/N] ")leia (resp)

fimenquantoescreval ("A soma de todos os valores e ",s)

fimalgoritmo

Veja como ficou o Programa

Diferença das estrutura

Enquanto não arrumar o quarto facaCastigo

FimEnquanto

Liberado

Repita

Castigo

Ate Arrumar o quarto

Enquanto

Repita

Somador com Repita

algoritmo "semnome"varn, s : inteiroresp : caractereinicio

s <- 0repita

escreva ("digite o Valor ==> ")leia (n)s <- s + nescreva("Você quer continuar? [S/N] ")leia (resp)

ate (resp = "N")escreval ("A soma de todos os valores e ",s)

fimalgoritmo

Gerador de Tabuada

algoritmo "semnome"varcont, n, r,t : inteiro

inicioescreva ("Qual numero você que a tabuada?")leia (t)cont <- 1n <- trepita

r <- n * contescreval (n, " x", cont, " =", R)cont <- cont + 1

ate (cont > 10)fimalgoritmo

Contador de Negativos

algoritmo "ContaNegativos"var

n, c, totN: inteiro

inicioc <- 1totN <- 0repita

escreva ("Digite um numero: ")leia (n)

se (N<0) entaototN <- totN + 1

fimSec <- C + 1

ate (c > 5)escreval ("Foram digitados ",totN," valor (es) negativos.")

fimalgoritmo

Descobrir se é primo

• Quero um programa que descubra se o numero que digitei é um número Primo ou não!

• Lembrando que número primo é divisível por 1 e por ele mesmo

PARA , FIMPARA

Estrutura de repetiçao

Sintaxe Estrutura de Repetição

Para Variavel <- incio ate fim [passo salto] faca

Bloco

fimPara

Para C <- 1 ate 10 passo 1 faca

Escreval(C)

fimPara

Somador Exercício

algoritmo "Encontrar número primo"var

c, n, s:inteiroinicio

s <- 0para c <- 1 ate 5 faca

escreval ("Digite um valor: ")leia (n)s <- s + n

fimparaescreval ("A soma dos valores e ",S)

fimalgoritmo

ValoresPARES

algoritmo "semnome"varcont, v: inteiroinicio

escreva("Digite um valor: ")leia (v)para Cont <- 0 ate v passo 2 facaescreval (cont)fimpara

fimalgoritmo

Valores Pares Regressivo

algoritmo "semnome"varcont, v: inteiroinicio

escreva("Digite um valor: ")leia (v)se (V% 2=1) entao

v <- v-1fimsepara Cont <- v ate 0 passo -2 facaescreval (cont)fimpara

fimalgoritmo