Program Menggunakan Arary dan Record

18.35 | Label: About IT, Downloads

Pemrograman Dasar - Tugas Mandiri 2
Kode program menggunakan array dan record untuk input data barang dan menampilkan hasil input dalam tabel daftar barang.

Syntax Program :
-------------------------------------------------------------------------------------------------

program dewi_kusuma;

uses wincrt;

type tb_barang = record

                   kode_brg : string;

                   nama_brg : string;

                   jml_brg  : longint;

                   hrg_beli : longint;

                   hrg_jual : longint;

                 end;

var barang   : array [1..50] of tb_barang;

    i,n      : integer;

    tot_brg,jml_beli,jml_jual,tot_beli,tot_jual,untung : longint;

procedure input_barang;

begin

     for i:=1 to n do

          with barang[i] do

          begin

               writeln ('Barang ',i);

               write ('Kode Barang       : ');

               readln (kode_brg);

               write ('Nama Barang       : ');

               readln (nama_brg);

               write ('Jumlah Barang     : ');

               readln (jml_brg);

               write ('Harga Beli Satuan : ');

               readln (hrg_beli);

               write ('Harga Jual Satuan : ');

               readln (hrg_jual);

               writeln;

               tot_brg:=tot_brg+jml_brg;

               jml_beli:=jml_brg*hrg_beli;

               jml_jual:=jml_brg*hrg_jual;

               tot_beli:=tot_beli+jml_beli;

               tot_jual:=tot_jual+jml_jual;

               untung:=tot_jual-tot_beli;

          end;     

end;

procedure tampil_data;

begin

     writeln (' ------------------------**** DAFTAR STOK BARANG ****------------------------');

     writeln;

     writeln ('  ____________________________________________________________________________');

     write ('KODE':7);

     write ('NAMA BARANG':16);

     write ('JUMLAH':16);

     write ('HARGA BELI':18);

     writeln ('HARGA JUAL':20); 

     writeln ('  ____________________________________________________________________________');

     for i:=1 to n do

         with barang[i] do

         begin

              writeln (kode_brg:6,nama_brg:15,jml_brg:16,hrg_beli:18,hrg_jual:20);

              writeln ('  ____________________________________________________________________________');

         end;

end;

begin

     writeln (' -------------------------**** INPUT STOK BARANG ****-------------------------');

     writeln;

     write ('Jumlah Barang : ');

     readln (n);

     writeln;

     input_barang;

     clrscr;

     tampil_data;

     writeln;

     writeln ('  Total Barang     : ',tot_brg);

     writeln ('  Total Pembelian  : ',tot_beli);

     writeln ('  Total Penjualan  : ',tot_jual);

     writeln ('  Keuntungan       : ',untung);

     writeln;

     writeln;

     writeln ('                                              Created by :');

     writeln ('                                              Dewi Kusuma Wardani | 3105111338');

end.