Efetuando cálculos de porcentagem em Delphi

Cálculos de porcentagens estão presentes em boa parte das aplicações que desenvolvemos. Porém, há momentos em que a mente trava e não conseguimos lembrar com clareza como estes cálculos são feitos, principalmente em Delphi.

Esta anotação tem o objetivo de ser uma fonte de pesquisa para os momentos em que suas habilidades matemáticas insistirem em continuar ocultas.

Ex: 1 - Suponhamos que um produto que custe R$ 178,00 sofra um acréscimo de 15%. Qual o valor final do produto? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
valor, percentual, valor_final: double;
begin
valor := 178.00; // valor original
percentual := 15.0 / 100.0; // 15%
valor_final := valor + (percentual * valor);

ShowMessage('O valor final do produto é: ' +
FloatToStr(valor_final));

// O resultado será 204,70
end;


Ex: 2 - Um produto, cujo valor original era de R$ 250,00, teve um desconto de 8%. Qual foi seu valor final? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
valor, percentual, valor_final: double;
begin
valor := 250.00; // valor original
percentual := 8.0 / 100.0; // 8%
valor_final := valor - (percentual * valor);

ShowMessage('O valor final do produto é: ' +
FloatToStr(valor_final));

// O resultado será 230,00
end;


Ex: 3 - Em um concurso de perguntas e respostas, um jovem acertou 72 das 90 perguntas apresentadas. Qual foi a porcentagem de acertos? E a porcentagem de erros? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
perguntas, acertos: double;
begin
perguntas := 90.0;
acertos := 72.0;

ShowMessage('Porcentagem de acertos: ' +
FloatToStr(((acertos / perguntas) * 100)) + '%');

ShowMessage('Porcentagem de erros: ' +
FloatToStr((((perguntas - acertos) / perguntas) * 100)) + '%');

// Os resultados serão 80% e 20%
end;


Ex: 4 - Um aparelho de CD foi adquirido por R$ 300,00 e revendido por R$ 240,00. Qual foi a porcentagem de lucro na transação? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
v_ant, v_nov, p_lucro: double;
begin
v_ant := 300.0; // valor anterior
v_nov := 340.0; // valor novo
p_lucro := 0.0; // porcentagem de lucro

while(v_ant + ((p_lucro / 100.0) * v_ant) < v_nov) do
begin
p_lucro := p_lucro + 0.1;
end;

ShowMessage('A porcentagem de lucro foi de: ' +
FloatToStr(p_lucro) + '%');

// O resultado será 13,39
end;


Ex: 5 - Uma loja repassa 5% do lucro a seus vendedores. Se um produto custa R$ 70,00, qual o valor em reais repassado a um determinado vendedor? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
valor, porcent, comissao: double;
begin
valor := 70.0; // valor do produto
porcent := 5.0 / 100.0; // 5%

comissao := porcent * valor;

ShowMessage('O valor repassado ao vendedor é: ' +
FloatToStr(comissao));

// O resultado será 3,5
end;


Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.
Palavras-chaves:
cálculos, + , vendedor, habilidades, estes, 230, > Esta, um, feitos, ocultas, revendido, Os, Porém, aparelho, repassado, 80%, 15% , %, acertos?, por, dica, clareza, 90, comissao, matemáticas, erros, 15%, 204, porcentagem, 5% , seu, begin , boa, código, 2009, jovem, 72, valor; , 340, ; var , serão, 70, principalmente, ser, na, uma, CD, original , 2, mente, 8% , 1, como, <, procedure, tem, suas, 15, continuar, > , Veja, , com, das, ; , 240, anterior , +, TObject, cujo, 5 end; , trava, original, 0, conseguimos, desenvolvemos, A, teve, R$, novo , final, v_nov, concurso, Button1Click, 1; , em, compatibilidade, =, vendedor?, 3, anotação, 178, foi, 39 end; , 13, double; begin , 0; , Suponhamos, Delphi, Cálculos, Um, erros?, há, estão, e, acréscimo, 8%, lucro, ao, Sender, 5, *, usando, questões, repassa, produto , a, valor_final, presentes, TForm1, -, respostas, FloatToStr, Para, 00, 0;, 300, end; , 250, O, são, não, Porcentagem, escrita, valor, vendedores, custa, parte, esta, 8, 100, percentual, porcent, insistirem, Em, fonte, transação?, adquirido, perguntas, qual, >