Como converter de binário para decimal em VisuAlg usando o laço PARA - Lista de Exercícios Resolvidos de VisuAlg

Informe um número binário: 1100
A representação decimal do valor binário 1100 é 12

algoritmo "Converter binário em decimal em VisuAlg"

var
  // variáveis usadas na resolução do problema
  binario: caractere
  decimal, i, temp, expoente: inteiro

inicio
  // vamos ler o número binário (como um texto)
  escreva("Informe um número binário: ")
  leia(binario)

  // guarda a representação decimal
  decimal <- 0

  // inicializa o expoente
  expoente <- Compr(binario) - 1

  // vamos percorrer todos os dígitos do número binário começando do início
  para i de 1 ate Compr(binario) faca
    // converte o caractere atual para inteiro
    temp <- Caracpnum(Copia(binario, i, 1))
    decimal <- decimal + (temp * Int(Exp(2, expoente)))

    // reduz o expoente em 1
    expoente <- expoente - 1
  fimpara

  // vamos mostrar o resultado
  escreva("O valor decimal é: ", decimal)

fimalgoritmo