Latihan PraUTS

buat temen-temen kelas C dan D yang butuh soal latihan PraUTSnya bisa latihan pake soal dibawah ini, mungkin mirip geto sama soal UTSnya..Coba pelajari ajja yach,,ingettt Kerjaennya jangan pake acara nyontek yaaa,,, and beljara disiplin dalam waktu biar pas UTS kaliand pada bisa,,,SEmangaaathh yooo,..
GOOD Luck buat kaleandddd,,,Jawaban soal ini saya posting besok kaloo udah selesai kalian ujian praktikum...!!! ^_^

A.    Buatlah sebuah program Perhitungan Gaji Karyawan dengan ketentuan berikut :

a.    User memasukkan data pegawai berupa : NIP, Nama Pegawai, Golongan, Jumlah Anak.

b.    Gaji Pokok pegawai ditentukan sebagai berikut :

Golongan	Gaji Pokok
IA	1500000
IB	1600000
IIA	1800000
IIB	1900000
IIIA	2100000
IIIB	2400000
IVA	3500000

c.    Jika pegawai sudah menikah dan memiliki anak >= 2 maka tunjangan anak := 15%*Gaji Pokok, jika tidak maka tunjangan anak tidak diberikan.

d.   Gaji Bersih dihitung dengan rumus : Gaji Bersih := Gaji Pokok + Tunjangan Anak

e.    Output program berupa : Nama Pegawai, NIP, Golongan,Status, Jumlah anak, Tunjangan anak, Gaji pokok, Gaji Bersih.

B.     Buatlah program untuk mencetak gaji karyawan dimana:

Inputan :  nik,nama,jabatan (direktur,manager,karyawan,OB)

Ketentuan:

Jabatan                         Gaji                                        Tunjangan
Direktur                       3000000                                   10 % dari gaji
Manager                      2000000                                  5% dari gaji
Karyawan                    1000000                                  2% dari gaji
OB                              800000                                    1% dari gaji

Dikenakan PPN 10 % dari gaji
Gaji Bersih didapat dari : gaji + tunjangan – PPn

Output : Nik,nama,jabatan,gaji awal,tunjangan,PPN,total gaji.

C.     Buatlah program kasir dimana :

Input : Nama kasir,Kode barang,Nama barang,harga satuan,jumlah barang.

Proses:

Harga_beli := harga_satuan * jumlah

Jika harga_beli >= 20000, maka diskon 10% * harga_beli, total_bayar := harga_beli – diskon.

Output : Nama kasir,kode barang, nama barang, harga satuan, jumlah barang, diskon.

D.    Buatlah program program menghitung grade mahasiswa dimana:

Jika na >=90 grade A

Jika na >=80 grade B+

Jika na >=70 grade B

Jika na >=60 grade C+

Jika na >=50 grade C

Jika na >=40 grade D

Jika na <=39 grade E

Rumus na:= 20% * Harian + 30% * UTS + 50% * UAS

Output Nim,Nama,Jurusan,Semester,Nilai harian,Nilai UTS,Nilai UAS,Nilai akhir

E.     Berikut adalah data pengolahan gaji karyawan;

·         Nomor Induk Karyawan

·         Nama Karyawan

·         Status

·         Jumlah Anak

·         Jabatan

·         Gaji Pokok

·         Tunjangan Istri

·         Tunjangan Anak

·         Tunjangan jabatan

·         Jamsostek

·         Pajak

·         Gaji Bersih

Catatan;
Tunjangan istri 

·         jika status 'menikah' maka tunjangan istri 10 persen dari gaji pokok

·         Selain itu tidak dapat tunjangan

Tunjangan anak

·         Jika jumlah anak kurang atau sama dengan 3 orang, tunjangan anak 5 persen dari gaji pokok untuk masing-masing anak

·         Jika jumlah anak lebih dari 3, tunjangan anak maksimal untuk 3 orang anak.

·         selain itu tidak dapat tunjangan

Tunjangan jabatan, dan GAPOK

·         Jika jabatan 'manager' maka tunjangan jabatan Rp. 2000000, Gapok : 3500000

·         Jika jabatan 'Supervisor' maka tunjangan jabatan Rp. 1500000, Gapok : 2500000

·         Jika jabatan 'Mandor' maka tunjangan jabatan Rp. 1000000 , Gapok : 1500000

·         Selain itu tidak ada tunjangan

Pajak 2,5% dari gaji pokok

Jamsostek 10 % dari Gaji pokok

