Program Kasir UAS

program kasir;
uses crt;
    var
        no,jt,jb,tk,i : integer;
        np,kp : string;
        hs,th,st,pp,gt,by,kb : real;
       
    begin
    clrscr;
    write('No Nota :'); readln(no);
    write('Jumlah Transaksi :'); readln(jt);
    st:=0;
    for i:= 1 to jt do
        begin
            writeln;
            writeln('Transaksi ke-',i);
            write('Kode Paket :'); readln(kp);
                begin
                    if kp='B-01' then begin np:='Cheese Burger'; hs:=5500; end
                    else if kp='B-02' then begin np:='Beef Burger'; hs:=7500; end
                    else if kp='B-SPC' then begin np:='Special Burger'; hs:=11000; end
                    else if kp='P-M' then begin np:='Pizza Medium Size'; hs:=24000; end
                    else if kp='P-S' then begin np:='Pizza Small Size'; hs:=9000; end
                    else if kp='P-SPC' then begin np:='Special Pizza'; hs:=75500; end
                    else if kp='D-C' then begin np:='Soft Drink Cola'; hs:=4500; end
                    else begin np:='Soft Drink Juice'; hs:=3500;
                end;
            writeln('Nama Paket :',np);
            writeln('Harga Satuan :',hs:10:2);       
            write('Jumlah Beli :'); readln(jb);
            th:=hs*jb;
            writeln('Total Harga :',th:10:2);
            st:=st+th;
            writeln;
        end;
    end;
    writeln('Sub Total :',st:10:2);
    pp:=10/100*st;
    writeln('PPN 10% :',pp:10:2);
    gt:=st-pp;
    writeln('Grand Total :',gt:10:2);
    write('Bayar :'); readln(by);
    kb:=by-gt;
    writeln('Kembalian :',kb:10:2);
    readln;
    end.

Semoga Bermanfaat..,
email : rian_teknisi@yahoo.com
YM : rian_teknisi

Posted in: