Tugas praktikum delphi

kamis 20/juni/2013

kerjakan kelompok 3 orang, konsultasikan

ke pak didik

1.lengkapi dan sempurnakan program dibawah sehingga dapat digunakan untuk menghitung isi volume kubus

g2

Var …..

Procedure luas(…….):real;

Begin

L:=Alas*tinggi*lebar;

End;

{ tombol hitung}

Procedure button1_clik(…………..);

Begin

Alas:=edit1.text;

Tinggi:=edit2.text;

Lebar:=edit3.text;

Edit4.text:=L;

End;

2. Ubahlah  dengan  procedure menjadi fungsi,

program diatas  sehingga dapat digunakan untuk menghitung isi volume kubus

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: