Scipt turbo pascal dan flowchart program sederhana untuk menghitung gaji.

Ada berbagai cara untuk membuat sebuah program, kami 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