BPTT Record + Array (Progran Toko)

=====================================================================
program Toko;
uses crt;
Type
    Tdata = record
              kode    : string[10];
              nama    : string[25];
              jumlah  : integer;
              harga   : longint;
    end;
Edata = array [1..10] of Tdata;
var
   total:longint;
   E : Edata;
   x      :integer;
   ak: array [1..10] of longint;
begin
   clrscr;
   writeln;
   writeln('            Program Pembelian Barang');
   writeln('=================================================');
   writeln;
   for x:= 1 to 2 do
   begin
       writeln;
       writeln('==============================================');
       write('Masukan Kode Barang   :');readln(E[x].kode);
       write('Masukan Nama Barang   :');readln(E[x].nama);
       write('Masukan Jumlah Barang :');readln(E[x].jumlah);
       write('Masukan Harga Barang  :');readln(E[x].harga);
       writeln;
       writeln('=============================================');
   end;
   writeln;
   writeln;
   clrscr;
   total:=0;
   writeln;
   writeln('=====================================================================');
   writeln('                        DAFTAR PEMBELIAN BARANG ');
   writeln('=====================================================================');
   writeln;
   writeln('No':3,'':2,'Kode Barang':10,'':2,'Nama Barang':15,'':2,'Jumlah':4,'':2,'Harga':4,'Sub Total':10);
   writeln('----------------------------------------------------------------------');
   for x:= 1 to 2 do
   begin
     with E[x] do
     begin
       ak[x]:= harga*jumlah;
       writeln(x:3,'':2,Kode:10,'':2,Nama:15,'':2,Jumlah:4,'':2,Harga:8,'':2,ak[x]);
       total:= (harga*jumlah) + total;
     end;
     writeln;
     writeln('--------------------------------------------------------------------');
   end;
   writeln('                                                  JUMLAH : ',total);
   readln;
end.
=======================================================================

silahkan download dalam extensi :
pas download
exe download