ALGORITMA
Mulai
Tentukan jumlah max 8
Tampilkan judul LAPORAN BULAN OKTOBER 2008
Buat garis lurus horizontal sepanjang 70 karakter dengan menggunakan CHR 205
Buatlah kolom dari no urut s/d total terima
Buat garis seperti point 4
Tentukan harga awal baris BRS = 10
Tulis for j = 1 to N
Input dan tampilkan kode produksi B246, L351, C624, A135, S264
Harga satuan di baca dari syarat kode produksi min 3 macam
Jika kode produksi B246 maka harga satuan 5000
Jika kode produksi L351 maka harga satuan 7000
Jika kode produksi C624 maka harga satuan 3000
Jika kode produksi A135 maka harga satuan 600
Jika kode produksi S264 maka harga satuan 1000
Tampilkan harga satuan dank ode produksi
Jika total harga > Rp. 10.000, maka pajak = 10% * total harga, lain dari itu pajak = 0%
Tampilkan pajak
Total harga = harga produksi * harga satu
Tampilkan total harga
Total terima = total harga + pajak
Tampilkan total terima
Kembali ke point 4
Tampilkan jumlah total harga, pajak, total terima
Kembali ke point 4
Input dan tampilkan banjarbaru, Oktober 2008
Input dan tampilkan bagian produksi
Selesai
Listing Program
For N = 1 to 8
Dim NM$ (8)
Print “ jumlah data maximal : ” ; : input “Nama”NIM$ (N)
Next N
Cls
Locate 03,17 : Print “LAPORAN BULAN OKTOBER 2008”
Locate 04,01 : Print String$ (70,”=”)
Locate 05,02 : Print “No”
Locate 06,02 : Print “Urut”
Locate 05,10 : Print “Kode”
Locate 05,15 : Print “Jumlah”
Locate 05,28 : Print “Harga”
Locate 05,35 : Print “Total”
Locate 05,43 : Print “Pajak”
Locate 05,48 : Print “Total”
Locate 06,10 : Print “Produksi”
Locate 06,15 : Print “Produksi”
Locate 06,28 : Print “Satuan”
Locate 06,48 : Print “Terima”
Locate 07,01 : Print String$(70,”=”)
BRS = 10
For J = 1 to 8
Locate 05,01 = Print J
Locate 05,05 = Print NM$ J
BRS = BRS
NIM J
Print ” ” ; : input, No$
Print ” ” ; : input, Kode$
Print ” ” ; : input, jumlah$
Print ” ” ; : input, Harga$
Print ” ” ; : input, Total
Print ” ” ; : input, Pajak
Print ” ” ; : input, Total
Locate BRS = Print String$ (70,”=”)
If total harga >Rp.10.000 then pajak = 10%
Else
pajak = 0%
End If
T1 = total harga
T2 = pajak
T3 = total terima
Total harga = jumlah produksi * harga satuan
Print “jumlah”: ; :Input Jumlah = T1
Input : ; print “jumlah total harga”
Total terima = Total harga + pajak
Print “Jumlah” : , :Input Jumlah = T3
End
MAAF UNTUK FLOWCHART BELUM SEMPAT DITAMPILKAN
0 komentar:
Posting Komentar
Tinggalkan Pesanmu dan kita berbagi bersama
Membangun Diri Bersama
Sukses Bersama