Tugas Prak. Pemrogaman VIsual II (Kurs)

procedure TForm1.Button1Click(Sender: TObject);

var i,j,hasil: integer;

begin
i:=strtoint(edit1.text);
j:=strtoint(edit2.text);
hasil:= i div j;
edit3.text:=inttostr(hasil);
end;



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

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit1.Setfocus;
end;

end.