algoritmo "Conversao para números Binários"
// Função : Conversão de Decimal para Binário
// Autor : Joni Pavanello
// Data : 17/6/2009
// Seção de Declarações 
var
decimal, bin_temp       :inteiro
binario                 :caracter

inicio
      ESCREVA("Informe o número decimal: ")
      LEIA(decimal)
      bin_temp <- decimal
      enquanto decimal > 0 faca
         se (decimal mod 2)= 0 entao
            binario <- "0" + binario
         senao
            binario <- "1" + binario
         fimse
         decimal <- decimal div 2
      fimenquanto
      
      escreval("A representação binária de ", bin_temp, " é ", binario)

fimalgoritmo