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"

Jika NIK = 3 Maka
       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:

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

Link Soal ada Bisa Di Download di
Mesran.blogspot.co.id Jawaban Soal 1:







Atau Klik Link Berikut Disini