Pada artikel kali ini membahas tentang menghitung gahi
karyawan pada perusahaan di program pascal, langsung saja dibawah ini adalah
kode source nya :)
Hasil compiler dari program pascal untuk menghitung gaji
karyawan pada perusahaan setelah dicompiler dibahasa pemrograman pascal
PROGRAM
PT_NARINTIK;
USES
CRT;
VAR
GOL,STS:STRING;
GAPOK,JK,JL,GL,TJ,GAJI:
INTEGER;
GATOT,PAJAK:
REAL;
BEGIN
CLRSCR;
TEXTCOLOR(GREEN);
WRITELN;
WRITE('=========================PERUSAHAAN
PT.NARINTIK=================================');
WRITELN(' GAJI KARYAWAN PADA PERUSAHAAN
PT.NARINTIK');
WRITELN;
WRITELN('================================================================================');
WRITE('1.GOLONGAN : ');
READ(GOL);
IF GOL = 'A' THEN
BEGIN
GAPOK:=2500000;
TJ:=1000000;
END;
IF GOL = 'B' THEN
BEGIN
GAPOK:=2000000;
TJ:=750000;
END;
IF GOL = 'C' THEN
BEGIN
GAPOK:= 1500000;
TJ:=500000;
END;
WRITELN(' GAJI POKOK
: Rp ',GAPOK);
WRITE('2.JAM KERJA 1BLN : ');
READ(JK);
IF JK = 250 THEN
BEGIN
JL:=50;
GL:=1000000;
END;
IF JK = 230 THEN
BEGIN
JL:=30;
GL:=750000;
END;
IF JK =200 THEN
BEGIN
JL:=20;
GL:=500000;
END;
WRITELN(' JAM LEMBUR
: ',JL);
WRITELN(' GAJI LEMBUR
: Rp ',GL);
WRITE('3.STATUS : ');
WRITELN('MENIKAH');
WRITELN(' TUNJANGAN
: Rp',TJ);
WRITELN;
GAJI:=GAPOK+JL+GL+TJ;
PAJAK:=GATOT*0.15;
GATOT:=GAPOK-PAJAK;
WRITE('
GAJI TOTAL : ',GATOT:2:2);
WRITELN;
WRITELN;
WRITELN('================================================================================');
WRITELN(' BY : RICHARD
NAINGGOLAN ');
WRITELN('================================================================================');
READKEY;
END.
Sekian
artikel tentang kode program gaji karyawan pada perusahaan dibahasa pemrograman
pascal, semoga bermanfaat,jangan lupa koment :)