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,tar :string;
   target,u_target,u_status,u_anak,j_anak,anak :longint;
   tunjangan,golongan,gapok,hadir,u_tunjangan :longint;
   kehadiran,u_makan,u_transport :longint;
   pajak,total,gaber :real;
begin
   {program gaji karyawan, Created by Panji Maulana, T.Informatika}
   writeln('===================Program Gaji Karyawan===================');
   writeln('-by-panji-maulana--T-Informatika--Karyawan-----------------');
   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:=1000000;
   gol:='S1';
   end
   else
   if (golongan=2) then
   begin
   gapok:=2000000;
   gol:='S2';
   end
   else
   if (golongan=3) then
   begin
   gapok:=3000000;
   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:=300000;
   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 300 000/ anak, max 5 anak}
   write('Masukkan Jumlah anak : ');read(j_anak);
   if (j_anak<=5) then
   begin
   u_anak:=j_anak*anak;
   end
   else
   u_anak:=5*anak;
   u_tunjangan:=u_anak+u_status;

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

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

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

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

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

   {uang sesuai kehadiran}
   write('Masukkan Jumlah Kehadiran : ');read(kehadiran);
   u_makan:=kehadiran*40000;
   u_transport:=kehadiran*50000;

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

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

   pajak:=total*0.0025;
 
   gaber:=total-pajak;

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


   {PERINCIAN}

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

end.

 

end.

                 

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

Semoga bermanfaat, terimakasih.