Program Hitung gaji dengan Procedure (Turbo Pascal)

Hari ini lagi aku bagiin contoh program hasil pascal menggunakan Procedure. Langsung aja kita menuju soalnya.

Hitung gaji karyawan dengn data yang di ketahui : NIP, Nama, Tempat lahir, Tgl lahir, Golongan, Status, Jumlah anak dan gaji pokok di dapat berdasar golongan sbg berikut.

• Gol 1 = 700.000
• Gol 2 = 900.000
• Gol 3 = 1.250.000
• Gol 4 = 1.500.000

dan mendapat tunjangan kawin 3% dr gaji pokok, junjangan anak 10%/anak max 3anak.

Program Hitung_Ggaji_Karyawan;
uses crt;
var
   Nim                       : string;
   Nama                    : string;
   Tempat_lahir          : string;
   Tgl_lahir                : integer;
   Gol                        : integer;
   Status                    : string;
   Jumlah_anak          : integer;
   total_gaji,gaji_poko,tunjangan_kawin,tunjangan_anak : real;

Procedure menghapus_data;
begin
     clrscr;
end;

Procedure isi_data;
begin
     write('NIM                 : '); readln(Nim);
     write('Nama                : '); readln(Nama);
     write('Tempat_Lahir    : '); readln(Tempat_lahir);
     write('Tgl_lahir            : '); readln(Tgl_lahir);
     write('Golongan           : '); readln(Gol);
     write('Status                : '); readln(Status);
     write('Jumlah_anak      : '); readln(Jumlah_anak);
end;

Procedure penghitungan_penggolongan;
var
   tunjangan_kawin:real;
   gaji_pokok,total_gaji,tunjangan_anak:real;
begin
     if Gol=1 then
        gaji_pokok:=700000
      else
     if Gol=2 then
        gaji_pokok:=900000
      else
     if Gol=3 then
        gaji_pokok:=1250000
      else
        gaji_pokok:=1500000;

     if Status='k' then
        tunjangan_kawin:= 0.03*gaji_pokok
      else
        tunjangan_kawin:=0;

     if Jumlah_anak>=3 then
        tunjangan_anak:=gaji_pokok*0.1*3
      else
        tunjangan_anak:=gaji_pokok*0.1*Jumlah_anak;

     total_gaji:=gaji_pokok+Tunjangan_kawin+Tunjangan_anak;
     writeln('gaji_pokok                    :Rp ',gaji_pokok:20:2);
     writeln('Tunjangan_kawin           :Rp ',Tunjangan_kawin:20:2);
     writeln('Tunjangan_anak            :Rp ',Tunjangan_anak:20:2);
     writeln('Total_gaji                      :Rp ',total_gaji:20:2);
end;

{MASUK DALAM PROGRAM UTAMA}
begin
     menghapus_data;
     isi_data;
     penghitungan_penggolongan;
     readln;
end.

Ini sedikit pengalaman yang pernah aku dapat, semoga bermanfaat dpt memberi sedikit gambaran . Sobat dpt men download sorce code program di atas melalui link di bawah ini.

Download: Program Hitung gaji (Ms. Word) / source code
Password: ecoputra.blogspot.com

Saat Download akan di alihkan ke adf.ly tunggu 5 detik.
Mengalami masalah  saat melalui adf.ly klik disini
Jangan lupa tinggalkan Komentar.