QUIZ ONLINE : Menghitung Gaji Pegawai Menggunakan Bahasa Pascal

Berikut Program Pascal Untuk Mencari Gaji Pegawai, Bila di ketahui Kasusnya Seperti di bawah ini :

Berikut adalah Penyelesaian Kasus Diatas Menggunakan Program Pascal :

Uses CRT;
Var
nik,nama,gol :string;
gapok,pajak,gaber :real;
Begin
Clrscr;
Writeln('Menghitung Gaji Pegawai');
Writeln('--------------------------------');
Write('NIK Pegawai :');Readln(nik);
If nik='1' then
Begin
nama:='Hendro';
End
Else if nik='2' then
Begin
nama:='Dian';
End
Else if nik='3' then
Begin
nama:='Jhoni';
End;
Writeln('Nama :',nama);
Write('Golongan :');Readln(gol);
If gol='1' then
Begin
gapok:=1500000;
End
Else if gol='2' then
Begin
gapok:=2500000;
End
Else if gol='3' then
Begin
gapok:=3500000;
End;
Writeln('Gaji Pokok :',gapok:8:0);
pajak:=0.05*gapok;
gaber:=gapok-pajak;
Writeln('Pajak :',pajak:8:0);
Writeln('Gaji Bersih :',gaber:8:0);
Readln;
End.

Sehingga Menghasilkan Program Gaji pegawai Berikut ini :

SANGAT MUDAH BUKAN?

Bagaimana Menghitung Gaji Pegawai Menggunakan Bahasa Pascal? Ini juga bisa menghitung gaji kamu loh :) Apakah Kamu Merasa Masih Sulit? Jika masih sulit tolong sarannya di kolom komentar. Terima Kasih