Algoritmo – converte binário para decimal

Algoritmo que converte binário para decimal.

algoritmo "Binario p/ Decimal"
// Função : Converte binário para decimal
// Autor : Alexandre Ernesto
// Data : 03/12/2011
// Seção de Declaraçõe
var
x : caracter
posicao,d : inteiro
inicio
escreval("Digite um número binario :")
leia(x) //Informamos o numero binário
d <- 0  //Iniciamos a variavel d com 0
// Copia a quantida de caracteres em X e decrementa 1
 para posicao de compr(x) ate 1 passo -1 faca
  se copia(x,posicao,1)="1" entao //Verifica se o valor da possição de X é 1
   d <- d + int(exp(2,compr(x)-posicao))
  fimse                                 
 fimpara
//Informa na tela o valor decimal de X
escreval("A representação decimal de ", x, " é ", d)
fimalgoritmo

Lomadee, uma nova espécie na web. A maior plataforma de afiliados da América Latina.