Buscar

Decimal para binario recursivo, serve para delphi

Código

//procedure converte Base Decimal para Binaria Recursivamente

procedure converteBB(valor:integer);
begin

if (valor div 2)<>0 // condicao de parada recursiva
then
converteBB(valor div 2);

write(valor mod 2); //impressao do valor binario

end; // fim procedimento
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 01/01/06
Por: Fabricio Antonio Coutinho
Visualizada: 5214 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009