Program Gaji Pokok Pascal

Buatlah program Gaji Pokok pada pascal dengan memasukkan gaji pokok orang tua anda dan masukkan umur anda : (misal = 25 tahun) → anda termasuk remaja. Karena anda remaja, anda mendapatkan tunjangan kesehatan sebesar 6% dari gaji pokok orang tua anda.

 

Misalkan :

Umur (tahun)	Keterangan	Tunjangan Kesehatan
0 – 4	Balita	2% * gaji pokok
5 – 10	Anak-anak	4% * gaji pokok
11 – 25	Remaja	6% * gaji pokok
26 – 34	Dewasa	8% * gaji pokok
35 – 65	Tua	10% * gaji pokok
>= 66	Lansia	12% * gaji pokok

Jawab :

Program Gaji_Pokok;

uses crt;

var

   a, b : real;

   c, d, e, f, g, h : real;

begin;

      clrscr;

      writeln('============================');

      write(' Masukkan Gaji Pokok = Rp. '); readln(a);

      write(' Masukkan Umur = '); readln(b);

      writeln('============================');

      writeln;

      c:=2/100*a;

      d:=4/100*a;

      e:=6/100*a;

      f:=8/100*a;

      g:=10/100*a;

      h:=12/100*a;

      writeln('============================');

               if ((b>=1) and (b<=4))

                  then writeln('Anda Balita. mndptkn tjn kshtn 2% dr gj pkk ortu anda yaitu Rp ',c:4:2);

               if ((b>=5) and (b<=10))

                  then writeln('Anda Anak-anak. mndptkn tjn kshtn 4% dr gj pkk ortu anda yaitu Rp ',d:4:2);

               if ((b>=11) and (b<=25))

                  then writeln('Anda Remaja. mndptkn tjn kshtn 6% dr gj pkk ortu anda yaitu Rp ',e:4:2);

               if ((b>=26) and (b<=34))

                  then writeln('Anda Dewasa. mndptkn tjn kshtn 8% dr gj pkk ortu anda yaitu Rp ',f:4:2);

               if ((b>=35) and (b<=65))

                  then writeln('Anda Tua. mndptkn tjn kshtn 10% dr gj pkk ortu anda yaitu Rp ',g:4:2);

               if (b>=66)

                  then writeln('Anda Lansia. mndptkn tjn kshtn 12% dr gj pkk ortu anda yaitu Rp ',h:4:2);

      writeln('============================');

      readln;

      end.

Anda sedang membaca artikel tentang Program Gaji Pokok Pascal dan Anda bisa menemukan artikel Program Gaji Pokok Pascal ini dengan url http://gratisan69.blogspot.com/2012/04/program-gaji-pokok-pascal.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Gaji Pokok Pascal ini jika memang bermanfaat bagi Anda atau teman-teman Anda, namun jangan lupa untuk mencantumkan link sumbernya.

Artikel Terkait