Decimal -> Binário

Dado um número natural na base decimal, transformá-lo para a base binária.

Exemplo: Dado 18 a saída deverá ser 10010.

program BaseBinaria;
var
  n,   {numero na base decimal}
  Bin, {numero transformado para base 2}
  q,   {dividendo}
  d,   {divisor}
  r,   {resto}
  Pot: integer;
begin
  write ('Digite um numero natural: ');
  read (n);
  q := n;
  Bin := 0;
  Pot := 1;
  while q&gt;0 do begin
                 d := q div 2;
                 r := q mod 2;
                 q := d;
                 Bin := Bin+(r*Pot);
                 Pot := Pot*10;
               end;
  writeln ('O numero ',n,' escrito na base binaria: ',Bin);
end.

program BaseBinaria;

var

n, {numero na base decimal}

Bin, {numero transformado para base 2}

q, {dividendo}

d, {divisor}

r, {resto}

Pot: integer;

begin

write ('Digite um numero natural: ');

read (n);

q := n;

Bin := 0;

Pot := 1;

while q>0 do begin

d := q div 2;

r := q mod 2;

q := d;

Bin := Bin+(r*Pot);

Pot := Pot*10;

end;

writeln ('O numero ',n,' escrito na base binaria: ',Bin);

end.

RodrigoAC

Decimal -> Binário

Deixe uma resposta Cancelar resposta

Posts Relacionados

Deixe uma resposta Cancelar resposta