Membuat program menghitung gaji karyawan di pascal

07:14:00

Membuat program penghitungan gaji karyawan di dalam pascal

Hai semua, Hari ini saya akan membagikan satu buah coding program tentang menghitung gaji sederhana dengan menggunakan pascal, sebetulnya untuk membuat program menghitung gaji karywan dengan pascal tersebut sangat lah gampang kalo kita focus untuk mengerjakannya, tetapi saat ini saya hanya memberikan coding tentang menghitung gaji karyawan menurut jabatan di suatu perusahaan. Nah dari pada saya banyak ngomong, langsung di lihat saja deh Coding tentang menghitung gaji karyawan di suatu perusahaan dengan menggunakan pascal yah.






pascal









program hitung_gaji;
uses wincrt;
var
gaji:longint;
jabatan:string;
g_bersih,pajak,gaji_l,lembur,g_kotor:real;
begin
clrscr;
Write('Masukkan Jabatan : '); readln(jabatan);
If (jabatan='Manager') or (jabatan='manager') then
Begin
Gaji:=3000000;
End
Else If (jabatan='Supervisor') or (jabatan='supervisor') then
begin
gaji:=2000000;
end
Else If (jabatan='Operator') or (jabatan='operator') then
begin
gaji:=1420000;
end;
Writeln('Gaji Pokok : Rp.',gaji);


writeln('Jumlah Lembur'); readln(lembur);
gaji_l:=10000*lembur;

Writeln('Gaji Lembur : Rp.',gaji_l:0:2);
         g_kotor:=gaji+gaji_l;
            Pajak:=05*g_kotor;
            g_bersih:=gaji+gaji_l-pajak ;
           Writeln('Pajak : Rp.',pajak:0:2);
         Writeln('Gaji kotor : Rp.',g_kotor:0:2);
         Writeln('Gaji Bersih : Rp.',g_bersih:0:2);
       


 end.



















Sekian dan TerimaKasih, Silahkan Kunjungi Artikel Saya yang Lain yah.






























































































0 komentar