Assalamu'alaikum Wr. Wb.
Hello sobat,untuk kali ini saya akan memposting script menghitung gaji karyawan dengan dev pascal, ini adalah tugas kulia saya, saya cukup kesulitan menyelesaikannya,untuk sobat mendapakan kendala yang sama muda mudahan script ini bisa membantu sobat dalam menyelesaikan tugas sobat.
untuk mempelajari sebua bahasa pemrograman memang susah karena setiap bahasa pemrogramam mempunyai koding yang berbeda dalam setiap bahasa pemrograman,saran dari saya sobat tidak perlu menghafal kodingnya cukup dengan sering latihan dengan banyak memecahkan kasus dari pemrograman.
ini lah script menghitung gaj karyawan dengan dev pascal
program menghitung_gaji_karyawan;
uses crt;
var
NAMA,JABATAN:string;
STATUS:char;
BANYAK_ANAK:BYTE;
TUNJANGAN_KELUARGA,TUNJANGAN_ANAK,
GAJI_BERSI,PAJAK,TOTAL_TUNJANGAN,
GAJI_POKOK,GAJI_KOTOR:REAL;
begin
window(1,1,80,30);textbackground(red);
clrscr;
textcolor(black);
clrscr;
write('Nama Anda : ');readln(nama);
write('Jabatan :');readln(jabatan);{jabatan harus dengan huruf besar}
write('menikah :');readln(status);
if status='Y' then
begin
write('banyak anak :');readln(BANYAK_ANAK);
end;
if status='Y' then
PAJAK:=0.05
else
PAJAK:=0.25;
writeln('----------------------------------------');
IF (JABATAN='direktur') or (jabatan='DIREKTUR')then
begin
gaji_pokok:=50000000
end
else
if (jabatan='manager') or (jabatan='MANAGER')then
begin
gaji_pokok:=3000000
end
else
if (jabatan='staf') or (jabatan='STAF') then
begin
gaji_pokok:=2000000
end;
writeln('Gaji Pokok :RP.',gaji_pokok:0:0);
if (status='Y') OR (status='Y') THEN
tunjangan_keluarga:=0.2*gaji_pokok;
if (STATUS='Y') OR (STATUS='Y') THEN
TUNJANGAN_ANAK:=0.1*gaji_pokok/banyak_anak;
TOTAL_TUNJANGAN:=Tunjangan_keluarga+Tunjangan_anak;
GAJI_KOTOR:=GAJI_POKOK+Tunjangan_keluarga;
if STATUS ='Y' THEN
PAJAK:=0.25*GAJI_POKOK
else
PAJAK:=0.5*GAJI_POKOK;
GAJI_BERSI:=gaji_kotor-pajak;
writeln('Tunjangan keluarga :RP.',tunjangan_keluarga:0:0);
writeln('Tunjangan Anak :RP.',tunjangan_anak:0:0);
writeln('Total Tunjangan :RP.',total_tunjangan:0:0);
writeln('Gaji Kotor :RP.',gaji_kotor:0:0);
if status='Y' then
writeln('Pajak 2.5% :RP.',Pajak:0:0)
else
writeln('Pajak 5 % :RP.',Pajak:0:0);
writeln('Gaji Bersi :RP.',gaji_bersi:0:0);
readln;
end.
inilah output dari script di atas
Jika belum menikah
jika suda menikah
EmoticonEmoticon