Program Delphi Menghitung Luas Persegi Panjang

Assalamu'alikum wr.wb.

Desain Formnya menghitung luas Persegi Panjang dengan Delphi adalah sebagai berikut:

Baris Program botton1 untuk hitung, botton2 untuk reset, dan button3 untuk tutup :

procedure TForm1.Button1Click(Sender: TObject);

var Panjang, Lebar, Luas : Real;

begin

     //baca panjang dan lebar

   Panjang := StrToFloat(edit1.Text);

   Lebar := StrToInt(edit2.Text);

   //hitung luas

   Luas := Panjang * Lebar;

   //tampilkan luas

   edit3.Text := FloatToStr(Luas);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

    edit1.Text := '';

    edit2.Text := '';

    edit3.Text := '';

    edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Close;

end;

end.

Tampilan

Sekian yang dapat saya sampaikan tentang delphi program menghitung luas persegi panjang, semoga bermanfaat. Wassalamu'alikum wr.wb.

Program menghitung volume tabung