algoritmo "BintoDec"
// Função : Conversão de números binários em decimais
// Autor : Joni Pavanello
// Data : 26/6/2009
// Seção de Declarações 
var
   i        : inteiro
   bin      : caracter
   numV     : inteiro
   num      : vetor[100] de inteiro
   posicao  : inteiro
   decimal  : inteiro
   expoente : inteiro
   
inicio
   ESCREVA("Informe o número binário para conversão: ")
   LEIA(bin)
   numV <- compr(bin)
   expoente <- 0
   decimal  <- 0
   
   PARA i<-1 ATE numV FACA
      posicao <- NumV - i + 1
      SE COPIA(bin,posicao,1) = "1" ENTAO
         decimal <- decimal + int(exp(2, expoente))
      FIMSE
      expoente <- expoente + 1
   FIMPARA
   ESCREVA("O valor decimal do binário ", bin, " é: ",decimal)
fimalgoritmo