Program Daftar Gaji

Soal:
1.input terdiri dari NIP,NAMA,STATUS,GAJI POKOK
2.proses berakhir jika NIP berisi simbol /*
3.untuk gaji pokok <= 500000 maka tidak dikenakan pajak
4.untuk gaji pokok > 500000 dikenakan pajak dihitung berdasarkan 10% * (gaji pokok - 500000)
5.bagi karyawan dengan status "kawin" diberikan tambahan tunjangan keluarga 100000
6.Gaji bersih dihitung = gaji pokok - pajak + tunjangan keluarga
7.Diakhir laporan hitung total gaji bersih
Buatlah flowchart dan program basic beserta outputnya!

Untuk flowchartnya seperti ini:

Dibawah adalah program basicnya :

5 CLS

10 PRINT TAB(30); "DAFTAR GAJI"

20 PRINT TAB(2); "_____________________________________________________________________"

30 PRINT TAB(2); "NO"; TAB(6); "NIP"; TAB(16); "NAMA"; TAB(30); "STATUS"; TAB(38); "GAJI POKOK"; TAB(50); "PAJAK"; TAB(60); "GAJI BERSIH"

40 PRINT TAB(2); "_____________________________________________________________________"

50 NO = 0: PJ = 0: GB = 0: TB = 0

60 READ NIP$, NAMA$, STAT$, GP

70 NO = NO + 1

80 IF NIP$ = "/*" THEN PRINT TAB(2); "TOTAL GAJI BERSIH"; TAB(60); TGB: END

90 IF GP <= 500000 THEN PJ = 0 ELSE PJ = 10 / 100 * (GP - 500000)

100 IF STAT$ = "MENIKAH" THEN TJ = 100000 ELSE TJ = 0

110 GB = GP - PJ + TJ

120 TGB = TGB + GB

130 PRINT TAB(2); NO; TAB(6); NIP$; TAB(16); NAMA$; TAB(30); STAT$; TAB(38); GP; TAB(49); PJ; TAB(60); GB

140 PRINT TAB(2); "_____________________________________________________________________"

155 GOTO 60

160 DATA 1A,BUDI,MENIKAH,2000000,1B,WAHYU,LAJANG,3000000,1C,DIAN,LAJANG,2500000,/*,C,MENIKAH,1000000

untuk file BASnya bisa download disini

kemudian outputnya adalah :

Program Daftar Pembelian Roti

Disini saya mendapat tugas dari Dosen saya disuruh buat flowchart tentang daftar pembelian roti dan program basicnya.
Soal :
Sebuah perusahaan Roti ingin memberi keringanan kepada pembeli roti.
filenya berisi sebagai berikut:
Nama,Kode Pembeli,Banyak Roti
Data tersebut akan diproses dengan ketentuan, jika kode pembeli = 1, berarti pembeli "LANGGANAN", dan jika kode pembeli = 2, berarti pembeli "BIASA
untuk pembeli langganan yang membeli roti lebih dari 10 mendapat potongan dari total pembelian sebesar 10%, jika 10 atau kurang tidak mendapat potongan
untuk pembeli biasa yang membeli roti lebih dari 10 mendapat potongan dari total pembelian sebesar 5%, jika 10 atau kurang tidak mendapat potongan
Buatlah flowchart dan program Basic dan outputnya!

Sekarang kita buat flowchartnya kira-kira seperti ini :

Dan sekarang kita buat program basicnya

CLS

10 PRINT TAB(20); "DAFTAR PEMBELI ROTI"

11 PRINT "__________________________________________________________________"

12 PRINT TAB(2); "NO"; TAB(5); "NAMA"; TAB(18); "KET.PEMBELI"; TAB(40); "BANYAKNYA ROTI"; TAB(60); "BAYAR"

14 PRINT "__________________________________________________________________"

20 NO = 0: R = 4000: D = 0: TB = 0

30 READ NAMA$, KP, BR

40 NO = NO + 1

50 IF NO = 11 THEN GOTO 2000

65 T = BR * R

70 IF KP = 1 THEN KET$ = "LANGGANAN" ELSE GOTO 90

85 IF BR > 10 THEN GOTO 96

90 IF KP = 2 THEN KET$ = " BIASA"

91 IF BR > 10 THEN GOTO 97

96 D = 10 / 100 * T: GOTO 99

97 D = 5 / 100 * T: GOTO 99

99 BY = T - D

100 TB = TB + BY

110 PRINT TAB(1); NO; TAB(5); NAMA$; TAB(18); KET$; TAB(40); BR; TAB(60); BY

130 GOTO 30

2000 PRINT TAB(2); "_________________________________________________________________"

2010 PRINT TAB(2); "TOTAL BAYAR"; TAB(60); TB

2100 END

2200 DATA GESDI,1,10,LINA,2,15,CANTIK,1,5,DONI,2,4,EDWIN,1,10,FARIS,2,10,GEMUK,1,6,HARIS,2,15,IAN,1,10,JULIANDI,2,20,KASIR,1,15

untuk file BAS nya bisa di download disini

kemudian outputnya seperti ini :