Cara mengerjakanya dengan program turbo pascal
Sebuah
supermarket melakukan bagi-bagi hadiah jika pelanggan melakukan pembelian
dengan rincian sebagai berikut :






Kriteria


Bonus




Total 500.000 diatas 500.000


Diskon 10 %




Total 250.000 diatas 250.000


2 Mangkok Besar




Total 100.000 diatas 100.000


1 Piring




Total dibawah 100.000


Tidak ada bonus

1

Jawabanmu

2014-05-26T18:29:35+07:00

Ini adalah Jawaban Tersertifikasi

×
Jawaban tersertifikasi mengandung isi yang handal, dapat dipercaya, dan direkomendasikan secara seksama oleh tim yang ekspert di bidangnya. Brainly memiliki jutaan jawaban dengan kualitas tinggi, semuanya dimoderasi oleh komunitas yang dapat dipercaya, meski demikian jawaban tersertifikasi adalah yang terbaik dari yang terbaik.
PROGRAM minimarket_ilkom; {untuk tugas praktikum}
USES crt;
VAR    sabun,bedak,telur,permen,gula,jsabun,jbedak,jtelur,jpermen,jgula,ssabun : real;
sbedak,stelur,spermen,sgula,diskon,stotal,total : real;
CONST  pdiskon : real = 0.1 ;


BEGIN
  clrscr;
  writeln   ;
  textcolor(red);
  writeln   ('      |---------------------- MINIMARKET ILKOM ----------------------|');
  textcolor(7);
  writeln   ('      |--------------------------------------------------------------|');
  writeln   ('      | No |  Barang |       Harga      | Jumlah |     Subtotal      |');
  writeln   ('      |--------------------------------------------------------------|');
  writeln   ('      |  1 |  Sabun  | Rp.              |        | Rp.               |');
  writeln   ('      |  2 |  Bedak  | Rp.              |        | Rp.               |');
  writeln   ('      |  3 |  Telur  | Rp.              |        | Rp.               |');
  writeln   ('      |  4 |  Permen | Rp.              |        | Rp.               |');
  writeln   ('      |  5 |  Gula   | Rp.              |        | Rp.               |');
  writeln   ('      |--------------------------------------------------------------|');
  writeln   ('      |---------------------------------| Diskon : Rp.               |');
  writeln   ('      |---------------------------------| Total  : Rp.               |');
  Writeln   ('      |--------------------------------------------------------------|');
  textcolor (green);
  gotoXY    (28,6);    {sabun}
  readln    (sabun);
  gotoXY    (43,6);
  readln    (jsabun);
  ssabun:=sabun*jsabun;
  gotoXY    (56,6);
  writeln   (ssabun:0:2);
  gotoXY    (28,7);     {bedak}
  readln    (bedak);
  gotoXY    (43,7);
  readln    (jbedak);
  sbedak:=bedak*jbedak;
  gotoXY    (56,7);
  writeln   (sbedak:0:2);
  gotoXY    (28,8);     {telur}
  readln    (telur);
  gotoXY    (43,8);
  readln    (jtelur);
  gotoXY    (56,8);
  stelur:=telur*jtelur;
  writeln   (stelur:0:2);
  gotoXY    (28,9);     {permen}
  readln    (permen);
  gotoXY    (43,9);
  readln    (jpermen);
  spermen:=permen*jpermen;
  gotoXY    (56,9);
  writeln   (spermen:0:2);
  gotoXY    (28,10);    {gula}
  readln    (gula);
  gotoXY    (43,10);
  readln    (jgula);
  sgula:=gula*jgula;
  gotoXY    (56,10);
  writeln   (sgula:0:2);
  stotal:=ssabun+sbedak+stelur+spermen+sgula;
  diskon:=pdiskon*stotal;
  total:=stotal-diskon;
  gotoXY    (56,12);
  writeln   (diskon:0:2);
  gotoXY    (56,13);
  writeln   (total:0:2);


  readkey
END.



silahkan modifikasi ya,,,
ini hanya contoh saja