Contoh Program Sederhana Menggunakan Pascal

Program Sederhana menggunakan bahasa pemrograman yang sedikit zaman dahulu yaitu pascal.Mungkin Contoh Program Sederhana Menggunakan Pascal yang saya berikan dapat bermanfaat bagi kawab2.

Contoh Program Sederhana Pascal yang saya buat kali ini bertemakan mengenai Program Penggajian Menggunakan Pascal. Berikut ini adalah sedikit detail yang saya buat untuk aplikasi atau Program Sederhana Pascal yang akan saya berikan.

Berikut adalah detail dari Contoh Program Sederhana Menggunakan Pascal yang saya berikan :

Program Sederhana Pascal

• Nomor Induk Karyawan
• Nama Karyawan
• Status
• Jumlah Anak
• Jabatan
• Gaji Pokok
• Tunjangan Istri
• Tunjangan Anak
• Tunjangan jabatan
• Jamsostek
• Pajak
• Gaji Bersih

Catatan :

Tunjangan istri

jika status ‘menikah’ maka tunjangan istri 10 persen dari gaji pokok
Selain itu tidak dapat tunjangan

Tunjangan anak

Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk masing-masing anak
Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.
selain itu tidak dapat tunjangan

Tunjangan jabatan

Jika jabatan ‘manager’ maka tunjangan jabatan Rp. 2000000
Jika jabatan ‘Supervisor’ maka tunjangan jabatan Rp. 1500000
Jika jabatan ‘Mandor’ maka tunjangan jabatan Rp. 1000000
Selain itu tidak ada tunjangan

Hitungan untuk gaji bersih

Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)

Berikut ini adalah coding dari Contoh Program Sederhana Menggunakan Pascal yang sudah saya buatkan diatas bisa di copy  :?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

program Gaji; uses crt; var gp,gb,pjk,js,tis,ta,tjb:real; nik:string[10]; nk:string[27]; sts:string[9]; jb:string[15]; ja:byte; begin clrscr; write('Nomor Induk Karyawan='); readln(nik); write('Nama Karyawan='); readln(nk); write('Status='); readln(sts); write('Jumlah Anak='); readln(ja); write('Jabatan='); readln(jb); write('Gaji Pokok='); read(gp); if sts='menikah' then begin tis:=0.1*gp; end else begin tis:=0; end; if ja<=3 then begin ta:=0.05*gp*ja; end else if ja>3 then begin ta:=0.05*gp*3; end else begin ta:=0; end; if jb='manager' then begin tjb:=2000000; end else if jb='supervisor' then begin tjb:=1500000; end else if jb='mandor' then begin tjb:=1000000; end else begin tjb:=0; end; pjk:=0.025*gp; js:=0.01*gp; gb:=(gp+tis+ta+tjb)-(pjk+js); writeln('Tunjangan Istri=', tis:3:2); writeln('Tunjangan Anak=', ta:3:2); writeln('Tunjangan Jabatan=', tjb:3:2); Writeln('Pajak=', pjk:3:2); writeln('Jamsostek=', js:3:2); writeln('Gaji Bersih=', gb:3:2); readkey; end.

Sekian informasi sederhana mengenai Contoh Program Sederhana Menggunakan Pascal yang dapat saya berikan untuk kawan2 semuanya.Semoga dengan adanya artikel sederhana saya ini kawan2 semuanya dapat memahami mengenai Contoh Program Sederhana Menggunakan Pascal.

Semoga Bermanfaat