Contoh Program Sederhana Pascal dan Cara Mudah Membuatnya!

Salah satu contoh program sederhana pascal bisa kalian gunakan untuk tugas kalian. Mungkin, program pascal ini bisa bermanfaat. Program sederhana pascal kali ini yang gue buat mengenai program penggajian, yang dimana sangat mudah dan tidak terlalu rumit membuatnya. Silahkan diikuti dan digunakan ya.

Contoh Program Pascal Sederhana

Program Pascal Penggajian

• 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 pokok + akumulasi tunjangan)-(pajak+jamsostek)

Dari keterangan diatas, berikut ini adalah contoh program pascal sederhana yang bisa kalian lakukan.

Coding Program Pascal Sederhana Penggajian

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.

Apa Itu Program Pascal?

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing pada tahun 1971. Nama Pascal diambil dari ahli matematika Prancis abad pertengahan, Blaise Pascal. Bahasa Pemrograman Pascal dikembangkan oleh Niklaus Wirth pada tahun 1970 dan mencapai puncak kepopulerannya di pada era 1970 hingga awal 1990an (terutama dengan compiler Turbo Pascal).

Struktur Bahasa Program Pascal

1. Judul Program
2. Blok Program
   • Deklarasi Unit Pascal
   • Bagian Deklarasi
     • Deklarasi Variabel
     • Deklarasi Konstanta
     • Deklarasi Label
     • Deklarasi Tipe Data
     • Deklarasi Prosedur
     • Deklarasi Fungsi
   • Bagian Program

Gimana? Gampangkan membuat program pascal sederhana yang gue kasih diatas? Kalau masih ada yang bingung, atau susah menerapkannya kalian bisa berbagi dikolom komentar lho. Atau kalau kalian mau contoh program sederhana pascal lainnya, kalian bisa lihat artikel gue tentang cara membuat program kalkulator sederhana dengan menggunakan pascal tentunya.