Baixe o app para aproveitar ainda mais
Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
algoritmo "Decimal para Outras Bases" // Função : // Autor : // Data : 14/4/2003 // Seção de Declarações Var opcao, res : caracter digitos : vetor[1..16] de caracter valor, J : inteiro funcao menu : caracter var opcao : caracter inicio limpatela escreval( "Programa de Conversão de Bases") escreval( "Da Base 10 para Binária, Octal ou Hexa") escreval( "--------------------------------------") escreval escreval( "Opções") escreval( " B - Binária") escreval( " O - Octal") escreval( " H - Hexa") escreval( " F - Fim") escreval repita escreva("Escolha uma base : ") leia(opcao) ate (Opcao = "F") ou (Opcao="B") ou (Opcao="O") ou (Opcao="H") retorne opcao fimfuncao inicio // Seção de Comandos repita escolha menu caso "B" caso "O" caso "H" fimescolha se Opcao <> "F" entao escreva("Tecle ENTER para continuar") leia(res) limpatela fimse ate Opcao = "F" fimalgoritmo
Compartilhar