Contoh Program Sederhana Menggunakan Pascal

Contoh Program Sederhana Menggunakan PascalPada beberapa artikel sederhana saya yang lalu,saya sudah memberikan sedikit Contoh Program Sederhana Menggunakan Visual Basic pada kesempatan kali ini saya mencoba untuk memberi sedikit Contoh Program Sederhana menggunakan bahasa pemrograman yang sedikit zaman dahulu yaitu pascal.Mungkin  yang saya berikan dapat bermanfaat.

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

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

  • 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 :

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 teman – teman semuanya.Semoga dengan adanya artikel sederhana saya ini teman – teman semuanya dapat memahami mengenai Contoh Program Sederhana Menggunakan Pascal.

Halo Sahabat,

Silahkan dilihat ya beberapa video sulap kartu yang sudah saya buatkan untuk kalian semua disini http://youtube.com/putraaLdy kalau kalian suka, silahkan dishare. Tapi, kalau ga suka silahkan dikomentari saja ya. Bagi yang berminat memasang iklan di blog sederhana aLdyputRa – Official Site, silahkan hubungi :

  • Telp. Atau SMS : 08888075306,
  • Email : support@aldyputra.net,
  • Blacberry PIN : 7513F7CC

Feel Free For : Contac Me And Any Question Just Email Me.

Baca Juga Artikel Berikut Ini


No Responses to “Contoh Program Sederhana Menggunakan Pascal”

Trackbacks/Pingbacks

  1. Program Kalkulator Sederhana Menggunakan Pascal | aLdy PutRa | Official Sites - [...] Sederhana Menggunakan Pascal – Pada kesempatan yang lalu saya sudah memberikan mengenai Contoh Program Sederhana Menggunakan Pascal dan Contoh Program IF …

Leave a Reply

Your email address will not be published. Required fields are marked *


6 − four =

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>