Alg1 - Capítulo 2- 16 Escreva um algoritmo que leia um valor composto apenas de 0’s e 1’s representando um número na base binária (com até 6 dígitos ou bits). O algoritmo deve escrever esse mesmo número na base decimal. A conversão de binário para decimal é feita somando –se os produtos de cada digito do número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2°), o seguinte tem peso 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo 110101 é 53 . (1x32 + 1x 16 + 0x8 + 1x4 + 0x 2 + 1x1 = 32 + 16 + 0 + 4 + 0 + 1 = 53)

algoritmo "Binário para Decimal"
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações
var
     binario,decimal,n1,n2,n3,n4,n5,n6: numerico
inicio
// Seção de Comandos
   escreval("Entre com o número em binário, digitando cada um e apertando enter")
   leia(n1,n2,n3,n4,n5,n6)
   decimal<- ((n6*(2^0))+(n5*(2^1))+(n4*(2^2))+(n3*(2^3))+(n2*(2^4))+(n1*(2^5)))
   escreva("O número em decimal é: ",decimal)
fimalgoritmo