Program Data Pegawai
Apr 10, 2009 5 Comments
Seorang pemilik perusahaan meminta kepada programmer perusahaannya, untuk membuat program penggajian karyawan.
langkah2 penggunaan:
- input NIP
- input nama
- input golongan (golongan 1-3) guna menentukan gaji pokok
- input masa kerja
kurang lebih listing program seperti ini, mohon maaf klo ada yg salah ketik. Lampu diwarnet baru diperbaiki, gelap (huruf di keyboard ga keliatan)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | Program DataPegawai; Uses Wincrt; Type Pegawai = record NIP : String[9]; Nama : String[50]; Golongan : Char; Jamkerja : Real; End; Var Data : Pegawai; Gapok : Real; Insentif,Gaber : Real; Ul : Char; Begin Repeat Clrscr; Writeln('Entry Data Pegawai PT. Punya gua'); Writeln('=========================='); Writeln; Write('NIP : ');Readln(Data.NIP); Write('Nama : ');Readln(Data.Nama); Write('Golongan : ');Readln(Data.Golongan); Write('Jam Kerja : ');Readln(Data.Jamkerja); Writeln; Writeln; Case Data.Golongan of '1' : Gapok:=1000000; '2' : Gapok:=1500000; '3' : Gapok:=2000000; Else Gapok:=0; End; if Data.Jamkerja>200 then Insentif:=(Data.Jamkerja-200)*10000 else Insentif:=0; Gaber:=Gapok+Insentif; Clrscr; Writeln('Laporan Gaji Pegawai'); Writeln('PT. XYZ'); Writeln; Writeln('============================================================================'); Writeln('|NIP | Nama | Golongan | Jam Kerja | Gaji |'); Writeln('============================================================================'); Writeln('|',Data.NIP:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|'); Writeln('============================================================================'); Writeln; Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul); Until Upcase(Ul) <> 'Y'; End. |
Devy Cahya Mulyono
[email protected]
tolong dong, cariin contoh soal soal buat olimpiade beserta penyelesaiannya…..
terimakasih…
Olimpiade pascal ya.. tanya mbah gugle sana… hehehehe
punya sintak2 sama pnjelasannya gk?klo ada minta y?mksih
Koq gk bsa di compile y maz??
mas mau tanyak gimna ya buat data karyawan sama tabelnya…???