Exercício cap.2.16

16. Escreva um algoritmo que leia um valor composto 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 numero na base decimal. A conversão de binário para decimal é feita somando-se os produtos de cada número binário, por seu peso, sendo que o digito mais à direita tem peso 1 (2º), o seguinte tem 2 (2¹), 4 (2²), 8 (2³), etc. Por exemplo: 110101 é 53.
(1x32 + 1x16 + 0x8 + 1x4 + 0x2 + 1x1 = 53) 

Resposta:

1.  algoritmo "Cálculo de conversão binária para decimal"

2.  var

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

4.  inicio

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

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

7.    escreva("Digite o 1º bit ")

8.     leia(b1)

9.    escreva("Digite o 2º bit ")

10.    leia(b2)

11.   escreva("Digite o 3º bit ")

12.    leia(b3)

13.   escreva("Digite o 4º bit ")

14.    leia(b4)

15.   escreva("Digite o 5º bit ")

16.    leia(b5)

17.   escreva("Digite o 6º bit ")

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

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

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

21.   escreval("*** F I M ***")

22. fimalgoritmo