Membuat program toko dengan pascall

hallo programmer. . .
kali ini saya mau sharing source code dan aplikasi untuk kebutuhan toko, untuk menghitung harga total pembelian dan juga diskonnya.
bisa di edit sesuai selera di source code nya, tapi di aplikasi tidak saya adakan diskonnya.

• source code
  
  uses crt;
  var
  banyak, beli, bayar :real;
  total, discon :real;
  i :integer;
  lagi :char;
  label awal;
  begin
  awal:
  begin
  clrscr;
  gotoxy(20,3); write('------------------------------');
  gotoxy(20,4); write('SELAMAT DATANG DI TOKO HANNAN');
  gotoxy(20,5); write('_______________________________);
  gotoxy(20,8); write('Berapa banyak barang yang di beli ?'); readln(banyak);
  i:=0;
  total:=0; discon:=0;
  while i <banyak do
  begin
  i:=i+1;
  gotoxy(20,10+i); write('HARGA BARANG KE',i,':'); readln(beli);
  total:=total+beli;
  end;
  if beli >=100000000 then discon:=beli*0.1;
  writeln;
  bayar:=total-discon;
  gotoxy(30,15+i); write('---------------');
  gotoxy(30,16+i); writeln('TOTAL  :',total:10:0);
  gotoxy(30,17+i); writeln('DISKON :',discon:10:0);
  gotoxy(30,18+i); writeln('BAYAR  :',bayar:10:0);
  gotoxy(20,21+i); write('apakah ingin menghitung lagi [y/n] ?'); readln(lagi);
  if lagi:='y' then
  goto awal;
  end;
  end.
  

gimana ? sangat mudah bukan ? untuk diskon saya berikan ada diskon jika pembelian melebih 100jt maka diskon akan jadi 0.1. silahkan edit sesuai kebutuhan.
jika ingin aplikasinya silahkan di download di link bawah.

Download Disini

semoga bermanfaat. terima kasih. . .

Share

Like

G+

Tweet

Tweet