Sabtu, 22 Oktober 2016

PROGRAM HONOR

Pada program honor ini kita dapat mengetahui honor  yang di dapat oleh pegawai/karyawan, tunjangan anak apabila telah menikah dan di karunai anak serta gaji  bersih yang di dapatkan dari gaji dikurangi pajak.
Langkah-langkah membuat program honor yaitu:
1.    Gunakan Laptop atau PC. System operasi yang saya gunakan Windows 7
2.    Pastikan anda telah menginstall aplikasi pascal, turbo pascal version 7 yang saya gunakan.
3.    Compile pascal yang telah di install
4.    Pilih file change Directory (untuk menyimpan file pada hardisk dan folrder yang telah di pilih)
5.    Klik save

6.    Selanjutkan ketik koding di bawah ini:

{program hitung honor}
 
Uses crt;
Label mulai, akhir;
Var nama    : string;
 St, jk, jw   : char;
 Ja, jhk    :integer;
Hnr,tk, ta, thnr, hnrb, pajak :real;
Begin
 Mulai:
 Clrscr;
 Write (‘Nama Pegawai  :’); readln (nama);
 Write(‘Jenis kelamin [P/W]  :’);readln(jk);
 Write(‘Status Pegawai [N/B] :’);readln(st);
 Write(‘Jumlah hari kerja  :’);readln(jhk);
 
If (jk =’P’) or (jk =’p’) then hnr := 150000 else hnr := 145000;
Thnr := jhk * hnr;
Case st of
 ‘N’ : begin
  Tk := 0.2 * thnr;
  Write (‘Jumlah anak   :’); readln (ja);
Case ja of
  0 : ta:=0;
 1 : ta:= 0.1 * thnr;
 2 : ta:= (0.1 * thnr)+(0.15 * thnr);
 3 : ta:= (0.1 * thnr)+(0.15 * thnr)+(0.2 * thnr);
 Else ta:= (0.1 * thnr)+(0.15 * thnr)+(0.2*thnr);
  End;
 ‘B’ : begin
 Tk := 0;
 Ta := 0;
 End;
End;

Thnr:= hnr + tk + ta;
Pajak:= 0.2 * thnr;
hnrb := thnr – pajar;

clrscr;
writeln (‘ Saudara    :’,nama);
writeln (‘ Jenis Kelamin   :’,jk);
writeln (‘ Status    :’,st);
writeln (‘ Sudah bekerja selama  :’,jhk); writeln (‘hari’);
writeln;
writeln (‘ …………………….Berhak Mendapat…………..’);
writeln (‘ Tunjangan Keluarga Sebesar   :Rp.’, tk:7:2);
writeln (‘ Tunjangan Anak Sebesar   :Rp.’, ta:7:2);
writeln (‘ Total Honorarium     :Rp.’, thnr:7:2);
writeln (‘ Wajib Membayar Pajak Sebesar  :Rp.’, pajak:7:2);
writeln (‘ Mendapat Honor Bersih Sebesar  :Rp.’, hnrb:7:2);

write (‘apakah ada data lain [Y/T] :’);  readln (jw);
if (jw=’Y’) or (jw =’y’) then goto mulai else goto akhir;

akhir :
write (‘TERIMA KASIH ………………SAMPAI JUMPA’);
end.
7.    Setelah coding di atas di ketik selanjutnya pilih menu runrun atau ctrl+ F9




Tidak ada komentar:

Posting Komentar