uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : real;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
gajipokok : real;uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : real;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') do
begin
clrscr;
writeln ('PT Mercu Buana');
writeln ('Program Perhitungan Gaji');
writeln;
write('Nama : ');
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('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total 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('Golongan : ',Golongan);
writeln('Gaji Pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total 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('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('Boss ga da...,');
end;
write('Mau coba lagi ga..? (y/t)');
readln(ulang);
if ulang <> 't' then
end;
begin
writeln ('The End');
end;
end.
gajilembur : real;
label
balik;
begin
ulang := 'y';
while (ulang = 'y') do
begin
balik:
clrscr;
writeln('==========================');
writeln('== PT. MAJU MUNDUR JAYA ==');
writeln('==========================');
write('Nama karyawan : ');
readln(Nama);
write('Golongan (a/b/c) : ');
readln(Golongan);
write('Jam Lembur :');
readln(JamLembur);
if (Golongan = 'a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
Gajipokok := 500000;
TotalGaji := Gaji + UpahLembur;
writeln('=====================================================================');
writeln(' Perhitungan Gaji Karyawan ');
writeln('=====================================================================');
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',gajipokok:5:2);
writeln('Gaji Lemburan : ',upahlembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = 'b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('=====================================================================');
writeln(' Perhitungan Gaji Karyawan ');
writeln('=====================================================================');
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',gajipokok:5:2);
writeln('Gaji Lemburan : ',upahlembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = 'c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('=====================================================================');
writeln(' Perhitungan Gaji Karyawan ');
writeln('=====================================================================');
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',gajipokok:5:2);
writeln('Gaji Lemburan : ',upahlembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('Golongan Yang anda masukan salah');
end;
writeln('========================================================================');
write('Anda Mau mengulangi Kembali ( y / t ) ? : ');
readln(ulang);
if ulang = 't' then
end;
begin
clrscr;
writeln('====================================================');
writeln('== Terima Kasih Anda Telah Menggunakan Program ini == ');
writeln('====================================================');
end;
end.
Kelompok 5
1. Agus Edi saputra 41409120056
2. Mirzanu Rizky GM 41409120047
3. Wahyu Jati Utomo 41409120057
4. Sugeng Raharjo 41409120033
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