contoh soal menghitung gaji bersih karyawan menggunakan turbo pascal 7

      1.  Soal menghitung gaji bersih karyawan menggunakan turbo pascal 7
Tulislah Algoritma yang membaca nama karyawan dan gaji pokok bulanannya dan menghitung gaji bersih tersebut. Gaji bersih yang diterima pegawai adalah : gaji bersih = gaji pokok + tunjangan - pajak Tunjangan karyawan dihitung 20% dari gaji pokok , sedangkan  pajak adalah 15% dari gaji pokok ditambah tunjangan . 

Jawab :

Program Hitung_Gaji_Bersih;
uses crt;
var
   nama_karyawan : string [35];
   gajipokok,tunjangan,pajak,gajibersih: real ;
const persen_tunjangan :  real = 0.2 ;
      persen_pajak :  real = 0.15  ;
begin  

     writeln('menghitung gaji bersih  ');

     writeln('------------------------------');                                
     write('masukan nama karyawan='); readln(nama_karyawan);
     write('masukan gaji pokok='); readln(gajipokok);
     tunjangan := persen_tunjangan*gajipokok;
     pajak := persen_pajak*(gajipokok+tunjangan);
     gajibersih:= gajipokok+tunjangan - pajak;
     write('gaji bersih ',nama_karyawan, '  adalah = ',gajibersih:9:2);

     readln;

end.