Program Kasir Uas dengan cara Procedure

program kasir;
uses crt;
    var
        no,jt,jb,tk,i : integer;
        np,kp : string;
        hs,th,st,pp,gt,by,kb : real;
       
     procedure totalharga;
       begin
        th:=hs*jb;
        writeln('Total Harga :',th:10:2);
        end;
       
     procedure PPN;
       begin
        pp:=10/100*st;
        writeln('PPN 10% :',pp:10:2);
        end;
       
     procedure grandtotal;
       begin
        gt:=st-pp;
        writeln('Grand Total :',gt:10:2);
        end;
       
     procedure kembali;
       begin
        kb:=by-gt;
        writeln('Kembalian :',kb:10:2);
        end;
           
    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);
            totalharga;
            st:=st+th;
            writeln;
        end;
    end;
    writeln('Sub Total :',st:10:2);
    PPN;
    grandtotal;
    write('Bayar :'); readln(by);
    kembali;
    readln;
    end.

Posted in: