Kamis, 17 Januari 2013

membuat program gaji kariawan di pascal

Uses crt;
Var
   nama:string[20];jabatan:string;
   Gaji:longint;
   Tunj,ppn,Total,gajibersih:real;
Begin
     Clrscr;
     Write( 'Nama Karyawan     : '); readln(nama);
     Write('Masukkan Jabatan  : '); readln(jabatan);
     If  (jabatan='Direktur') or (jabatan='direktur') then
     Begin
          Gaji:=3000000;
          Tunj:=0.1* gaji;
     End
     Else If  (jabatan='Manager') or (jabatan='manager') then
     Begin
          Gaji:=2000000;
          Tunj:=0.01* gaji;
     End
     Else If  (jabatan='Karyawan') or (jabatan='karyawan') then
     Begin
          Gaji:=1000000;
          Tunj:=0.1* gaji;
     End
     Else
     Begin
          Gaji:=800000;
          Tunj:=0.1* gaji;
     End;

     Writeln('Gaji Bersih        : Rp.',gaji);
     Writeln('Tunjangan Jabatan  : Rp.',tunj:9:2);
     Ppn:=0.2*gaji;
     Writeln('PPN 10 %           : Rp.',ppn:9:2);
     Total:=gaji+total;
     Writeln('Total Gaji         : Rp.',total:9:2);
     Readln
End.



Artikel Terkait:

0 komentar: