conversão de sistemas numericos em algoritmo

algoritmo "Conversão de bases numéricas"
// Função: Converte números entre as bases 2, 8, 10 e 16.
// Autor: Adilson Junior
// Data: 04/06/2015
// Seção de Declarações

var base1, base2, cont, x1, num2, tamN : inteiro nB, nH, nO, nBOH1, num1 : caractere x2 : real

inicio escreval("Escolha a base atual do número:") escreval escreval("Base '1': BINÁRIA") escreval("Base '2': OCTAL") escreval("Base '3': DECIMAL") escreval("Base '4': HEXADECIMAL") escreval escreval("Digite a base das opções de 1 a 4: ") leia(base1) se ( base1 <> 1) e (base1 <> 2) e (base1 <> 3) e (base1 <> 4) entao escreval("Seu burro, leia o enunciado!") escreva ("Base: ") leia (base1) fimse limpatela escreval("Escolha qual será a nova base, de 1 a 4:") escreval escreval("Base '1': BINÁRIA") escreval("Base '2': OCTAL") escreval("Base '3': DECIMAL") escreval("Base '4': HEXADECIMAL") escreval escreva("BASE: ") leia(base2) se (base2 <> 1) e (base2 <> 2) e (base2 <> 3) e (base2 <> 4) entao escreval("Seu burro, leia o enunciado de novo!") escreva ("Base: ") leia (base2) fimse limpatela escreval("'1': BINÁRIA") escreval("'2': OCTAL") escreval("'3': DECIMAL") escreval("'4': HEXADECIMAL") escreval("Primeira base:", base1) escreval("Nova base:", base2) escreva("Qual número na base",base1, " passará para a base", base2, "? ") se(base1 = 1) entao leia(nBOH1) tamN <- compr(nBOH1) cont <- 0 enquanto tamN > 0 faca num1 <- copia(nBOH1; tamN, tamN) se((compr(num1)) >= 2) entao num1 <- copia(num1; 1, 1) fimse num2 <- caracpnum(num1) tamN <- tamN - 1 x2 <- x2 + ((2^cont) * num2) cont <- cont + 1 fimenquanto x1 <- int(x2) se(base1 = 2) entao enquanto x1 > 0 faca escolha x1 mod 8 caso 0 nO <- "0" + nO caso 1 nO <- "1" + nO caso 2 nO <- "2" + nO caso 3 nO <- "3" + nO caso 4 nO <- "4" + nO caso 5 nO <- "5" + nO