Sabtu, 23 Mei 2009

CONTOH DARI PSEODOCODE FAKTUR

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

Tidak ada komentar:

Posting Komentar