daily pastebin goal
58%
SHARE
TWEET

program gaji_pegawai

aldowildan Jan 19th, 2019 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program gaji_pegawai;
  2. uses crt;
  3. var
  4.         gajipokok, bonus, gajitotal : real;
  5.         status : integer;
  6.         nama : string;
  7. begin
  8. clrscr;
  9.         write ('Masukan Nama Pegawai : '); readln(nama);
  10.         write ('Masukan Gaji Pokok   : Rp.'); readln(gajipokok);
  11.         write ('Status (1 = menikah, 2 = belum menikah) : '); readln(status);
  12.         writeln;
  13.         writeln ('============================= ');
  14.         writeln;
  15.         writeln ('Nama karyawan : ', nama);
  16.         writeln ('Gaji pokok    : Rp.', gajipokok :8:2);
  17. if status =1 then
  18. begin
  19.         bonus :=((25/100)*gajipokok);
  20.         writeln ('Bonus         : Rp.',bonus :8:2);
  21. end
  22. else
  23. if status =2 then
  24. begin
  25.         bonus :=((10/100)*gajipokok);
  26.         writeln ('Bonus         : Rp.',bonus :8:2);
  27. end
  28. else
  29.         writeln ('', bonus :8:2);
  30.         gajitotal := gajipokok+bonus;
  31.         writeln ('Total Gaji    : Rp.',gajitotal :8:2);
  32. readln;
  33. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top