Soal Jawab Kuis Algo & Pemrograman

SOAL :
download program jadiku disini cuman 8 kb http://www.4shared.com/file/7TO7WhdO/SOALALGO.html

Buat Program Untuk menghitung gaji bersih karyawan dengan ketentuan :

1.       Data yang diinput :

·         NIK

·         Nama

·         Golongan

·         Masa kerja

·         Tingkat pendidikan

·         Status & Jumlah anak

·         Jam kerja

·         Jumlah pinjaman

2.       Gaji Pokok Untuk Golongan I

<10 tahun = 500000

>10 tahun = 600000

                Gaji Pokok Untuk Golongan II

<10 tahun = 700000

>10 tahun = 800000

                Gaji Pokok Untuk Golongan III

<10 tahun = 900000

>10 tahun = 1000000

3.       Gaji lembur 2% jika jam kerja >200 jam

4.       tunjangan pendidikan 5% untuk S1, 2% untuk D3

5.       5% tunjangan jika status nikah, 2% jika status duda/janda, dan 0% untuk pacaran/jomblo

6.       Tunjangan anak 5% jika status nikah/duda/janda

7.       Gaji kotor adalah akumulasi dari gaji pokok, gaji lembur dan tunjangan-tunjangan

8.       2% pajak untuk gaji kotor >1000000

9.       Gaji bersih = gaji kotor-(pajak+pinjaman)

10.   Output yang diharapkan :

·         Gaji Pokok

·         Gaji Kotor

·         Jumlah Tunjangan-tunjangan

·         Jumlah Pajak yang dikenakan

·         Gaji Bersih

Jawaban :

program menghitung_gaji_bersih;

uses crt;

var

   nama:string;

   gp,tp,tk,ta,gk,gol,gb,gl,pjk:real;

   jk,mk:integer;

   ja,jp,tpd,sts,nik:byte;

begin

clrscr;

     write ('Input No Induk Karyawan : '); readln (nik);

     write ('Input Nama Karyawan : '); readln (nama);

     write ('Input Golongan (1/2/3) : '); readln (gol);

     write ('Input Masa Kerja (tahun): '); read (mk);

     write ('Input Tingkat Pendidikan (S1=1,D3=2) : '); readln (tpd);

     write ('Input Status (Belum Nikah=0/Nikah=1/Duda=2/Janda=3) : '); readln (sts);

     write ('Input Jumlah Anak Kandung : '); readln (ja);

     write ('Input Jumlah Jam Kerja : '); readln (jk);

     write ('Input Jumlah Pinjaman : '); readln (jp);

           if gol=1 then

           begin

                if mk < 10 then

                gp := 500000

                else

                if mk >= 10 then

                gp := 600000

           end

           else

           if gol=2 then

           begin

                if mk < 10 then

                gp := 700000

                else

                if mk >= 10 then

                gp := 800000

           end

           else

           if gol=3 then

            begin

                if mk < 10 then

                gp := 900000

                else

                if mk >= 10 then

                gp := 1000000

            end;

            if jk > 200 then

            gl := gp*(0.02)

            else

            gl := 0;

            if tpd = 1 then

            tp := gp*0.05

            else

            if tpd = 2 then

            tp := gp*0.02

            else

            tp := 0;

            if sts = 1 then

            tk := gp*0.01

            else

            if sts = 2 or 3 then

            tk := gp*0.05

            else

            tk := 0;

            if sts = 1 or 2 or 3 then

            ta := gp*0.05;

            gk := gp+gl+tp+tk+ta;

            if gk > 1000000 then

            pjk := gk*0.02

            else

            pjk := 0;

            gb := gk-(pjk+jp);

     writeln ('Gaji Pokok Karyawan bernama ',nama,' dengan nik : ',nik,' adalah',gp);

     writeln ('Gaji Kotor Karyawan',gk);

     Writeln ('Jumlah Pajak Yang dikenakan kepada karyawan sebanyak : ',pjk);

     writeln ('Jumlah Tunjangan',gl+tp+ta+tk);

     writeln ('Gaji Bersih = ',gb);

     Writeln ('');

     Writeln ('');

     Writeln ('');

     Writeln ('Pencipta Program Zainal');

     readln;

end.

download program jadiku disini http://www.4shared.com/file/7TO7WhdO/SOALALGO.html 

# Jangan Lupa Comment nah sobat !