Gaji bersih = (gaji pokok + akumulasi tunjangan)-(pajak+jamsostek)

.

jawaban KUIS C

heeyyy kelas C...
ini jawaban kuis kalian...soalnya gampang tapi kenapa bnyak yang belomm bisa...hmmmm
parahnya lagi ada yang COPAS....nget belajar UTS sebentar lagi...

program gaji_pegawai;
uses
 winCrt;

 var
   nm,gol :string;
   ank,nip : integer;
   gapok,tunjangan,gaji_brsh :real;


 begin
  gotoxy(12,2);writeln('MENCETAK GAJI PEGAWAI');
  gotoxy(12,3);writeln('=====================');
  writeln;
  write('NIP            : ');readln(nip);
  write('Nama Pegawai   : ');readln(nm);
  write('Golongan       : ');readln(gol);
  write('Jumlah anak    : ');readln(ank);
 
  if gol ='IA' then
   gapok := 1500000 else
  if gol ='IIA' then
   gapok:= 2500000 else
  if gol ='IIIA' then
   gapok:= 3500000 else
  if gol ='IVA' then
   gapok:= 4500000;


 if ank >= 2 then
 begin
  tunjangan:= (0.10 * gapok);
  gaji_brsh:= (gapok + tunjangan);
 end
 else

 begin
 tunjangan:= 0;
 gaji_brsh:=gapok;
 end;

 clrscr;
 begin
  writeln('DATA GAJI KARYAWAN');
  writeln('------------------');
  writeln('NIP            : ',nip);
  writeln('Nama Pegawai   : ',nm);
  writeln('Golongan       : ',gol);
  writeln('Jumlah anak    : ',ank);
  writeln('Tunjangan      : ',tunjangan:6:0);
  writeln('Gaji Pokok     : ',gapok:6:0);
  writeln('Gaji Bersih    : ',gaji_brsh:6:0);
 end;
end.

jawaban KUIS D

nie jawaban hasil kuis buat temen2 kelompok D...masakkkk soal kayak begini di bilang sulit...

yang penting mau usaha semuanya pasti bisa,,soalnya gampang,,heeee
bisa kalian liat sendiri jawabanya di bawah nie,,,!!!
moga bisa bermanfaat yach...ingett belajarrrr sebentarrr lagi UTS...!!!

program Gaji;

uses
    winCrt;

var
   gp,gb,pjk,js,tis,ta,tjb:real;
   nik:string[10];
   nk:string[27];
   sts:string[9];
   jb:string[15];
   ja:byte;

begin
gotoxy (12,3);writeln('PROGRAM PENCETAKAN GAJI KARYAWAN');
gotoxy (12,4);writeln('________________________________');
gotoxy (12,6);writeln('## MASUKKAN DATA KARYAWAN ##');
writeln;
write('Nomor Induk Karyawan = '); readln(nik);
write('Nama Karyawan        = '); readln(nk);
write('Status               = '); readln(sts);
write('Jumlah Anak          = '); readln(ja);
write('Jabatan              = '); readln(jb);
clrscr;

if jb='manager' then
   begin
        gp := 3500000;
        tjb:= 2000000;
   end
else
if jb='supervisor' then
   begin
        gp := 2500000;
        tjb:= 1500000;
   end
else
if jb='mandor' then
   begin
        gp := 1500000;
        tjb:= 1000000;
   end
else
begin
     tjb:=0;
end;


if sts='menikah' then
   begin
        tis:=0.1*gp;
   end
else
   begin
        tis:=0;
   end;

if ja<=3 then
   begin
        ta:=0.05*gp*ja;
   end
else
if ja>3 then
   begin
        ta:=0.05*gp*3;
   end
else
   begin
        ta:=0;
   end;


pjk:=0.025*gp;
js:=0.01*gp;
gb:=(gp+tis+ta+tjb)-(pjk+js);

gotoxy (12,3);writeln('DATA GAJI KARYAWAN');
gotoxy (12,4);writeln('==================');
writeln;
writeln('Tunjangan Istri     : Rp. ', tis:9:0);
writeln('Tunjangan Anak      : Rp. ', ta:9:0);
writeln('Tunjangan Jabatan   : Rp. ', tjb:9:0);
Writeln('Pajak               : Rp. ', pjk:9:0);
writeln('Jamsostek           : Rp. ', js:9:0);
writeln('Gaji Bersih         : Rp. ', gb:9:0);
end.