Minggu, 24 Mei 2009
CONTTOH DARI DOKUMEN MASUKAN(OUTPUT INTERNAL)
KET:DATA DIAMBIL BERDASARKAN FAKTUR 001
KET:DATA DIAMBIL DARI GOOGLE
KET:DATA DIAMBIL DARI GOOGLE
KET:DATA YANG DIAMBIL BUKAN DARI PT BSI
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
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
Jumat, 22 Mei 2009
CONTOH DARI BAGAN TERSTRUKTUR FAKTUR
Minggu, 19 April 2009
CONTOH DIAGRAM GLOBAL
CONTOH DIAGRAM NOL
Senin, 06 April 2009
CONTOH DARI DATA FLOW DIAGRAM
Langganan:
Postingan (Atom)