Achando porcentagem, e trabalhando com mutiplicação e divisão no Delphi 7

Postado Agosto 22, 2012 12 anos

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;