PROCEDURE_STATUS_BARANG;
USES CRT;
VAR
STATUS_BARANG,BIASA,SEGERA,MENDESAK :STRING[25];
A,B,C:BYTE;
BEGIN
IF STATUS_BARANG="A" THEN
A :="BIASA";
IF STATUS_BARANG="B" THEN
B:="SEGERA";
ELSE
C:="MENDESAK";
END;
END.
PROCEDURE_JUMLAH_HARGA;
USES CRT;
VAR
JUMLAH_HARGA,HARGA_SATUAN,QUANTITY_BARANG:REAL;
BEGIN
JUMLAH_HARGA :=HARGA_SATUAN*QUANTITY_BARANG;
END.
PROCEDURE_TOTAL_HARGA;
USES CRT;
VAR
TOTAL_HARGA,JUMLAH_HARGA:REAL;
BEGIN
TOTAL_HARGA:=TOTAL_HARGA+JUMLAH_HARGA;
END.
PROCEDURE_STATUS_PEMBELI;
USES CRT;
VAR
DISTRIBUTOR,TOKOS:STRING[25];
STATUS_BELI:BYTE;
POTONGAN,TOTAL_HARGA,POTONGAN_JUAL:REAL;
BEGIN
IF STATUS_PEMBELI="DISTRIBUTOR" THEN
POTONGAN :=(TOTAL_HARGA*0.15);
POTONGAN_JUAL :=(TOTAL_HARGA-POTONGAN);
ELSE
POTONGAN :=(TOTAL_HARGA*0.05);
POTONGAN_JUAL :=(TOTAL_HARGA-POTONGAN);
END ;
END.
PROCEDURE_PAJAK_PENJUALAN;
USES CRT;
VAR
PAJAK_PENJUALAN,POTONGAN_JUAL:REAL;
BEGIN
POTONGAN_JUAL:=(POTONGAN_JUAL+0.15);
END.
PROCEDURE_TOTAL_JUAL;
USES CRT;
VAR
TOTAL_JUAL,PAJAK_PENJUALAN:REAL;
BEGIN
TOTAL_JUAL:=(POTONGAN_JUAL+PAJAK_PENJUALAN);
END.
KET:KODING PROGRAM PSEODOCODE INI DIAMBILDARI FAKTUR
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar