PROGRAM MENGHITUNG GAJI KARYAWAN

PROGRAM MENGHITUNG GAJI KARYAWAN

          Pada Program menghitung Gaji Karyawan ini membahas tentang penggajian pada karyawan yang meliputi golongan golongan tertentu dan tunjangan tunjangannya.

Penjelasan :

•  Variable/var = gapok (gaji pokok), tanak (tunjangan anak), gatot (gaji total) dengan keterangan real (penghitungan bilangan yg meliputi angka decimal).
• Variable/var = n (jumlah anak), golongan dan setatus (setatus karyawan) dengan keterangan integer 
•  Variable/var = nama, gol (untuk inputan gulongan secara manual) dengan keterangan string

Berikut program dari menghitung gaji karyawan :

program Menghitung_Gaji_Karyawan;

uses wincrt;

var

gapok, tanak , gatot: real;

 n, golongan, status: integer;

nama , gol : string;

begin

writeln ('Menghitung Gaji Karyawan');

writeln ('========================');

writeln ('Golongan : 1. III 2. IV 3. V ');

writeln ('Status : 1. Menikah 2. Single ');

writeln ('========================');

write ('Masukkan Nama Karyawan : '); read(nama);

write ('Pilih Nomor Golongan : '); read(golongan);

if (golongan = 1) then

begin gapok := 2000000;

gol := 'III';

end

else

if (golongan = 2) then

begin

gapok := 3000000;

gol := 'IV';

end

else

if (golongan = 3) then

begin

gapok := 4000000;

gol := 'V';

end

else

writeln('Nomor Golongan Salah');

write ('Pilih nomor Status : '); read(status);

 if (status = 1 ) then

begin

writeln ('Masukkan jumlah anak: '); read(n);

 if (n > 2 ) then

 tanak := 2 *(10/100 * gapok)

 else

tanak := n *(10/100 * gapok);

end

else

tanak := 0;

writeln ('========================');

writeln ('Nama Karyawan : ', nama);

writeln ('Golongan : ', gol);

writeln ('Gaji Pokok : ', gapok:0:2);

writeln ('Tunjangan Anak: ', tanak:0:2);

gatot := gapok + tanak;

writeln ('Total gaji : ', gatot:0:2);

 readln;

readln;

end.

Apakah masih bingung dengan program tersebut ???. anda bisa buka kembali di program awal tentang pembahasan Perulangan IF-THEN-ELSE, FOR-DO, WHILE-DO dan REPEAT-UNTIL. Selamat mencoba coding program pascal, semoga bermanfaat, dan kunjungi juga ke coding program pascal tentang PROGRAM LUAS DAN VOLUME BANGUN RUANG dan Dasar Dasar LOGARITMA DAN ALGORITMA…..