SELAMAT DATANG DI WEBBLOG PRIBADI SAID ABDULLAH
Semoga Termotivasi

TUGAS ALGORITMA

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