SCONTADOR (exemplo de repita) (4)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

algoritmo "SContador"
var
 opcao, Cont: Inteiro
inicio
 Repita
 EscrevaL(" M E N U ")
 EscrevaL(" 1- De 1 a 10 ")
 EscrevaL(" 2- De 10 a 1 ")
 EscrevaL(" 3- Sair ")
 Leia(opcao)
 Escolha opcao
 Caso 1
 Cont <- 1
 Repita
 Escreva (Cont, "..")
 Cont <- Cont + 1
 Ate (Cont > 10)
 Caso 2
 Cont <- 10
 Repita
 Escreva (Cont, "..")
 Cont <- Cont - 1
 Ate (Cont < 1)
 Caso 3
 EscrevaL("SAINDO...")
 Caso 4
 EscrevaL("INVALIDO!")
 FimEscolha
 Ate (opcao = 3)
fimalgoritmo