TUGAS ALGORITMA DAN PEMOGRAMAN 1B

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)