Achando porcentagem no Delphi 7

Boa tarde galerinha, estou aqui para mais um tutorial, vou ensinar a achar porcentagem no delphi, Mãos a obra!

Introdução:

Mas teóricamente falando, como iremos achar a porcentagem?

Digamos que você tem um valor (Exp: 250), e você quer achar o equivalente a 35% do valor, para achar no papel fariamos assim:

250 * 35 = 8750

8750 / 100 = 87,5;

Ou seja, 35% de 250 é equivalente a 87,5.

Ok já entendi, mas como vou usar isso no delphi?

Simplesmente assim:

var

v1: integer;

v2: integer;

v3: integer;

begin

end;

Esses (v1, v2, v3) serão nossos códigos para realizar as operações matemáticas no delphi, integer significa que eles tem valor numérico. Vamos fazer uma conta no delphi que retorne para uma label, a porcentagem de certo valor. Para isso iremos adicionar 2 Edits, 1 Button, 4 Labels. E deixe seu form parecido com este:

Código:

No button coloque o seguinte código:

procedure TForm1.Button1Click(Sender: TObject);
var
v1: integer;
v2: integer;
v3: integer;
v4: integer;
begin
v1 := StrToInt(Edit1.Text);
v2 := StrToInt(Edit2.Text);
v3 := (v1*v2);
v4 := (v3 Div 100);
Label4.Caption := IntToStr(v4);
end;

Entendendo o código:

StrToInt - Transforma o valor de String(Texto) para Integer(Numérico);

v1*v2 - Mutiplicação dos valores referente a v1 e v2;

v3 Div 100 - Divisão do valor gerado em v3 por 100.

E funcionou?

Claro que sim! Tudo funcionando, agora você já sabe trabalhar com mutiplicação e divisão, além de achar porcentagem pelo delphi 7.

Obrigado pela visita, e volte sempre!