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

Program Kelompok Funtastic Four

uses wincrt;

var
Nama,Golongan:string;
JamLembur:integer;
Gaji,UangLembur,UpahLembur,TotalGaji:real;
ulang:char;

label
balik;

begin
ulang := 'y';
while (ulang = 'y') do
begin
balik:
clrscr;
writeln('Program Kelompok Funtastic Four');
writeln('Ketua Rizal');
writeln('Anggota1 Teguh, Sugi, Galang');
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('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('Golongan : ',Golongan);
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('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else

begin
write('Tidak ada golongannya');

end;
write('Untuk mengulangi masukan huruf Y ? ');
readln(ulang);

end;
if ulang = 't' then
begin
write('Selesai......');

end;

end.
 BacaSelengkapnya...

Diposting oleh Rhana-Ku di 21.38 0 komentar
Label:

Gaji Kelompok-1

{ Kelompok 1
Iman Susilo Nim : 41409120013
Agus Triwijaya Nim : 41409120064
Ridwan Effendi Nim : 41409120068
Munasor Mursidi Nim : 41409120004
}
uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : integer;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') or (ulang = 'Y') do
begin
clrscr;
write('Nama : ');
readln(Nama);
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
writeln;
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
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('Golongan : ',Golongan);
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('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
writeln('Gak ada golongannya');
writeln;
write('Mau mengulangi lagi (y/t)? ');
readln(ulang);
writeln('Selesai.......');
end;
end.
 BacaSelengkapnya...

Diposting oleh Rhana-Ku di 21.34 0 komentar
Label:

Gaji PT.Bantut

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.
 BacaSelengkapnya...

Diposting oleh Rhana-Ku di 21.31 0 komentar
Label:

Gaji Kelompok Heboh

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') or (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.

Nama Kelompok :

- Pahmi Pahrudin 41409120019
- Syaifullah Fazar Rizki 41409120002
- Eka Jovi Setiawan 41409120016
- Indra Anugrah 41409120006
- Garincha Satria Tambunan 41409110034
-
BacaSelengkapnya...

Diposting oleh Rhana-Ku di 09.48 0 komentar
Label:

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

 BacaSelengkapnya...

Diposting oleh Rhana-Ku di 08.05 0 komentar
Label:
Langganan: Postingan (Atom)
 
Cebong`s Notez
---- Rhana-Ku. Green World Blogger Template---- © Template Design by Herro