Breaking News
Loading...
, ,

Membuat Program Penggajian Pegawai Dengan Pascal

Share on Google Plus
13:50 OpiniDani 0 Comments

Bingung juga mau posting apa di blog ini. Mikir-mikir akhirnya posting aja deh hasil quiz kemaren di kampus. Mata kuliahnya sih struktur data, tapi lagi bahas pascal jadi quiznya tentang pascal. Kalo urusan buat program kaya gini anak SMA/SMK atau bahkan anak SMP juga udah bisa kali ya, tapi apa salahnya sekedar berbagi ilmu yang kita punya.

OK langsung aja disini saya menggunakan procedure (ya emang disuruhnya gitu kalee) pada programnya jadi tinggal panggil aja subprogram yang dibutuhkan. Ya udah deh berikut sintaks untuk membuat program penggajian karyawan sederhana menggunakan pascal. Ini pake TPW alias Turbo Pascal for Windows ya jadi uses wincrt pakenya, kalo Turbo Pascal pakenya uses crt.

program gaji_pegawai;
uses wincrt;
var
   nm,jab,nip,sts:string;
   gaji,tunjab,gatot,anak,tunjank:real;

procedure dir;
begin
     if sts = 'N' then
        begin
             write  ('Masukkan Jumlah Anak    : '); readln(anak);
     
             gaji:=4000000;
             tunjab:=gaji*0.1;
             tunjank:=2*(0.05*gaji);
             gatot:=gaji+tunjab+tunjank;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Tunjangan Anak          : ',tunjank:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
        end
     else
         begin
             gaji:=4000000;
             tunjab:=gaji*0.1;
             gatot:=gaji+tunjab;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
         end;

end;

procedure mgr;
begin
     if sts = 'N' then
        begin
             write  ('Masukkan Jumlah Anak    : '); readln(anak);
     
             gaji:=3000000;
             tunjab:=gaji*0.1;
             tunjank:=2*(0.05*gaji);
             gatot:=gaji+tunjab+tunjank;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Tunjangan Anak          : ',tunjank:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
        end
     else
         begin
             gaji:=3000000;
             tunjab:=gaji*0.1;
             gatot:=gaji+tunjab;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
         end;
end;

procedure spv;
begin
     if sts = 'N' then
        begin
             write  ('Masukkan Jumlah Anak    : '); readln(anak);
     
             gaji:=2000000;
             tunjab:=gaji*0.1;
             tunjank:=2*(0.05*gaji);
             gatot:=gaji+tunjab+tunjank;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Tunjangan Anak          : ',tunjank:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
        end
     else
         begin
             gaji:=2000000;
             tunjab:=gaji*0.1;
             gatot:=gaji+tunjab;

             writeln('Gaji Pokok              : ',gaji:0:0);
             writeln('Tunjangan Jabatan       : ',tunjab:0:0);
             writeln('Gaji Total              : ',gatot:0:0);
         end;
end;

begin
     clrscr;
     writeln('==============================================');
     writeln;
     writeln('            Program Gaji Pegawai              ');
     writeln;
     writeln('==============================================');
     writeln;
     write  ('NIP                     : '); readln(nip);
     write  ('Nama                    : '); readln(nm);
     write  ('Jabatan  [Dir/Mgr/Spv]  : '); readln(jab);
     write  ('Status Perkawinan [N/B] : '); readln(sts);

     if jab = 'Dir' then
        dir
     else
     if jab = 'Mgr' then
        mgr
     else
     if jab = 'Spv' then
        spv
     else
         writeln('Kode yang Anda masukkan salah');

     readkey;
     donewincrt;
end.
Nah ini tampilan ketika programnya dijalankan.

Yupz segitu aja dulu, semoga bermanfaat.

Baca juga
Program Penggajian Pegawai Dengan Pascal (Ver. 2)
Program Penggajian Pegawai Dengan Pascal (Ver. 3)

[Dani Kustiawan]

You Might Also Like

0 comments

About

danikustiawan.id adalah personal blog yang dikelola secara pribadi. Tujuan utama hadirnya blog ini adalah untuk mempererat tali silaturahmi, menambah pengetahuan, dan menyalurkan hobby. Terimakasih telah berkunjung, jangan lupa subscribe dan selalu berkunjung.

danikustiawan.id on social media

Facebook FanPage

danikustiawan.id