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:...