Ir para conteúdo
Fórum Script Brasil
  • 0

BinToDec, DecToBin


HugoTessaro

Pergunta

Olá, vou postar aqui, 2 funções.

Um para converter numero binário para decimal e outra parar converter decimal para binário.

Sou iniciante em delphi, e tive esta duvida, então talvez alguma outra pessoa tambem possa ter. Por ser iniciante, nunca tinha feito uma função tão legal assim :mellow: e creio que esteja certa.

function BinToDec(valor: String): string;
var
decimal: real;
x,y:integer;
begin
decimal:=0;
y:=0;
for x:=Length(valor) DownTo 1 Do
Begin
decimal:=decimal+(StrToFloat(valor[x]))*Exp(y*Ln(2));
y:=y+1;
End;
result:=FloatToStr(decimal);
End;
function DecToBin(valor: integer): string;
var
binario: string;
begin
while valor >= 1 do
begin
binario:=IntToStr(valor mod 2)+binario;
valor:=(valor div 2);
end;
result:=binario;
end;

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...