Home » » program kasir

program kasir

Written By Unknown on Kamis, 13 November 2014 | 09.02

{NAMA :WAWAN SETIAWAN}
{NIM :C1457201011}
program kasir;
uses wincrt;
var
   kb,nb:string[50];
   h:longint;
   j,tb,jbar,jbel,d:real;
   Ul:char;
   begin
   repeat
      
        writeln('====================================');
        writeln('===========TOKO JAYA ABADI==========');
 write('Masukkan Kode Barang  : ');readln(kb);
 write('Masukkan Jumlah Barang  : ');readln(jbar);

 if (kb='A') or (kb='a') then
 begin
      nb:='Mouse';
             h:=60000;
      jbel:=jbar*h;
      d:=0.1*jbel;
      tb:=jbel-d;
      writeln('Kode Barang : ' , kb);
      writeln('Nama Barang   : ' ,nb);
      writeln('Harga Barang  : Rp.',h);
      writeln('Jumlah Barang : ',jbar:0:0,' Buah');
      writeln('Jumlah Belanja  : Rp.',jbel:0:0);
      writeln('Diskon  10 %      = Rp.',d:0:0);
      writeln('Total Belanja : Rp.',tb:0:0);
    end;
 if (kb='B') or (kb='b') then
 begin
      nb:='Flashdisk';
             h:=150000;
      jbel:=jbar*h;
      d:=0.1*jbel;
      tb:=jbel-d;
      writeln('Kode Barang : ',kb);
      writeln('Nama Barang   : ' ,nb);
      writeln('Harga Barang  : Rp.',h);
      writeln('Jumlah Barang : ',jbar:0:0,' Buah');
      writeln('Jumlah Belanja      Rp.',jbel:0:0);
      writeln('Diskon  10 %      = Rp.',d:0:0);
      writeln('Total Belanja     Rp.',tb:0:0);
    end;
 if (kb='C') or (kb='c') then
 begin
      nb:='Card Reader';
             h:=115000;
      jbel:=jbar*h;
      d:=0.1*jbel;
      tb:=jbel-d;
      writeln('Kode Barang : ',kb);
      writeln('Nama Barang   : ' ,nb);
      writeln('Harga Barang  : Rp.',h);
      writeln('Jumlah Barang : ',jbar:0:0,' Buah');
      writeln('Jumlah Belanja      Rp.',jbel:0:0);
      writeln('Diskon  10 %      = Rp.',d:0:0);
      writeln('Total Belanja       Rp.',tb:0:0);
    end;
 if (kb='D') or (kb='d') then
 begin
      nb:='Keyboard';
             h:=75000;
      jbel:=jbar*h;
      d:=0.1*jbel;
      tb:=jbel-d;
      writeln('Kode Barang : ',kb);
      writeln('Nama Barang   : ' ,nb);
      writeln('Harga Barang  : Rp.',h);
      writeln('Jumlah Barang : ',jbar:0:0,' Buah');
      writeln('Jumlah Belanja      Rp.',jbel:0:0);
      writeln('Diskon 10 %       = Rp.',d:0:0);
      writeln('Total Belanja       Rp.',tb:0:0);
    end;
 if (kb='E') or (kb='e') then
 begin
      nb:='Speaker';
             h:=70000;
      jbel:=jbar*h;
      d:=0.1*jbel;
      tb:=jbel-d;
      writeln('Kode Barang : ',kb);
      writeln('Nama Barang   : ' ,nb);
      writeln('Harga Barang  : Rp.',h);
      writeln('Jumlah Barang : ',jbar:0:0,' Buah');
      writeln('Jumlah Belanja      Rp.',jbel:0:0);
      writeln('Diskon 10 %      =  Rp.',d:0:0);
      writeln('Total Belanja       Rp.',tb:0:0);
    end;
           write('apakah anda ingin membeli lagi? [Y/T] :');readln(Ul);
           Until upcase(Ul) <> 'Y';  
end.

0 komentar :

Posting Komentar