Turbo Pascal Windows Program Gaji

Berikut tugas saya menghitung gaji dengan menggunakan Turbo Pascal Windows

1. Buka aplikasi TPW.exe yang bisa anda download disini

2. buka aplikasi dan buat halaman baru seperti berikut :
3. Copykan code berikut ini :

program Gaji_Karyawan;
uses wincrt;

var
   nama,gol,status,jab,tar :string;
   target,u_target,u_tlk,u_jabatan,jabatan,u_status,u_anak,j_anak,anak :longint;
   tunjangan,golongan,gapok,hadir,lembur,u_tunjangan,tlk :longint;
   kehadiran,u_makan,u_transport,u_lembur :longint;
   pajak,bpjs,total,gaber :real;
begin
   {program gaji karyawan, Created by Panji Maulana}
   writeln('===================Program Gaji Karyawan===================');
   writeln('-----------------------------------------------------------');
   write('Masukkan Nama Karyawan     : ');read(nama);
   writeln('-----------------------------------------------------------');
   {golongan}
   writeln('Golongan   : 1=S1  ,  2=S2  ,  3=S3 ');
   write('Masukkan Golongan (1,2,3)  : ');read(golongan);
 
   if (golongan=1) then
   begin
   gapok:=2500000;
   gol:='S1';
   end
   else
   if (golongan=2) then
   begin
   gapok:=3500000;
   gol:='S2';
   end
   else
   if (golongan=3) then
   begin
   gapok:=4500000;
   gol:='S3';
   end
   else
   writeln('Golongan Tidak Tersedia');
   writeln('Golongan : ',gol);
   writeln('Gaji Pokok Anda : Rp ',gapok);

   writeln('-----------------------------------------------------------');
   writeln('isi pertanyaan dibawah dengan angka 1 (ya) atau 0 (tidak)');
   writeln('-----------------------------------------------------------');


   {Status Nikah atau Belum nikah +500 000}
   write('Apakah Anda Sudah Menikah : ');read(tunjangan);

   if (tunjangan=1) then
   begin
   u_status:=500000;
   status:='nikah';
   anak:=250000;
   end
   else
   if (tunjangan=0)then
   begin
   u_status:=0;
   status:='belu nikah';
   anak:=0;
   end
   else
   writeln('data yang anda masukkan salah');
 
   {Jumlah anak 250 000/ anak}
   write('Masukkan Jumlah anak : ');read(j_anak);
   u_anak:=j_anak*anak;
   u_tunjangan:=u_anak+u_status;

   writeln('Status : ',status);
   writeln('Tunjangan Nikah + anak : ',u_tunjangan);

   writeln('-----------------------------------------------------------');

   {Jabatan 500 000 jika punya}
   write('Apakah anda memiliki jabatan : ');read(jabatan);

   if (jabatan=1) then
   begin
   u_jabatan:=500000;
   jab:='Punya Jabatan';
   end
   else
   if (jabatan=0) then
   begin
   u_jabatan:=0;
   jab:='Tidak Punya';
   end
   else
   write('data yang anda masukkan salah');

   writeln('Status Jabatan    : ',jab);
   writeln('Tunjangan Jabatan : ',u_jabatan);

   writeln('-----------------------------------------------------------');

   write('Apakah Target anda tercapai : ');read(target);
   if (target=1) then
   begin
   u_target:=500000;
   tar:='Tercapai';
   end
   else
   if (target=0) then
   begin
   u_target:=0;
   tar:='Tidak Tercapai';
   end
   else
   write('data yang anda masukkan salah');

   writeln('Target            : ',tar);
   writeln('Uang Insentive    : ',u_target);

   writeln('-----------------------------------------------------------');
   {Target, 500 000/target}
   write('Berapa Kali anda tugas luar kota : ');read(tlk);

   u_tlk:=tlk*500000;

   writeln('Uang sppd : ',u_tlk);

   writeln('-----------------------------------------------------------');

   {uang sesuai kehadiran}
   write('Masukkan Jumlah Kehadiran : ');read(kehadiran);
   write('Masukkan Jam Lembur : ');read(lembur);
   u_makan:=kehadiran*25000;
   u_transport:=kehadiran*35000;
   u_lembur:=lembur*20000;

   writeln('Uang Makan  : ',u_makan);
   writeln('Uang Transport : ',u_transport);
   writeln('Uang Lembur : ',u_lembur);

   {total}
   total:=gapok+u_tunjangan+u_jabatan+u_target+u_tlk+u_makan+u_transport+u_lembur;

   pajak:=total*0.0025;
   bpjs:=total*0.003;

   gaber:=total-pajak-bpjs;

   writeln('Gaji Bersih : ',gaber:0:0);


   {PERINCIAN}

   writeln('++++++++++++++++++++++++++++++RINCIAN GAJI+++++++++++++++++++++++++++');
     writeln('Nama Karyawan     : ',nama);
     writeln('Gaji Pokok        : Rp. ',gapok);
     writeln('Uang Lembur       : Rp. ',u_lembur);
     writeln('Uang Makan        : Rp. ',u_makan);
     writeln('Uang Transport    : Rp. ',u_transport);
     writeln('Uang sppd         : Rp. ',u_tlk);
     writeln('Uang Insentive    : Rp. ',u_target);
     writeln('Uang Tunjangan    : Rp. ',u_tunjangan);
     writeln('Uang Jabatan      : Rp. ',u_jabatan);
     writeln('---------------------------------');
     writeln('         total    : Rp. ',total:0:0);
     writeln('Pajak             : Rp. ',pajak:0:0);
     writeln('bpjs              : Rp. ',bpjs:0:0);
     writeln('================================');
     writeln('TOTAL GAJI BERSIH : Rp. ',gaber:0:0);
 


end.
                 

4. Jalankan aplikasi klik run -> run atau Ctrl + F9

Semoga bermanfaat, terimakasih.