algoritmo "Calculadora Binário e Decimal"
// Função : Realizar a conversão de binário para decimal e decimal para binario e fazr uma calculadora que faça as quatros operações.
// Autor :  Pedro Henrique Vitorio Grachet
// Discipina : Fundamentos da Infomática
// Curso: Redes de Computadores
// Data : 23/06/2017
// Seção de declarações de variaveis
var
   // Variavel para escolher opções
   OP_INI: inteiro
   // OPCAO_INI = Opção inicial para escolher o que deseja fazer.
//----------------------------------------------------------------------------//
   OPE: inteiro
   // OPE = Qual tipo de operação quer fazer.
//----------------------------------------------------------------------------//
   // Variaveis para decimal/binario
   BI : caracter
   NUM_DEC, DEC : inteiro
//----------------------------------------------------------------------------//
   //Variaveis para binário/decimal
   binario, conv: caracter
   decimal: real
   cont, posicao: inteiro
//----------------------------------------------------------------------------//
   // variaveis para a calculadora de binario
   RESUL_D: real
   N1D, N2D: real
   x: caractere
   y, d: inteiro
//----------------------------------------------------------------------------//
procedimento MENU()
inicio
// Seção de Comandos
// Calculo de Decimal para Binário
   escreval("----------------------------------------------------------------------------------")
   escreval("                         Calculadora de Decimal/Binário")
   escreval("----------------------------------------------------------------------------------")
   escreval(" Digite o numero correspondente para o que você deseja fazer")
   escreval("")
   escreval(" [1] Converter de Decimal par Binário")
   escreval(" [2] Converter de Binário para Decimal")
   escreval(" [3] Para calcular com numeros em Binário")
   escreval(" [4] Para Sair")
   escreval("----------------------------------------------------------------------------------")
   escreva("  Qual é sua opção?: ")
   leia(OP_INI)
   limpatela
fimprocedimento
//----------------------------------------------------------------------------//
procedimento SAIR()
inicio
   escreval("")
   escreval("Obrigado!, você escolheu fechar o aplicativo.")
   escreval("")
   escreval("Pressione [ESC] para sair ou clique no X")
   escreval("")
fimprocedimento
//----------------------------------------------------------------------------//
procedimento CONVERSOR_DB()
inicio
      escreva("Qual numero decimal você deseja converter para binario?: ")
      leia(NUM_DEC)
      DEC <- NUM_DEC
      enquanto NUM_DEC > 0 faca
      se (NUM_DEC mod 2) = 0 entao
      BI <- "0" + BI
      senao
      BI <- "1" + BI
      fimse
      NUM_DEC <- NUM_DEC div 2
      fimenquanto
      escreval("")
      escreval("A representação binária de", DEC, " é ", BI)
fimprocedimento
//----------------------------------------------------------------------------//
procedimento CONVERSOR_BD()
inicio
   escreva("Digite um número Binário: ")
   leia(binario)
   cont:=compr(binario) -1
   posicao:=1
   para cont de cont ate 0 passo -1 faca
      conv:=copia(binario;posicao,1)
      se conv = "0" entao
         decimal:=0*2^cont + decimal
      fimse
      se conv = "1" entao
         decimal:=1*2^cont + decimal
      fimse
      posicao:=posicao+1
   fimpara
   escreval("")
   escreva("O valor ",binario," na base binario, corresponde á",decimal," na base Decimal")
fimprocedimento
//----------------------------------------------------------------------------//
procedimento CALC()
inicio
   escreval("--------------------------------------")
   escreval("        Calculadora de Binario")
   escreval("--------------------------------------")
   escreval("")
   escreva("Digite o primeiro numero: ")
   leia(binario)
// Converter o primeiro termo
   cont:=compr(binario) -1
   posicao:=1
   para cont de cont ate 0 passo -1 faca
      conv:=copia(binario;posicao,1)
      se conv = "0" entao
         decimal:=0*2^cont + decimal
      fimse
      se conv = "1" entao
         decimal:=1*2^cont + decimal
      fimse
      posicao:=posicao+1
   fimpara
// Convertido
   N1D <- decimal
//RESETAR OS PAREAMETROS DO CONVERSOR
   binario <- ""
   conv <- ""
   decimal <- 0
   cont <- 0
//RESETADO
   escreval("")
   escreva("Digite o segundo numero: ")
   leia(binario)
   // Converter o segundo termo
   cont:=compr(binario) -1
   posicao:=1
   para cont de cont ate 0 passo -1 faca
      conv:=copia(binario;posicao,1)
      se conv = "0" entao
         decimal:=0*2^cont + decimal
      fimse
      se conv = "1" entao
         decimal:=1*2^cont + decimal
      fimse
      posicao:=posicao+1
   fimpara
// Convertido
   N2D <- decimal
   RESUL_D <- N2D + N1D
   escreval("o redsakfndslkfnslkdjfnslkjfsfjss é", RESUL_D)
   escreval("")
   escreva("Qual operação você ira realizar?:")
   escreval("[1] Soma")
   escreval("[2] Subtração")
   escreval("[3] Multiplicação")
   escreval("[4] Divisão Inteira")
   escreva("Digite sua opcao: ")
   leia(OPE)
   escolha(OPE)
      caso 1
         RESUL_D <- N1D + N2D
         escreva("O Resultado é", RESUL_D)
      caso 2
         RESUL_D <- N1D - N2D
         escreva("O Resultado é", RESUL_D)
      caso 3
         RESUL_D <- N1D * N2D
         escreva("O Resultado é", RESUL_D)
      caso 4
         RESUL_D <- N1D \ N2D
      outrocaso
         escreva("OPÇÂO INVALIDA!!")
   fimescolha

     // Problema esta aqui...
      d <- RESUL_D
      enquanto RESUL_D > 0 faca
      se (y mod 2) = 0 entao
      x <- "0" + x
      senao
      x <- "1" + x
      fimse
      RESUL_D <- RESUL_D div 2
      escreval("O Resultado é ", x)
     //problema esta aqui
fimprocedimento

//----------------------------------------------------------------------------//
inicio
   MENU()
   escolha(OP_INI)
      caso 1
         CONVERSOR_DB()
      caso 2
         CONVERSOR_BD()
      caso 3
         CALC()
      caso 4
         SAIR()
   fimescolha
fimalgoritmo