Menghitung luas dan keliling persegi panjang

nama : wahyudin nur zaman
NIM : 12125633

tugas membuat program perhitungan luas persegi panjang dan keliling

kode..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    cmdhitung: TButton;
    cmdkeluar: TButton;
    txtpanjang: TEdit;
    txtlebar: TEdit;
    txtluas: TEdit;
    txtkeliling: TEdit;
    cmdinputlagi: TButton;
    Label5: TLabel;
    procedure cmdkeluarClick(Sender: TObject);
    procedure cmdhitungClick(Sender: TObject);
    procedure cmdinputlagiClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cmdkeluarClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.cmdhitungClick(Sender: TObject);

var
  panjang,lebar,luas,keliling :Integer  ;

begin
   panjang:=StrToInt(txtpanjang.Text) ;
   lebar:=StrToInt(txtlebar.Text) ;

   luas := panjang * lebar ;
   keliling:= 2 * (panjang + lebar);

   txtluas.Text:=IntToStr(luas) ;
   txtkeliling.Text:=IntToStr(keliling);

end;

procedure TForm1.cmdinputlagiClick(Sender: TObject);
begin
  txtpanjang.Text:='' ;
  txtlebar.Text:='';
  txtluas.Text:='';
  txtkeliling.Text:='';
  txtpanjang.SetFocus;
end;

end.

print screen