Membuat Perhitungan Gaji dengan Turbo Pascal

• soeharto siregar, 31 Maret 2015
• 2. Jabatan di input ,
  Jabatan Gaji Tunjangan
  Direktur 3000000 10 % dari gaji
  Manager 2000000 5% dari gaji
  Karyawan 1000000 2% dari gaji
  OB 800000 1% dari gaji

  3. Dikenakan PPN 10 % dari gaji
  4. Gaji Bersih didapat dari : gaji + tunjangan – PPn

  Jawabannya:

  Uses crt;
  Var nama:string[20];jabatan:string;
  Gaji:longint;
  Tunj,ppn,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.05* 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.1*gaji;
  Writeln(‘PPN 10 % : Rp.‘,ppn:9:2);
  Total:=(gaji+total)-ppn;
  Writeln(‘Total Gaji : Rp.‘,total:9:2);
  Readln;
  End.
•