Home » » Contoh Program Sederhana Pascal

Contoh Program Sederhana Pascal


Contoh Program Sederhana Pascal - Pada beberapa kesempatan yang lalu saya sudah memberikan sedikit informasi mengenai beberapa Contoh Program Sederhana diantaranya adalah Contoh Program Sederhana Koneksi Database dan Contoh Program Sederhana Menggunakan Visual Basic pada kesempatan kali ini saya akan sedikit memberikan Contoh Program Sederhana Pascal.


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 detailnya :
  • 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 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 yang dapat saya berikan untuk teman - teman semuanya.Semoga dengan adanya artikel sederhana saya ini teman - teman semuanya dapat memahami mengenai Contoh Program Sederhana Pascal.
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

2 Responses to this post

  1. Sekolah Manajemen Perhotelan IHS on 24 December 2011 at 21:59

    terima kasih informasinya mas..

    salam hangat..

  2. nextandy™ on 23 November 2012 at 18:55

    bisa bikin aplikasi pendeteksi orang korupsi ndak???? >_<

Halo Sahabat,

aLdyputRa Photography menyediakan Jasa Foto mulai dari Prewedding wilayah Jakarta dan sekitarnya sampai foto narsis sekalipun.Untuk info lebih lanjut silahkan hubungi Telp. Atau SMS : 085716634905, Email : support@aldyputra.net, Blacberry PIN : 27593324

Untuk pemasangan iklan bisa hubungi Admin blog ini disini terren.hoperz@gmail.com dan semoga Berkenan dan Bermanfaat ya Artikel - Artikel saya.

Leave a comment

Silahkan Berkomentar Dengan Penuh Sopan Dan Santun.
Komentar yang berbau :

• SARA
• Live Link
• Tidak Sopan

Akan kami hapus. Terima Kasih