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.

Belajar Buat Program (Turbo Pascal)

Sob gue mau share ni 1 program simpel hasil pascal  buat  di pelajari....  langsung aja  kta menuju soal  nya ....

Perhitungan gaji pegawai dengn ketentuan gaji pokok di hitung berdasarkan golongan seperti di bawah ini

        Gol 1 = 500.000
        Gol 2 = 600.000
        Gol 3 = 750.000
        Gol 4 = 1.000.000
        Gol 5 = 1.500.000

dan terdapat Tunjangan Keluarga 10% dari gaji pokok, Tunjangan anak 5% per anak dari gaji pokok  dan max 3anak. Buat program Hitung gaji total serta pengulangan program.....

Sebenarnya untuk lebih mudah sebaik nya kita buat Notasi algoritmik nya .... tapi eco langsung aj ni ke program nya :

Program Hitung_Gaji;
Uses crt;
Var
   NIP           : string[25];
   nama         : string[25];
   Golongan     : integer;
   status       : string[10];
   jumlah_anak  : integer;
   lagi         : string[5];
   gaji_pokok   : real;
   tunjangan_keluarga: real;
   tunjangan_anak: real;
   total_gaji: real;
Begin
     clrScr;
     writeln('Daftar_Kelengkapan:');
     writeln('=========================');

     lagi:= 'Y';
     while lagi='Y' do begin
     write('NIP           :');readln(NIP);
     write('NAMA          :');readln(nama);
     write('Golongan    :'):readln(Golongan);
     write('Status        :');readln(status);
     write('Jumlah_Anak   :');readln(jumlah_anak);
 
 

           if golongan=1 then
              gaji_pokok:=500000
             else
           if golongan=2 then
              gaji_pokok:=600000
             else
           if golongan=3 then
              gaji_pokok:=750000
             else
           if golongan=4 then
              gaji_pokok:=1000000
             else
           if golongan=5 then
              gaji_pokok:=1500000;

     if status='K' then
        tunjangan_keluarga:=gaji_pokok*0.1
        else
        tunjangan_keluarga:=0;
     if jumlah_anak>3 then
        tunjangan_anak:= gaji_pokok*0.05*3
        else
        tunjangan_anak:= gaji_pokok*0.05*jumlah_anak;
     total_gaji:= gaji_pokok+tunjangan_keluarga+tunjangan_anak;
     writeln('gaji:Rp',gaji_pokok:10:0);
     writeln('tunjangan_keluarga:Rp',tunjangan_keluarga:10:0);
     writeln('tunjangan_anak:Rp',tunjangan_anak:10:0);
     writeln('total_gaji:Rp',total_gaji:10:0);
     writeln('keluar_program');
     write('untuk_melanjutkan_tekan Y/T=');
     readln(lagi);
     end;
end.

program di atas untuk menghitung Gaji total setelah mengalami klasifikasi dan beberapa tunjangan.... ini merupakan sedikit pengalaman yang pernah aku dapat, semoga dpt membatu dan memberi sedikit gambaran buat  Sobat-sobat.

Jngn lupa Post Komet
God Bless

Download : Program Hitung-Gaji(Ms Word)
Password: ecoputra.blogspot.com

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