Translate

Jumat, 05 Oktober 2012

TUGAS ALGORITMA DAN PEMOGRAMAN 1B

04.55  fachriarif  3 comments

TUGAS ALGORITMA DAN PEMOGRAMAN 1B
MENGENAI PROGRAM UNTUK MENGHITUNG GAJI BURUH

CLS
PRINT "MENGHITUNG UPAH BURUH"
INPUT "NIB="; NIB$                                           
INPUT "NAMA"; NM$
INPUT "JAN KERJA"; JAM
INPUT "JUMLAH ANAK"; ANAK
GATOR = (JAM * 2500) + (ANAK * 100000)
GABER = GATOR - (GATOR * 5 / 100)
PRINT "GAJI KOTOR ="; GATOR
PRINT "GAJI BERSIH ="; GABER
INPUT "HITUNG LAGI= [Y/N] "; HITUNG$

SELECT CASE HITUNG
CASE Y

CLS
PRINT "MENGHITUNG UPAH BURUH"
INPUT "NIB="; NIB$                                           
INPUT "NAMA"; NM$
INPUT "JAN KERJA"; JAM
INPUT "JUMLAH ANAK"; ANAK
GATOR = (JAM * 2500) + (ANAK * 100000)
GABER = GATOR - (GATOR * 5 / 100)
PRINT "GAJI KOTOR ="; GATOR
PRINT "GAJI BERSIH ="; GABER
INPUT "HITUNG LAGI= [Y/N] "; HITUNG$

CASE N
END

END SELECT

keterangan :
-kata yang di belakang tanda (;) merupakan variabel yang bersifat bebas
-tanda ($) merupakan tipe data dari variabel tersebut (tipedata string)
-GATOR merupakan gaji kotor (variabel bersifat bebas)
-GABER merupakan gaji bersih (variabel bersifat bebas)

disini gw menggunakan SELECT CASE (pemilihan masalah)
karena menurut gw koding'a lebih gampang dan simple , jika ada yang gk ngerti komen aja di artikel ini
insal allah gw akan jawab ,

SEMOGA BERMANFAAT

Posted in:

3 komentar:

hy arif,
aq coba buat program perhitungan gaji dengan inputan tanggal, time in, time, out
aq input data sebanyak N kali, tapi data yang muncul hanya data inputan terakhir,
kira-kira apa ya yg kurang ?

makasih

yulia : kamu tinggal masukin koding identity nya .
kamu masukin koding
1 input "mau berapadata yang di input ?", n
2 for a = 1 to n
3 {
4 Koding Proses
5 }
6 next a

cat :
1.tidak menggunakan tnda "{ }"
2.kamu letakan koding 1 dan 2 sebelum proses penginputan
3.koding 3 s/d 6 berada di akhir proses penginputan .

Good Luck .
fachriarif.blogspot.com

Posting Komentar