Wednesday, April 27, 2011

Contoh Program Sederhana Pascal

Contoh Program Gaji Dengan Pascal

Pada postingan kali ini saya mau membahas salah satu contoh Program Applikasi Sederhana, seusai dengan janji saya pada postingan sebelumnya.

Pada contoh berikut saya tampilkan contoh kasus dan Listing Program Pascal.
Uraian Contoh Kasus ;

Berikut adalah data pengolahan gaji karyawan;
  • 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 Listing Programnya.
Silakan dipelajari atau dimodifikasi.

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.


Berikut adalah tampilan Program yang telah jadi;
Tampilan Editor Pascal

Tampilan Saat diJalankan
Demikian dulu pembahasan tentang 'Contoh Program Sederhana Pascal'.

Wasalam
fendri-informatika.blogspot.com

4 comments:

Triple-A said...

waaa... rumit juga yaa

Fendriinformatika said...

fendri-informatika

Kelihatannya saja sedikit rumit. Program ini masih memakai logika sederana.

azmi said...

bang,mohon bimbingannya ya..

fendri said...

Kedepan Akan ditambahkan lagi <a href="http://fendri-informatika.blogspot.com/2011/04/contoh-program-sederhana-pascal.html>Contoh program sederhana</a>

Post a Comment

Recent Post