fbpx

Converte um número decimal em binário

Converte um número decimal em binário

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on telegram
Telegram
Share on whatsapp
WhatsApp
Share on skype
Skype
Share on email
Email

Converte um número decimal em binário

function DecToBinStr(n: integer): string;
var
S: string;
i: integer;
Negative: boolean;
begin
if n < 0 then
begin
Negative := true;
end;
n := Abs(n);
for i := 1 to SizeOf(n) * 8 do
begin
if n < 0 then
begin
S := S + ‘1’;
end
else
begin
S := S + ‘0’;
end;
n := n shl 1;
end;
Delete(S,1,Pos(‘1’,S) – 1);//remove leading zeros
if Negative then
begin
S := ‘-‘ + S;
end;
Result := S;
end;

O que acha de nos pagar um Café ?

Se nosso conteúdo gratuito lhe ajudou de alguma forma em sua vida, ficamos muito felizes.

Ajude-nos a manter este site e expandir nosso trabalho, conhecendo o trabalho de nossos anunciantes ou fazendo uma doação.

Você pode doar qualquer valor  através do PagSeguro no link acima ou Aqui

Gostou do Post ? Compartilhe esta dica com seus amigos nas redes sociais.

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on telegram
Telegram
Share on whatsapp
WhatsApp
Share on skype
Skype
Share on email
Email

TALVEZ VOCÊ GOSTE TAMBÉM

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.