Tugas Prak. Pem. Visual II Stmik dp

procedure TDiskon.Button1Click(Sender: TObject);
var a,b: integer;
    diskon, TH : real  ;

begin
a := strtoint (edit4.text);
b := strtoint (edit5.text);
diskon := 0.1 * a * b;
edit6.Text := floattostr (diskon);
TH := (a * b)- diskon;
edit7.text := floattostr (TH);
end;



procedure TDiskon.Button3Click(Sender: TObject);
begin
application.terminate;
end;

procedure TDiskon.Button2Click(Sender: TObject);
begin
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
edit4.Text := '';
edit5.Text := '';
edit6.Text := '';
edit7.Text := '';
edit1.setfocus;
end;

end.