desenvolva um algoritmo em VisualG para converter um número decimal (entre 0 e 255) para binário e hexadecimal.
Soluções para a tarefa
Respondido por
4
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
// 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
Perguntas interessantes