 |
|
||||
Você está aqui: Delphi ::: Dicas & Truques ::: Matemática e Estatística |
Apostila Delphi para iniciantes - Como converter de binário para decimal usando DelphiQuantidade de visualizações: 1215 vezes |
|
Nesta dica mostrarei como desenvolver uma função personalizada em Delphi que recebe um valor binário e retorna um valor decimal (entrada como inteiro e retorno como inteiro). Veja o código Delphi completo:
function binario_decimal(binario: Integer): Integer;
var
decimal, i, resto: Integer;
begin
i := 0;
decimal := 0;
while binario <> 0 do
begin
resto := binario mod 10;
binario := binario div 10;
decimal := decimal + (resto * Floor(Power(2, i)));
Inc(i);
end;
Result := decimal;
end;
procedure TForm1.Button1Click(Sender: TObject);
Ao executar este código nós teremos o seguinte resultado: Informe um valor binário: 1100 O valor 1100 em binário é 12 em decimal. Note que usamos uma caixa de mensagem InputBox() para ler a entrada do usuário e uma mensagem ShowMessage() para mostrar o resultado. |
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
