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 run → run atau ctrl+ F9
Tidak ada komentar:
Posting Komentar