Menghitung Luas dan Keliling Persegi Panjang Mengunakan Program Delphi

Artikel ini dibuat untuk memenuhi tugas mata kuliah Logika dan algoritma 2

Nama  : Silvia Natalia
Kelas  : 12.4C.06
NIM   : 12123838

Tugas ke-1

 Menghitung Luas dan keliling persegi panjang sangatlah mudah jika mengunakan rumus matematika biasa. dimana rumusnya adalah :

Luas = Panjang (P) x Lebar (l)

Keliling = 2 x ( Panjang(P) + Lebar(l))

sedangkan yang diminta disini adalah menghitung luas dan keliling persegi panjang mengunakan program delphi. berikut ini adalah langkah-langkah yang harus dilakukan untuk membuat progam tersebut.


1. Buat komponen-komponen di bawah ini

Hingga menjadi seperti di bawah ini :

2. sekarang kita beralih untuk membuat coddingannya, yang pertama kita button satu dan masukan codding seperti di bawah ini :

 

procedure TForm1.Button1Click(Sender: TObject);

var

p, lb, k: integer;

l: real;

begin

p := strtoint(panjang.Text);

lb := strtoint(lebar.Text);

k := (2*p+lb);

keliling.Text := floattostr(k);

l := (p*lb);

luas.Text := floattostr(l);

end;

3. Double Klik button2 lalu ketikkan kode berikut :

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

Itulah tadi langkah-langkahnya. selamat mencoba.