uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : integer;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
Jabatan : string;
begin
ulang := 'y';
while (ulang = 'y') do
begin
clrscr;
writeln (' Ahmad wahyudin,mulyana sastrabidaya,fauzi ridwan ');
writeln (' PT.BANTUT PERKASA ');
writeln ('__________________________________________________');
write('Nama karyawan : ');
readln(Nama );
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Jabatan : Direktur');
writeln('Gaji Pokok : 500000.00');
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Jabatan : Staff');
writeln('Gaji Pokok : 750000.00');
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Jabatan : OB');
writeln('Gaji Pokok : 850000.00');
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('bikin ko salah mulu');
end;
write('Silahkan mengulangi lagi ? ');
readln(ulang);
end;
if ulang = 't' then
begin
write('just finish');
end;
end.
Dhanis Attayandra Akhdan
-
Assalamualaikum....
Alhamdulillah setelah sekian lama vakum di blog ini... akhirnya hari ini
teringat kembali masa-masa sewaktu anak pertama lahir. Tak ter...
10 tahun yang lalu
Tidak ada komentar:
Posting Komentar