Belajar Membut Aplikasi Dengan Pascal
Program Gaji_Karyawan Uses crt Var Gp,gb,pjk,js,tis,ta,tjb:real; Nik :string[10]; Nk :string[27]; Sts :string[9]; Jb :string[15]; Ja :byte; Begin Clrscr; Write(‘Nomor Induk Karyawan:’); Readln(Nik); Write(‘Nama Karyawan:’); Readln(Nk); Write(‘Status:’); Readln(Sts); Write(‘Jumlah Anak:’); Readln(Ja); Write(‘Gaji Pokok:’); Readln(Gk); Write(‘apakah mau di ulang lagi (y/n) :’); If sts=’menikah’ then begin Tis:=0.1*gp; End Else end Tis:=0; End; If ja<=3 Then begin Ta:=0.02*gp*ja; End else If ja >3 then begin ta:=0.058g*3; End else Begin Ta:=0; End; If jb=’manager’ then begin Tjb:=2000000; End else If jb=’supevisor’ then begin