Belanja Buku Online

Konsultan Anda
indah elmande
Independent
Oriflame Consultant
    
Sekilas Tentang Saya
Hi, selamat datang di Boss Family.
Saya indah elmande akan membantu anda untuk ikut bergabung bersama kami.
"DAFTARKAN DIRI ANDA SEKARANG!!
http://asetvirtual.com/?aff=trisnanto
"RHANA GHAIDHA AZZAHRA"
Dilahirkan di Tangerang tanggal 09 Desember 2009 Bertepatan dengan hari
"Anti Korupsi"
Semoga anak ini menjadi anak yang Shalihah dan besar kelak menjadi salah satu pelopor pemberantasan korupsi di negeri ini

Mengenai Saya

Foto saya
Jakarta Barat, Jakarta, Indonesia

Gajian Pascal

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

Tidak ada komentar:

 
Cebong`s Notez
---- Rhana-Ku. Green World Blogger Template---- © Template Design by Herro