Código Delphi [-]... var E1: Integer; E2, E3: Extended; begin E1 := StrToInt(Edit1.Text); E2 := (StrToInt(Edit2.Text) * 0.2); E3 := (E1 * E2); Edit3.Text := FormatFloat('0.00', E3); end;
... var E1: Integer; E2, E3: Extended; begin E1 := StrToInt(Edit1.Text); E2 := (StrToInt(Edit2.Text) * 0.2); E3 := (E1 * E2); Edit3.Text := FormatFloat('0.00', E3); end;