Profº Piva - Algoritmos - Exercícios 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 "Cálculo de conversão binária para decimal"

var

  b1,b2,b3,b4,b5,b6,decimal:real

inicio

  escreval("Cálculo de conversão binária para decimal")

  escreval("Digite os binários(0 ou 1) de um a um da esquerda para a direita.")

  escreva("Digite o 1º bit ")

  leia (b1)

  escreva("Digite o 2º bit ")

  leia (b2)

  escreva("Digite o 3º bit ")

  leia (b3)

  escreva("Digite o 4º bit ")

  leia (b4)

  escreva("Digite o 5º bit ")

  leia (b5)

  escreva("Digite o 6º bit ")

  leia (b6)

  decimal <- (b6*1)+(b5*2)+(b4*4)+(b3*8)+(b2*16)+(b1*32)

  escreval("Os números ",b1,b2,b3,b4,b5,b6," na base binária,")

  escreval("Equivalem a ",decimal," na base decimal.")

  escreval ("****FIM****")

fimalgoritmo