Menghitung Gaji dengan case of.. sesuai dengan jani saya,, ini saya buatkan yg pake case of.... dan memisalkan ada 5 golongan,, yang mempunyai gaji masing2....
silahkan dipahami yaaa... jangan asal ngopi... buat referensi ja ni... eh iyaa.. ini juga pakai pengulangan repeat until juga lhoo...
program Hitung_gaji;
uses crt;
var nama : string;
gol : integer;
jam_kerja : longint;
gaji_tetap : real;
gaji_pokok : longint;
gaji_lembur : real;
gaji_total : real;
gaji_perjam : longint;
finish : char;
begin
repeat
clrscr;
write ('------------Penghitungan Gaji--------------');
writeln;
writeln;
write ('Masukkan Nama Anda :'); readln (nama);
writeln;
write ('Masukkan Golongan 1/2/3/4/5 :'); readln (gol);
writeln;
write ('Masukkan Jumlah Jam kerja :'); readln (jam_kerja);
case gol of
1: gaji_pokok := 500000 + (jam_kerja * 5000);
2: gaji_pokok := 300000 + (jam_kerja * 3000);
3: gaji_pokok := 250000 + (jam_kerja * 2500);
4: gaji_pokok := 100000 + (jam_kerja * 1500);
5: gaji_pokok := 50000 + (jam_kerja * 1000);
end;
case gol of
1: gaji_perjam := 5000;
2: gaji_perjam := 3000;
3: gaji_perjam := 2500;
4: gaji_perjam := 1500;
5: gaji_perjam := 1000;
end;
clrscr;
begin
if jam_kerja > 150 then
gaji_lembur := (jam_kerja-150) * 1.5 * gaji_perjam
else
if jam_kerja <= 150 then
gaji_lembur := 0;
end;
gaji_total := gaji_pokok + gaji_lembur;
writeln;
writeln ('Gaji Pokok : Rp ',gaji_pokok);
writeln ('Gaji Lembur : Rp ',gaji_lembur:2:0);
writeln ('---------------------------------------------------- ');
writeln ('Jumlah Gaji Total Anda : Rp ',gaji_total:2:0);
writeln;
write ('Ulang Kembali ?? [Y/T] : ');
readln (finish);
until upcase (finish) <> 'Y' ;
clrscr;
writeln ('------------------------------------------');
writeln ('------------------------------------------');
writeln ('Terima Kasih telah memakai layanan kami');
writeln;
writeln;
writeln (' PT Indonesia');
readln;
end.
okoeee.. tu mudahkan... selamat mencoba... moga berhasil.....!!
Read More..
mau BISNIS online gratis
Thursday, February 25, 2010
Pascal--Menghitung Gaji Dengan Golongan
Dalam tutorial ini.... saya kan mencoba menghitung gaji dengan golongan... tapi masih memakai if..then... setelah ini.. saya akan berikan yang dengan case of...ok..... Dalam pascal ini.. penghitungan gaji lembur, gaji pokok... sangat mudah dipahami... bagi para pemula....coba saja.....ceeiiii
program Hitung_gaji;
uses crt;
var nama : string;
gol : integer;
jam_kerja : integer;
gaji_tetap : real;
gaji_hadir : real;
gaji_lembur : real;
gaji_total : real;
gaji_perjam : real;
finish : char;
begin
repeat
clrscr;
write ('------------Penghitungan Gaji--------------');
writeln;
writeln;
write ('Masukkan Nama Anda :'); readln (nama);
writeln;
write ('Masukkan Golongan 1/2/3/4/5 :'); readln (gol);
writeln;
write ('Masukkan Jumlah Jam kerja :'); readln (jam_kerja);
if gol = 1 then begin
gaji_perjam := 5000 ;
gaji_tetap := 500000;
end;
if gol = 2 then begin
gaji_perjam := 3000;
gaji_tetap := 300000;
end;
if gol = 3 then begin
gaji_perjam := 2000;
gaji_tetap := 250000;
end;
if gol = 4 then begin
gaji_perjam := 1500;
gaji_tetap := 100000;
end;
if gol = 5 then begin
gaji_perjam := 1000;
gaji_tetap := 50000;
end;
gaji_hadir := jam_kerja * gaji_perjam;
gaji_total := gaji_tetap + gaji_hadir + gaji_lembur;
if jam_kerja > 150 then
gaji_lembur := (jam_kerja-150)*1.5*gaji_perjam
else
if jam_kerja <= 150 then gaji_lembur := 0; writeln; writeln ('Gaji Pokok : Rp ',gaji_tetap:0:2); writeln ('Gaji Hadir : Rp ',gaji_hadir:0:2); writeln ('Gaji Lembur : Rp ',gaji_lembur:0:2); writeln ('---------------------------------------------------- '); writeln ('Jumlah Gaji Total Anda : Rp ', gaji_total:0:2); writeln; write ('Ulang Kembali ?? [Y/T] : '); readln (finish); until upcase (finish) <> 'Y' ;
clrscr;
writeln ('------------------------------------------');
writeln ('------------------------------------------');
writeln ('Terima Kasih telah memakai layanan kami');
writeln;
writeln;
writeln (' PT Indonesia');
readln;
end.
Selamat Mencoba yaaaaaa...... Gud Lucckkk...!!!^_^ Read More..
program Hitung_gaji;
uses crt;
var nama : string;
gol : integer;
jam_kerja : integer;
gaji_tetap : real;
gaji_hadir : real;
gaji_lembur : real;
gaji_total : real;
gaji_perjam : real;
finish : char;
begin
repeat
clrscr;
write ('------------Penghitungan Gaji--------------');
writeln;
writeln;
write ('Masukkan Nama Anda :'); readln (nama);
writeln;
write ('Masukkan Golongan 1/2/3/4/5 :'); readln (gol);
writeln;
write ('Masukkan Jumlah Jam kerja :'); readln (jam_kerja);
if gol = 1 then begin
gaji_perjam := 5000 ;
gaji_tetap := 500000;
end;
if gol = 2 then begin
gaji_perjam := 3000;
gaji_tetap := 300000;
end;
if gol = 3 then begin
gaji_perjam := 2000;
gaji_tetap := 250000;
end;
if gol = 4 then begin
gaji_perjam := 1500;
gaji_tetap := 100000;
end;
if gol = 5 then begin
gaji_perjam := 1000;
gaji_tetap := 50000;
end;
gaji_hadir := jam_kerja * gaji_perjam;
gaji_total := gaji_tetap + gaji_hadir + gaji_lembur;
if jam_kerja > 150 then
gaji_lembur := (jam_kerja-150)*1.5*gaji_perjam
else
if jam_kerja <= 150 then gaji_lembur := 0; writeln; writeln ('Gaji Pokok : Rp ',gaji_tetap:0:2); writeln ('Gaji Hadir : Rp ',gaji_hadir:0:2); writeln ('Gaji Lembur : Rp ',gaji_lembur:0:2); writeln ('---------------------------------------------------- '); writeln ('Jumlah Gaji Total Anda : Rp ', gaji_total:0:2); writeln; write ('Ulang Kembali ?? [Y/T] : '); readln (finish); until upcase (finish) <> 'Y' ;
clrscr;
writeln ('------------------------------------------');
writeln ('------------------------------------------');
writeln ('Terima Kasih telah memakai layanan kami');
writeln;
writeln;
writeln (' PT Indonesia');
readln;
end.
Selamat Mencoba yaaaaaa...... Gud Lucckkk...!!!^_^ Read More..
Friday, February 19, 2010
Jangan Menyerah,,,!!!
Tak kan kuhentikan kaki ini melangkah
Tak kan kubiarkan otak ini berhenti berpikir
Tak kan kuhilangkan mimpi-mimpi
Terus lalui
Terus Berlari
Terus teguhkan hati
Lepaskan ikatan hitam
Buang khayalan gelap
Hadapi hidup degan terang
Terang dari Tuhan semesta Alam
Read More..
Tak kan kubiarkan otak ini berhenti berpikir
Tak kan kuhilangkan mimpi-mimpi
Terus lalui
Terus Berlari
Terus teguhkan hati
Lepaskan ikatan hitam
Buang khayalan gelap
Hadapi hidup degan terang
Terang dari Tuhan semesta Alam
Read More..
Tuesday, February 9, 2010
KENALI, RAIH, GENGGAM DAN JAGA
Semua orang mempunyai mimpi dan harapan. Mimpi sebenarnya bisa juga mencegah gangguan emosi pada setiap orang, namun bila hanya mimpi tanpa kenyataan itu justru menggangu pikiran. Seperti halnya pekerjaan sia-sia dan menghabiskan waktu walau memang cuma dalam konsep (hanya khayalan). Dan kalau memang mimpi milik semua orang seharusnya tidak terbatasi karena kekuasaan dan mimpi bukan hanya milik orang yang punya uang saja tapi semua orang berhak akan hal itu. Jadi jangan pernah takut akan bermimpi bro atau sis..?! J
Mimpi banyak yang salah jurusan karena kita tidak sadar apa yang sebenarnya kita ingini karena kita tidak kenal mimpi kita sendiri hanya berdasarkan hinggap pergi dan pergi lagi. So sudah saatnya bukan kita mengenal mimpi kita sendiri..?! karena bila kita kenal dengan mimpi kita, pastinya kita bukan hanya menjadikan mimpi sebagai khayalan tapi menjadikan hal itu untuk lebih pada kenyataan dan meraihnya dengan usaha yang keras lalu menjaganya karena itulah yang kita ingini dan kita butuhkan.
Jadikan mimpi itu sebagai irama dan jadikan upaya mengejarnya sebagai tarian, carilah irama yang sangat enak di dengar sesuai seleramu dan menarilah sesuka hatimu .. !! J genggamlah sekeras kekuatanmu dan jagalah sebelum penyesalan itu datang dan mulailah memberanikan untuk jujur pada diri ini jangan mau di permainkan dengan gengsi (malu) terlebih sama gossip murahan yang belum tentu benar.. so kitalah yang menikmati dan merasakannya bukan?! Jadi tidak ada alasan buat kita bermimpi dan meraihnya.
Saya akan ambil contoh dari banyak kisah dari apa yang saya lihat dan mungkin juga saya sendiri yang merasakanya dari kehidupan kita sehari-hari.
* Apakah kalian pernah merasakan jatuh cinta atau suka sama seseorang karena mengenalnya?! Hahaha ;) jangan bilang belum deh.. pasti pernahkan tapi terserah sih mau mengakuinya apa enggak?! Kehidupan kaya kuburan aja tanpa cinta, saya menulis ini aja karena cinta tapi enggak di obral murah ya ?! Dan inilah mimpi kita bukan ?! punya cinta yang kita ingini, so jangan pernah coba berpikir dari mana rasa itu datang tinggal nikmati aja bukan?! Tapi sayang ini hanya mimpi padahal kita mau banget.. ayo boss jangan ragu buat ungkapin terus raih, genggam dan jagalah. Penyeselan pasti datang terakhir bukan?! Dan buat yang ini pasti kalian pernah juga merasakannya, masa mau di ulang-ulang seh atau apa memang hobbynya menyesal hahaha :P kasihan banget J enggak deh?! Sebelum orang itu pergi dan berlalu, bergegasalah. Dan bila seseorang itu sudah punya pilihannya sendiri so jangan gentar boss. Cobalah ungkapin perasaan kita ini walaupun hasilnya tidak sesuai dari seperti apa yang kita impikan tapi setidaknya kita sudah berani jujur pada dirinya dan diri sendiri… buat yang ini saya yakin banget kita tidak pernah ada penyesalan karena kita jelas-jelas mengetahui bukan jawabannya dan seenggak nya kita dapat meraih jawabanya walaupun bukan orangnya bro/sis..? “lakukan dan berbuatlah yang terbaik dari apa yang kita punya untuk meraihnya…” tapi inget bro/sis pakai cara yang sehat dan jujur..!!!!:)
* Buat yang sudah punya pasang atau sudah menikah, tugas kalian hanya menjaganya tapi jangan salah mengartikan tentang menjaga. Menjaga disini lebih berat karena bukan harus mencari, mengenal, meraih, terlebih harus ada tindakan bijak yaitu pengorbanan, menerima dan merawatnya atau menjaga.
* Pengorbanan
Apa yang ada di benak anda ketika melihat atau mendengar kata korban/pengorbanan..?! kalau saya pribadi pengorbanan adalah sesuatu yang merugikan siapa saja yang sedang berperan sebagai “pengorban”. Suatu usaha untuk mencapai mimpi yang hasilnya utuh adalah pengorbanan karena pengorbanan itu proses awal dan sangat penting. Pengorbanan itu seperti modal atau pondasi pada bangunan dan pengorbanan bukan mimpi, pengorbanan adalah kenyataan dari segala bentuk kerelaan dan apa saja buat sesuatu yang kita impikan.
* Menerima
Menerima itu menurut saya seperti keharusan menerima sesuatu hal yang sebenarnya tidak kita senangi dan itu sangatlah sulit tapi bila kita sudah berperan sebagai pengorban maka hal menerima itu haruslah di sikapi dengan lepas dan coba ikhlas. Menerima itu termasuk jawaban yang terus berlanjut seperti hasil yang kita dapat dan menerima yang sudah di dapat tidak berhenti begitu saja tapi berlanjut menerima segala kekurangannya.
* merawatnya atau menjaga
merawat atau menjaga sebenarnya bentuk dari keseluruhan pengorbanan dan menerima dari segala kekurangan. Dan menurut hemat saya hal itu bisa di lakukan bila kita tidak selalu di permainkan perasaan tapi terlebih memberikan waktu pada logika karena hubungan apapun yang pondasinya hanya perasaan akan mudah runtuh atau hancur maka di perlukan sesuatu hal seperti kompromi atau hal-hal yang beralasan yang bisa di terima dengan logis.
Kesimpulan yang saya ingin sampaikan pada anda adalah bahwa mimpi itu tidak akan berarti apa-apa tanpa kenyataan karena kita ini nyata maka aplikasikanlah semua mimpi anda pada khidupan dan berilah banyak waktu untuk meraih mimpi dengan jalan sikap bukan bentuk khayalan. Dan seseorang di situ bisa di ganti oleh apapun yang kita ingini.
Pesan :
1. Note ini saya buat untuk seseorang atas keraguannya selama ini dan dia menceritakan pada saya atas keluhannya jadi note ini bukan untuk mengeneralisasikan pada umum yang belum terbukti apa-apa sedang saya hanya bisa menulis ini semua. Jadi belum tentu saya juga bisa menjalaninya.
2. Note ini saya buat seakan untuk umum yang mudah-mudahan dengan sedikit pengetahuan dan pengalaman yang saya dapat bisa berbagi pada kalian semua dan semoga bermanfaat.
~ Memang nikmat membaca itu tapi lebih nikmat lagi bila kita menulis, dan terus berkarya ~
Oleh Gw Untuk Lo~ PiSs ah…!! :p
Read More..
Mimpi banyak yang salah jurusan karena kita tidak sadar apa yang sebenarnya kita ingini karena kita tidak kenal mimpi kita sendiri hanya berdasarkan hinggap pergi dan pergi lagi. So sudah saatnya bukan kita mengenal mimpi kita sendiri..?! karena bila kita kenal dengan mimpi kita, pastinya kita bukan hanya menjadikan mimpi sebagai khayalan tapi menjadikan hal itu untuk lebih pada kenyataan dan meraihnya dengan usaha yang keras lalu menjaganya karena itulah yang kita ingini dan kita butuhkan.
Jadikan mimpi itu sebagai irama dan jadikan upaya mengejarnya sebagai tarian, carilah irama yang sangat enak di dengar sesuai seleramu dan menarilah sesuka hatimu .. !! J genggamlah sekeras kekuatanmu dan jagalah sebelum penyesalan itu datang dan mulailah memberanikan untuk jujur pada diri ini jangan mau di permainkan dengan gengsi (malu) terlebih sama gossip murahan yang belum tentu benar.. so kitalah yang menikmati dan merasakannya bukan?! Jadi tidak ada alasan buat kita bermimpi dan meraihnya.
Saya akan ambil contoh dari banyak kisah dari apa yang saya lihat dan mungkin juga saya sendiri yang merasakanya dari kehidupan kita sehari-hari.
* Apakah kalian pernah merasakan jatuh cinta atau suka sama seseorang karena mengenalnya?! Hahaha ;) jangan bilang belum deh.. pasti pernahkan tapi terserah sih mau mengakuinya apa enggak?! Kehidupan kaya kuburan aja tanpa cinta, saya menulis ini aja karena cinta tapi enggak di obral murah ya ?! Dan inilah mimpi kita bukan ?! punya cinta yang kita ingini, so jangan pernah coba berpikir dari mana rasa itu datang tinggal nikmati aja bukan?! Tapi sayang ini hanya mimpi padahal kita mau banget.. ayo boss jangan ragu buat ungkapin terus raih, genggam dan jagalah. Penyeselan pasti datang terakhir bukan?! Dan buat yang ini pasti kalian pernah juga merasakannya, masa mau di ulang-ulang seh atau apa memang hobbynya menyesal hahaha :P kasihan banget J enggak deh?! Sebelum orang itu pergi dan berlalu, bergegasalah. Dan bila seseorang itu sudah punya pilihannya sendiri so jangan gentar boss. Cobalah ungkapin perasaan kita ini walaupun hasilnya tidak sesuai dari seperti apa yang kita impikan tapi setidaknya kita sudah berani jujur pada dirinya dan diri sendiri… buat yang ini saya yakin banget kita tidak pernah ada penyesalan karena kita jelas-jelas mengetahui bukan jawabannya dan seenggak nya kita dapat meraih jawabanya walaupun bukan orangnya bro/sis..? “lakukan dan berbuatlah yang terbaik dari apa yang kita punya untuk meraihnya…” tapi inget bro/sis pakai cara yang sehat dan jujur..!!!!:)
* Buat yang sudah punya pasang atau sudah menikah, tugas kalian hanya menjaganya tapi jangan salah mengartikan tentang menjaga. Menjaga disini lebih berat karena bukan harus mencari, mengenal, meraih, terlebih harus ada tindakan bijak yaitu pengorbanan, menerima dan merawatnya atau menjaga.
* Pengorbanan
Apa yang ada di benak anda ketika melihat atau mendengar kata korban/pengorbanan..?! kalau saya pribadi pengorbanan adalah sesuatu yang merugikan siapa saja yang sedang berperan sebagai “pengorban”. Suatu usaha untuk mencapai mimpi yang hasilnya utuh adalah pengorbanan karena pengorbanan itu proses awal dan sangat penting. Pengorbanan itu seperti modal atau pondasi pada bangunan dan pengorbanan bukan mimpi, pengorbanan adalah kenyataan dari segala bentuk kerelaan dan apa saja buat sesuatu yang kita impikan.
* Menerima
Menerima itu menurut saya seperti keharusan menerima sesuatu hal yang sebenarnya tidak kita senangi dan itu sangatlah sulit tapi bila kita sudah berperan sebagai pengorban maka hal menerima itu haruslah di sikapi dengan lepas dan coba ikhlas. Menerima itu termasuk jawaban yang terus berlanjut seperti hasil yang kita dapat dan menerima yang sudah di dapat tidak berhenti begitu saja tapi berlanjut menerima segala kekurangannya.
* merawatnya atau menjaga
merawat atau menjaga sebenarnya bentuk dari keseluruhan pengorbanan dan menerima dari segala kekurangan. Dan menurut hemat saya hal itu bisa di lakukan bila kita tidak selalu di permainkan perasaan tapi terlebih memberikan waktu pada logika karena hubungan apapun yang pondasinya hanya perasaan akan mudah runtuh atau hancur maka di perlukan sesuatu hal seperti kompromi atau hal-hal yang beralasan yang bisa di terima dengan logis.
Kesimpulan yang saya ingin sampaikan pada anda adalah bahwa mimpi itu tidak akan berarti apa-apa tanpa kenyataan karena kita ini nyata maka aplikasikanlah semua mimpi anda pada khidupan dan berilah banyak waktu untuk meraih mimpi dengan jalan sikap bukan bentuk khayalan. Dan seseorang di situ bisa di ganti oleh apapun yang kita ingini.
Pesan :
1. Note ini saya buat untuk seseorang atas keraguannya selama ini dan dia menceritakan pada saya atas keluhannya jadi note ini bukan untuk mengeneralisasikan pada umum yang belum terbukti apa-apa sedang saya hanya bisa menulis ini semua. Jadi belum tentu saya juga bisa menjalaninya.
2. Note ini saya buat seakan untuk umum yang mudah-mudahan dengan sedikit pengetahuan dan pengalaman yang saya dapat bisa berbagi pada kalian semua dan semoga bermanfaat.
~ Memang nikmat membaca itu tapi lebih nikmat lagi bila kita menulis, dan terus berkarya ~
Oleh Gw Untuk Lo~ PiSs ah…!! :p
Read More..
kasih sayang akhirat
bismillahi arrahmani arrahiim
mari wahai saudaraku semuanya kita saling menyayangi bukan hanya perkara dunia yang sementara saja tapi merilah kita sayang perkara agama untuk kebaikan masa depan akhirat yang selama-lamanya. kalo ada orang lapar kita kasih makanan kalo ada orang haus kita kasih minuman.
saat ini banyak o...rang kehausan dan kelaparan jiwanya dari makanan ruhani dan minuman hidayah, bahkan banyak orang yang keracunan syahwat dan syubhat. sampai2 ada yang bunuh diri karena terjerembab jurang kesyirikan. maka dari itu mulai detik ini juga kita harus memberi kasih saynag kepada hari akhirat yang kekal selamanya. jangan tergoda akan keindahan dunia yang cuma sementara..
Selalu Ingat Allah....!!!
Read More..
mari wahai saudaraku semuanya kita saling menyayangi bukan hanya perkara dunia yang sementara saja tapi merilah kita sayang perkara agama untuk kebaikan masa depan akhirat yang selama-lamanya. kalo ada orang lapar kita kasih makanan kalo ada orang haus kita kasih minuman.
saat ini banyak o...rang kehausan dan kelaparan jiwanya dari makanan ruhani dan minuman hidayah, bahkan banyak orang yang keracunan syahwat dan syubhat. sampai2 ada yang bunuh diri karena terjerembab jurang kesyirikan. maka dari itu mulai detik ini juga kita harus memberi kasih saynag kepada hari akhirat yang kekal selamanya. jangan tergoda akan keindahan dunia yang cuma sementara..
Selalu Ingat Allah....!!!
Read More..
Subscribe to:
Posts (Atom)
pay to click
