Jawaban Soal 1:
Atau Klik Link Berikut Disini
Link Soal Klik
Jawaban Soal No 2:
Soal :
---------------------------------
Menghitung Gaji Pegawai
---------------------------------
NIK Pegawai :
Nama Pegawai :
Golongan Pegawai :
Gaji Pokok :
Pajak :
Gaji Bersih
Ketentuan Proses :
1. NIK, Gol di Input
2. Proses Nama Pegawai
Jika NIK = 1 Maka
Nama Pegawai = "Marzuki"
Jika NIK = 2 Maka
Nama Pegawai = "Ita evania"
uses crt ;
var
NIKPegawai, Golongan : integer;
Pajak, GajiPokok, GajiBersih :real;
Nama:string;
begin
clrscr;
writeln ('--------------------------------');
writeln ('Meiman Laia | 15110143 ');
writeln ('--------------------------------');
writeln (' Menghitung Gaji Pegawai ');
writeln ('--------------------------------');
write ('NIK Pegawai [1/2/3] : '); read (NIKPegawai);
if (NIKPegawai=1) then
begin
Nama :='Marzuki';
end
else if (NIKPegawai=2) then
begin
Nama :='Ita Evania';
end
else if (NIKPegawai=3) then
begin
Nama :='Charis Anton';
end;
writeln('Nama Pegawai : ',Nama);
write ('Golongan : '); read(Golongan);
if (Golongan=1) then
begin
GajiPokok:=1500000;
end
else if (Golongan=2) then
begin
GajiPokok:=2500000;
end
else if (Golongan=3) then
begin
GajiPokok:=3500000;
end;
Pajak :=0.05 * GajiPokok ;
GajiBersih := GajiPokok - Pajak ;
writeln('Gaji Pokok : ', GajiPokok:0:2);
writeln('Pajak : ', Pajak:0:2);
writeln('Gaji Bersih : ', GajiBersih:0:2);
readln;
readln;
end.
Atau Klik Link Berikut Disini
Link Soal Klik
Jawaban Soal No 2:
Soal :
---------------------------------
Menghitung Gaji Pegawai
---------------------------------
NIK Pegawai :
Nama Pegawai :
Golongan Pegawai :
Gaji Pokok :
Pajak :
Gaji Bersih
Ketentuan Proses :
1. NIK, Gol di Input
2. Proses Nama Pegawai
Jika NIK = 1 Maka
Nama Pegawai = "Marzuki"
Jika NIK = 2 Maka
Nama Pegawai = "Ita evania"
Jika NIK = 3 Maka
Nama Pegawai = "Charis Anton"
3. Proses Gaji Pokok
Jika Gol = 1 Maka
GajiPokok = 15000000
Jika gol = 2 Maka
GajiPokok = 25000000
Nama Pegawai = "Charis Anton"
3. Proses Gaji Pokok
Jika Gol = 1 Maka
GajiPokok = 15000000
Jika gol = 2 Maka
GajiPokok = 25000000
Jika Gol = 3 Maka
GajiPokok = 35000000
4. Pajak = 0.05 * GajiPokok
5. Gaji Bersih = GajiPokok - Pajak
Jawaban / Kode Program Pascal:
GajiPokok = 35000000
4. Pajak = 0.05 * GajiPokok
5. Gaji Bersih = GajiPokok - Pajak
Jawaban / Kode Program Pascal:
uses crt ;
var
NIKPegawai, Golongan : integer;
Pajak, GajiPokok, GajiBersih :real;
Nama:string;
begin
clrscr;
writeln ('--------------------------------');
writeln ('Meiman Laia | 15110143 ');
writeln ('--------------------------------');
writeln (' Menghitung Gaji Pegawai ');
writeln ('--------------------------------');
write ('NIK Pegawai [1/2/3] : '); read (NIKPegawai);
if (NIKPegawai=1) then
begin
Nama :='Marzuki';
end
else if (NIKPegawai=2) then
begin
Nama :='Ita Evania';
end
else if (NIKPegawai=3) then
begin
Nama :='Charis Anton';
end;
writeln('Nama Pegawai : ',Nama);
write ('Golongan : '); read(Golongan);
if (Golongan=1) then
begin
GajiPokok:=1500000;
end
else if (Golongan=2) then
begin
GajiPokok:=2500000;
end
else if (Golongan=3) then
begin
GajiPokok:=3500000;
end;
Pajak :=0.05 * GajiPokok ;
GajiBersih := GajiPokok - Pajak ;
writeln('Gaji Pokok : ', GajiPokok:0:2);
writeln('Pajak : ', Pajak:0:2);
writeln('Gaji Bersih : ', GajiBersih:0:2);
readln;
readln;
end.
QUIS ONLINE MATAKULIAH KONSEP PEMROGRAMAN
Mesran.blogspot.co.id Jawaban Soal 1:
Atau Klik Link Berikut Disini