Cara Mencari Luas & Keliling Bangun Datar Menggunakan Delphi7

Halo Kalian!

Kali ini aku akan memberikan Coding untuk mencari Luas dan Keliling Bangun Datar!

Langusng aja yah, ini dia Codingnya.....

-------------------------------------------------------------------------------------------------------------------

*Belah Ketupat*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var d1, d2, Sisi, Luas, Keliling: Real;

begin

    d1:=StrToFloat(edit1.Text);

    d2:=StrToFloat(edit2.Text);

    Luas:=(d1*d2)*0.5;

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*4;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Jajar Genjang*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var Alas, Tinggi, Sisi, Luas, Keliling: Real;

begin

    Alas:=StrToFloat(edit1.Text);

    Tinggi:=StrToFloat(edit2.Text);

    Luas:=(Alas*Tinggi);

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*2;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Layang-Layang*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var d1, d2, Sisi, Luas, Keliling: Real;

begin

    d1:=StrToFloat(edit1.Text);

    d2:=StrToFloat(edit2.Text);

    Luas:=(d1*d2)*0.5;

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*2;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

-------------------------------------------------------------------------------------------------------------------

*Lingkaran*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var radius, diameter, Luas, Keliling: Real;

begin

    radius:=StrToFloat(edit1.Text);

    diameter:=StrToFloat(edit2.Text);

    Luas:=3.14*(radius*radius);

    Keliling:=2*(3.14*radius);

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Persegi Panjang*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var Panjang, Lebar, Luas, Keliling: Real;

begin

    Panjang:=StrToFloat(edit1.Text);

    Lebar:=StrToFloat(edit2.Text);

    Luas:=Panjang*Lebar;

    Keliling:=(Panjang+Lebar)*2;

    edit3.Text:=FloatToStr(Luas);

    edit4.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Persegi*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var s,l,k:real;

begin

s:=strtofloat(edit1.Text);

l:=s*s;

k:=4*s;

edit2.Text:=floattostr(l);

edit3.text:=floattostr(k);

end;

-------------------------------------------------------------------------------------------------------------------

*Segitiga*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var Alas, Tinggi, Sisi, Luas, Keliling: Real;

begin

    Alas:=StrToFloat(edit1.Text);

    Tinggi:=StrToFloat(edit2.Text);

    Luas:=0.5*(Alas*Tinggi);

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*3;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

-------------------------------------------------------------------------------------------------------------------

*Trapesium*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var sisia, sisib, sisic, sisid, tinggi, Luas, Keliling: Real;

begin

    tinggi:=StrToFloat(edit1.Text);

    sisia:=StrToFloat(edit2.Text);

    sisib:=StrToFloat(edit3.Text);

    sisic:=StrToFloat(edit4.Text);

    sisid:=StrToFloat(edit5.Text);

    Luas:=(sisia + sisib)*tinggi*0.5;

    Keliling:=sisia+sisib+sisic+sisid;

    edit6.Text:=FloatToStr(Luas);

    edit7.Text:=FloatToStr(Keliling);

end;

-------------------------------------------------------------------------------------------------------------------

Nah itu aja untuk tombol hitungnya!

Untuk Tombol ''Hapus'' kamu bisa ketikkan Coding ini

edit1.text:=' ';

edit2.text:=' ';

edit3.text:=' ';

Dan seterusnya, tergantung ada berapa banyak ''Edit'' yang ada dalam lembar kerja kamu!

-------------------------------------------------------------------------------------------------------------------

Dan untuk tombol ''Close'' kamu hanya perlu ketikkan

Close;

-------------------------------------------------------------------------------------------------------------------

Naahhh itu aja untuk blog kali ini, semoga bermanfaat dan bisa membantu!

Klik link untuk dokumen DOWNLOAD DISINI

Terima kasih :)