Ola galera estou precisando resolver um exercicio,que receba um numero inteiro de 1 ate 1000,e converta este numero para binario.Utilize um vetor de 20 posições.
Inicio
tipo tbinario:vetor[1...20] de inteiro
tbinario:vbinario;
inteiro:cnt,num;
para cnt de 1 ate 20 passo 1 faça
escreva ("Digite um numero de 1 ate 1000");
leia(num);
enquanto num >0 faça
num mod2
Agora num consigo mais continuar,gostaria muita da ajuda de alguém,e como eu faço pra mostar eles,nao entendi muito vetores....
Galera quem puder me ajudar desde ja agradeçoo!!!Abraço
Coversão De Bases Com Vetores
Started By gustavocosta, 29/04/2008, 09:15
1 reply to this topic
#2
dgt
-
- Usuários
-
- 281 posts
diego^SCFC
- Sexo:Masculino
- Localidade:Recife-PE
- Interesses:Java, Delphi, PHP, SQL, Modelagem de Dados, CSS, Lógica de Programação (Algoritmos), Teoria em Banco de Dados
Posted 02/05/2008, 23:23
Para cnt de 1 Ate 20 Passo 1 Faca
Escreva("Digite um numero de 1 ate 1000: ")
Leia(num)
Se (num > 0) e (num <= 1000) Entao
tbinario[cnt] <- num MOD 2
Escreval(tbinario[cnt])
Senao
Escreval("Digite um numero entre 1 e 1000.")
FimSe
FimParaLevando-se em conta que você digita números entre 1 e 1000, o seu código nunca vai sair do laço Enquanto...
Abraço!
Edição feita por: dgt, 02/05/2008, 23:29.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
