-->


”Anda Berhasil Bukan Karena Mereka Tapi Karena Usaha Anda Sendiri“

Sabtu, 28 September 2013

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







                                                               

4 komentar:

  1. klau program tidak bisa run, knpa itu ? padahala tiada yang eror ... mohon bantuanya

    BalasHapus
  2. programnya gak bisa bang.....

    BalasHapus
  3. for a : = 1 to n do .. maksudnya ini apa ?

    BalasHapus
  4. scriptnya kurang lengkap ato saya yg masih awam ya gan?

    BalasHapus