Minggu, 18 Desember 2011

Contoh Soal

Contoh Penghitungan Gaji 

Ketentuan Soal :
1. Nama Di input 
2. Jabatan di input , 
Jabatan        Gaji       Tunjangan
Direktur       3000000    10 % dari gaji
Manager        2000000    5% dari gaji
Karyawan       1000000    2% dari gaji
OB             800000     1% dari gaji

3. Dikenakan PPN 10 % dari gaji
4. Gaji Bersih didapat dari : gaji + tunjangan – PPn
 
 
Jawabannya:

Uses crt;
Var nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,gajibersih:real;
Begin
Clrscr;
Write(‘Nama Karyawan     : ‘); readln(nama);
Write(‘Masukkan Jabatan  : ‘); readln(jabatan);
If  (jabatan=’Direktur’) or (jabatan=’direktur’) then
     Begin
 Gaji:=3000000;
 Tunj:=0.1* gaji;
     End
Else If  (jabatan=’Manager’) or (jabatan=’manager’) then
     Begin
 Gaji:=2000000;
 Tunj:=0.05* gaji;
     End
Else If  (jabatan=’Karyawan’) or (jabatan=’karyawan’) then
     Begin
 Gaji:=1000000;
 Tunj:=0.1* gaji;
     End
Else 
     Begin
 Gaji:=800000;
 Tunj:=0.1* gaji;
     End;
Writeln(‘Gaji Bersih      : Rp.‘,gaji);
Writeln(‘Tunjangan Jabatan      : Rp.‘,tunj:9:2);
Ppn:=0.1*gaji;
Writeln(‘PPN 10 %      :  Rp.‘,ppn:9:2);
Total:=(gaji+total)-ppn;
Writeln(‘Total Gaji   :  Rp.‘,total:9:2);
Readln;
End. 

2 komentar:

  1. uses crt;
    var
    nama, jabatan:string;
    gaji:longint;
    tunj, gaji_bersih, ppn:real;
    begin
    clrscr;
    write('Nama Karyawan : '); readln(nama);
    write('Jabatan : '); readln(jabatan);

    if(jabatan='direktur') then
    begin
    gaji:=3000000;
    tunj:=0.1*gaji;
    end
    else if(jabatan='manager') then
    begin
    gaji:=2000000;
    tunj:=0.05*gaji;
    end
    else if(jabatan='karyawan') then
    begin
    gaji:=1000000;
    tunj:=0.02*gaji;
    end
    else
    begin
    gaji:=800000;
    tunj:=0.01*gaji;
    end;
    ppn:=0.1*gaji;
    gaji_bersih:=gaji+tunj-ppn;
    writeln('Gaji : ',gaji);
    writeln('Tunjangan : ',tunj:4:2);
    writeln('Ppn : ',ppn:4:2);
    writeln('Gaji Bersih : ',gaji_bersih:4:2);
    readln;
    end.

    BalasHapus
    Balasan
    1. mungkin ini bentuk lebih simplenya *harap diberi masukan, saya masih pemula juga

      Hapus