Código Delphi [-] var v1,v2,v3 : Real; begin v1:= StrToFloat(Edit1.Text); v2:= StrToFloat(Edit5.Text); v3:= 100; Label1.Caption := FloatToStr(v1 * v2 / v3); end;
var v1,v2,v3 : Real; begin v1:= StrToFloat(Edit1.Text); v2:= StrToFloat(Edit5.Text); v3:= 100; Label1.Caption := FloatToStr(v1 * v2 / v3); end;