QUIS
PENGGAJIAN KARYAWAN DENGAN PASCAL
http://mesran.blogspot.com/
http://stmik-budidarma.ac.id/
http://mesran.net/
Uses crt;
Var
i:Byte;
No,NIK,Nama_Pegawai:Array[1..3] of string;
golongan:Array[1..3] of integer;
gaji_pokok:Array[1..3] of longint;
pajak,gaji_bersih:Array[1..3] of real;
Begin
Clrscr;
Writeln(‘Input Data Pegawai’);
Writeln(‘---------------------------------------------------------‘);
Writeln;
For i:=1 To 3 Do
Begin
Write(‘Input NIK[‘,i,’] :’);Readln(NIK[i] );
Write(‘Input golongan[‘,i,’] :’);Readln(golongan[i] );
End;
For i:=1 To 3 Do
Begin
If NIK[i]=’1’ then
Nama_Pegawai[i]:=’Hendro’
Else if NIK[i]=’2’ then
Nama_Pegawai[i]:=’Dian’
Else if NIK[i]=’3’ then
Nama_Pegawai[i]:=’Jhoni’
End;
For i:=1 To 3 Do
Begin
If golongan[i]=1 then
gaji_pokok[i]:=1500000
else if golongan[i]=2 then
gaji_pokok[i]:=2500000
else if golongan[i]=3 then
gaji_pokok[i]:=3500000
end;
Writeln(‘Nama_Pegawai :’,Nama_Pegawai[i]);
Writeln(‘gaji_pokok :Rp’,gaji_pokok[i] );
pajak[i]:=0.05*gaji_pokok[i];
gaji_bersih[i]:=gaji_pokok[i]-pajak[i];
Writeln(‘pajak :Rp’,pajak[i]:0:2);
Writeln(‘gaji_bersih:Rp’,gaji_bersih[i]:0:2);
Writeln(‘---------------------------------------------------------‘);
Clrscr;
Writeln(‘ Tabel Data Pegawai ‘);
Writeln(‘---------------------------------------------------------‘);
Gotoxy(1,3);writeln(‘No ‘);
Gotoxy(4,3);Writeln(‘NIK ‘);
Gotoxy(10,3);writeln(‘Nama_Pegawai ‘);
Gotoxy(25,3);Writeln(‘golongan ‘);
Gotoxy(35,3);writeln(‘gaji_pokok ‘);
Gotoxy(50,3);Writeln(‘pajak ‘);
Gotoxy(65,3);Writeln(‘gaji_bersih ‘);
Writeln(‘---------------------------------------------------------‘);
For i:=1 To 3 Do
Gotoxy(1,5+i);Writeln(i);
Gotoxy(4,5+i);Writeln(NIK[i)];
Gotoxy(10,5+i);Writeln(Nama_Pegawai[i]);
Gotoxy(25,5+i);Writeln(golongan[i]);
Gotoxy(35,5+i);Writeln(gaji_pokok[i]);
Gotoxy(50,5+i);Writeln(pajak[i]:0:2);
Gotoxy(65,5+i);Writeln(gaji_bersih[i]:0:2);
Writeln(‘---------------------------------------------------------‘);
Readln;
End.
0 comments:
Post a Comment