TUGAS MANDIRI 2

uses wincrt;

     type barang=record

     kode,nama:string;

     harga:real;

     satuan:string;

     stok:byte;  

end;

    larikbrng=array[1..15] of barang;

var bar:larikbrng;

    i,n:byte;

    ulang:char;

    x:byte;

begin

ulang:='y';

while ulang='y' do

begin

     inc(n);

     writeln('mengisi data barang ke- ',n);

     write('masukan kode barang==>');readln(bar[n].kode);

     write('masukan nama barang==>');readln(bar[n].nama);

     write('masukan harga barang==>');readln(bar[n].harga);

     write('masukan satuan==>');readln(bar[n].satuan);

     writeln;

     write('apakah ingin memasukan data barang yang lain<y/t>?');

     readln(ulang);

end;

{transaksi}

writeln('mengisi jumlah');

for i:=1 to n do

begin

     write('membeli ',bar[i].nama,' sebanyak? ');

     readln(x);bar[i].stok:=x;

end;

{cetak}

       writeln('Daftar Stok Toko Anugerah');

       writeln('----------------------------------------------------------------');

       writeln('no.   kode        nama barang harga     satuan     jumlah');

       writeln('----------------------------------------------------------------');

       for i:=1 to n do with bar[i] do

       writeln(i:3,kode:6,nama:10,harga:15:2,satuan:10,stok:8);

       writeln('-----------------------------------------------------------------')

       end.