Question

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

Answer 1

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