PROGRAM KASIR PASCAL

 

program Belanja;

uses crt;

const maksimal = 25;

type

 a_real = array [1..25] of real;

var

  nama : array [1..25] of string;

  hrg, jml, tot : a_real ;

  n, x : Byte;

  grand: real;

  

begin

  clrscr;

  textcolor(11) ;

  grand := 0;

  WriteLn('pengolahan data penjualan barang');

  writeln;

  write('berapa jumlah data barang [max:25]? ') ; ReadLn(n);

  if n>maksimal then

   begin

   WriteLn('eror : maksimal jumlah data : ',maksimal);

   readln;

   halt;

   end;

  for x := 1 to n do

   begin 

   WriteLn('data ke = ', x);

   writeln;

   write ('nama barang ? ') ;readln(nama[x]) ;

   write ('harga satuan? ') ;readln(hrg[x]) ;

   Write ('jumlah terjual? ') ;readln(jml[x]) ;

   

   tot[x]:=hrg[x]*jml[x];

   

   WriteLn('total bayar = ',tot[x]:10:2);

   writeln ;

   end;

   

   WriteLn('tekan enter untuk lihat daftar...'); ReadLn;

   {laporan record yang dimaksudkan}

   clrscr;

   WriteLn('daftar penjualan barang');

   WriteLn;

           {123456789012345678901234567890123456789012345678901234}

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

   writeln('Ino I nama barang        I harga   Iqty   Itotal bayarI') ;

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

   

   for x:= 1 to n do

       begin

       write('I', x:3) ;

       write('I', nama[x] :20) ;

       write('I', hrg[x] :10:0) ;

       write('I', jml[x] :5:0) ;

       write('I', tot[x] :12:2) ;

       writeln('x') ;

       

       grand := grand + tot[x];

      end;

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

   writeln('I jumlah total bayar                :', grand :12:2,'I');

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

  readln;

end.