Question

desenvolva um algoritmo em VisualG para converter um número decimal (entre 0 e 255) para binário e hexadecimal.

Answer 1

Algoritmo "semnome"
// Disciplina  :  [Linguagem e Lógica de Programação]
// Professor   : Nome do(a) professor(a)
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : Data atual
Var
// Seção de Declarações das variáveis
x : caracter
y,d : inteiro

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreva("Entre com um número Decimal :")
leia(y)
d <- y
enquanto y > 0 faca
se (y mod 2) = 0 entao
x <- "0" + x
senao
x <- "1" + x
fimse
y <- y div 2
fimenquanto
           escreval("A representação binária de", d, " é ", x)

escreva("Entre com um número Decimal novamente :")
leia(y)
d <- y
se y < 0 entao
   y <- 65536 + y
fimse
enquanto y > 0 faca
   escolha y mod 16
   caso 0
      x <-  "0" +  x
   caso 1
      x <-  "1" +  x
   caso 2
      x <-  "2" +  x
   caso 3
      x <-  "3" +  x
   caso 4
      x <-  "4" +  x
   caso 5
      x <-  "5" +  x
   caso 6
      x <-  "6" +  x
   caso 7
      x <-  "7" +  x
   caso 8
      x <-  "8" +  x
   caso 9
      x <-  "9" +  x
   caso 10
      x <-  "A" +  x
   caso 11
      x <-  "B" +  x
   caso 12
      x <-  "C" +  x
   caso 13
      x <-  "D" +  x
   caso 14
      x <-  "E" +  x
   caso 15
      x <-  "F" +  x
   fimescolha
   y <- y div 16
fimenquanto
escreval( "A representação hexadecimal de", d, " é ", x," em Hexadecimal")
fimalgoritmo