[Tugas] Membuat Program dengan Unsur Array dan Record di Delphi

Tugas Pemrograman Dasar : Membuat program dengan unsur array dan record.

Dosen pengampu: Afwan Anggara

Program yang akan saya buat kali ini adalah tentang suatu pembelian barang dengan memasukkan nama barang, harga barang dan jumlah beli maka akan didapat total harga yang harus di bayarkan. Program tersebut saya buat dengan menggunakan penggabungan array dan record.

Step by Step:

Buatlah desain form seperti gambar di bawah ini yang terdiri dari TLabel, TEdit, TButton dan TMemo.

Tuliskan syntax berikut pada Button1 dalam event OnClick (klik 2xButton1):

 

 

 

procedure TForm1.Button1Click(Sender: TObject);>>

type tbl_hrg = record>>

nama  : string[17]; harga : currency;>>

end;>>

type larik=array[1..100]of tbl_hrg;>>

var hrg : larik; n, i, jm : integer; total : currency;>>

begin>>

n:=strtoint(edit1.text);>>

total:=0;>>

for i := 1 to n do>>

with hrg[i] do>>

begin>>

      Memo1.Lines.add('Barang ke-'+inttostr(i));>>

      nama:=(InputBox('Nama','Nama Barang '+inttostr(i),''));>>

      Memo1.Lines.add('Nama Barang'+#9+(nama));>>

      jm:=strtoint(InputBox('Jumlah','Jumlah Barang '+inttostr(i),''));>>

      harga:=strtocurr(InputBox('Harga','Harga Persatuan ',''));>>

   Memo1.Lines.add('Harga Persatuan'+#9+'Rp. '+currtostr(harga)+',00'+'  x '>>

      +inttostr(jm)+' = '+currtostr(harga*jm));>>

      harga:= harga*jm;>>

      total:= total+harga;>>

      Memo1.Lines.add('');>>

end;>>

   Memo1.Lines.add('--------------------------------------------------------------------');>>

    Memo1.Lines.add('Total Harga'+#9+#9+'Rp. '+currtostr(total)+',00');>>

end;>>

end.>>

 Kemudian jalankan, maka akan menjadi seperti di bawah ini:

 

 

Apabila pada pernyataan ‘banyak barang’ di isi 3 maka diminta untuk memasukkan data barang (nama, jumlah beli dan harga barang).

Untuk lebih jelasnya, silakan download file berikut:

http://www.loadly.com/5itee7spkvik/Tugas_PD_3105111399.zip

Posted in: Belajar,Delphi,Pemrograman,Tugas

 

Posted in: programming