Contoh Soal & Jawaban Pemograman Turbo Pascal

Soal :

Analisa Kasus

Kode Karyawan (KK)             Status (ST)

Masa Kerja (MK)                    Nama Karyawan (NK)

1.      Proses

a.       Untuk Upah Pokok

Masa Kerja	Upah Pokok
< 3 Tahun	Rp. 500.000
3-5 Tahun	Rp. 700.000
>5 Tahun	Rp. 900.000

b.      Uang Lembur

Jika jam kerja > 150 Jam/bulan = 1jam X 10.000

Jam Kerja/Bulan	Uang Lembur
>150	Jk x 10.000

c.       Tunjangan Istri/Suami & Anak

TI = Rp. 100.000

Ta = Rp. 50.000/anak  ≤ 3 orang

Status	Jumlah Anak	TI	Ta
Menikah	n	Rp. 100.000	Ja x 25. 000
Single	Jumlah ≤ = 3 org

TU = up + ul + ti + ta + bn

d.      Bonus

Masa Kerja	Jam Kerja	Bonus
> = 10 Tahun	> = 20 Jam	0,01 x Upah Pokok

2.      Output

·         Upah Pokok (UP)

·         Uang Lembur (UL)

·         TI,Ta,bn

PROGRAM

Program gaji;

Uses crt;

Var

kk,nk : string (8);

st : char;

nk, a, n : byte;

ja, up, jk, ul, jk, ti, ta, bn, tv : longint;

            Begin

            Clrscr ;

Write (‘Masukan Jumlah Karyawan = ‘);readln (n);

for a : = 1 to n do

Begin

Clrscr;

Writeln (‘Data Total Upah Karyawan’);

Writeln (‘______________________’);

Write (‘Kode Karyawan                     =‘);readln (kk)

Write (‘Nama Karyawan                     =‘);readln (nk)

Write (‘Status [n/s]                              =‘);readln (st)

Write (‘Nama Karyawan                     =‘);readln (kk)

Write (‘Masa Kerja                             =‘);readln (mk)

Write (‘Jam Kerja                                =‘);readln (jk)

Write (‘Jumlah Anak                           =‘);readln (ja)

IF  mk<=3 then

            Begin

            Up : = 500.000;

    End

Else

IF  < mk > = 3 > and <= 5 > then      

Begin

            Up : = 700.000;

    End

Else

            Begin

            Up : = 900.000;

End ;

IF  jk> 150 then

            Begin

            Ul : = jk * 100.000;

    End

Else

            Begin

            Ul : = 0 ;

IF (st = ‘m’) then

            Begin

Ti : = 100.000

Ta : = ja * 50.000;

End;

Tv : = up + ul + ti + ta + bn ;

Writeln ( ‘Upah Pokok = ‘, up );

Writeln ( ‘Uang Lembur = ‘, ul );

Writeln ( ‘Tunjangan Istri = ‘, ti );

Writeln ( ‘Tunjangan Anak = ‘, ta );

Writeln ( ‘Bonus = ‘, bn );

   Readkey;

End;

end

 Formatan .Doc/word

Size 250 Kb