CONTAGEM (2)

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

algoritmo "SIST_CONTAGEM"
var
CONTADOR, NUM_DESEJADO : REAL
CONTAGEM : CARACTERE
inicio
ESCREVAL ("********MENU*********")
ESCREVAL ("CONTAGEM CRESCENTE = C")
ESCREVAL ("CONTAGEM DECRESCENTE = D")
ESCREVAL ("SAIR DA CONTAGEM = S")
LEIA (CONTAGEM)
//
ESCOLHA CONTAGEM
CASO "C"
 ESCREVAL ("INFORME QUAL NUMERO DESEJA INICIAR A CONTAGEM")
 LEIA (CONTADOR)
 ESCREVAL ("INFORME ATÉ QUAL NUMERO DESEJA FAZER A CONTAGEM")
 LEIA (NUM_DESEJADO)
 ENQUANTO (CONTADOR <= NUM_DESEJADO ) FACA
 ESCREVAL (CONTADOR)
 CONTADOR <- CONTADOR + 1
 FIMENQUANTO
CASO "D"
 ESCREVAL ("INFORME QUAL NUMERO DESEJA INICIAR A CONTAGEM")
 LEIA (CONTADOR)
 ESCREVAL ("INFORME ATÉ QUAL NUMERO DESEJA FAZER A CONTAGEM")
 LEIA (NUM_DESEJADO)
 ENQUANTO (CONTADOR >= NUM_DESEJADO) FACA
 ESCREVAL (CONTADOR)
 CONTADOR <- CONTADOR - 1
 FIMENQUANTO
CASO "S"
 ESCREVAL ("FAVOR, SAIR DA CONTAGEM")
 OUTROCASO
 ESCREVAL ("OPÇÃO INVÁLIDA")
FIMESCOLHA
fimalgoritmo