Program Pascal : Menghitung Gaji Karyawan

Kali ini saya akan mencoba berbagi cara untuk membuat sebuah program, saya akan mencoba membuat sebuah program yang berfungsi untuk menghitung jumlah gaji karyawan pada sebuah perusahaan dengan ketentuan :

1.      Gaji Direktur             = Rp.3.000.000

2.      Gaji Manager            = Rp.2.000.000

3.      Gaji Karyawan          = Rp.1.000.000

4.      Perkerja lainnya         = Rp.800.000

Semua jumlah gaji diatas akan di tambah dengan tunjangan jabatan dan dipotong PPn.

Ø  Besar tunjangan yaitu 10% dari gaji bersih.

Ø  Besar PPn yaitu 20% dari gaji bersih.

Ø  Total yaitu gajji bersih +  Tunjangan – PPn.

Contoh script

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.

  

Contoh tampilan program

  Flowchart

 

Semoga Bermanfaat :)