Senin, 04 Juli 2011

uses crt;

type

Dosen = record

kode : string[3];

nama : string;

pen : string;

kea : string;

end;

Mahasiswa= Record

NPM : string[7];

NAMA : string[15];

jen,jur : string[15];

thn : string;

end;

var

rDos : array[1..25] of Dosen;

rMah : array[1..15] of Mahasiswa;

i,j : byte;

Pil, lg : char;

procedure InputDosen;

Procedure FormDosen;

begin

clrscr;

gotoxy(13,3); write('INPUT DATA DOSEN');

gotoxy(5,4); write('_____________________________');

gotoxy(5,5); write('Kode Dosen :');

gotoxy(5,6); write('NAMA :');

gotoxy(5,7); write('Pendidikan :');

gotoxy(5,8); write('Keahlian :');

gotoxy(5,9); write('_____________________________');

gotoxy(5,10); write('isikan data lagi [Y/T]:');

end;

begin

repeat

Formdosen;

with Rdos[i] do

begin

gotoxy(22,5); readln(kode);

gotoxy(22,6); readln(Nama);

gotoxy(22,7); readln(pen);

gotoxy(22,8); readln(kea);

gotoxy(29,10); readln(lg);

inc(i);

end;

until upcase(lg)='T';

end;

procedure InputMahasiswa;

Procedure FormMahasiswa;

begin

clrscr;

gotoxy(13,3); write('INPUT DATA MAHASISWA');

gotoxy(5,4); write('_____________________________');

gotoxy(5,5); write('NPM :');

gotoxy(5,6); write('NAMA :');

gotoxy(5,7); write('Jenjang :');

gotoxy(5,8); write('Jurusan :');

gotoxy(5,9); write('Tahun :');

gotoxy(5,10); write('_____________________________');

gotoxy(5,11); write('isikan data lagi [Y/T]:');

end;

begin

repeat

FormMahasiswa;

with Rmah[i] do

begin

gotoxy(22,5); readln(NPM);

gotoxy(22,6); readln(NAMA);

gotoxy(22,7); readln(jen);

gotoxy(22,8); readln(jur);

gotoxy(22,9); readln(thn);

gotoxy(29,11); readln(lg);

inc(i);

end;

until upcase(lg)='T';

end;

Procedure OutputDosen;

Procedure TabelDosen;

begin

clrscr;

gotoxy(10,4); write(' INPUT DATA DOSEN');

gotoxy(3,5); write('___________________________________________________');

gotoxy(3,6); write(' NO Kode Nama Pendidikan Keahlian');

gotoxy(3,7); write('---------------------------------------------------');

end;

begin

TabelDosen;

for j:=1 to I-1 do

begin

with RDos[j] do

begin

gotoxy(5,7+j); write(j:1,' ',kode:4);

gotoxy(15,7+j); write(nama);

gotoxy(30,7+j); write(pen);

gotoxy(43,7+j); write(kea);

end;

gotoxy(3,9+j); write('___________________________________________________');

repeat until keypressed;

end;

Procedure OutputMahasiswa;

Procedure TabelMahasiswa;

begin

clrscr;

gotoxy(10,4); write(' INPUT DATA MAHASISWA');

gotoxy(3,5); write('____________________________________________________________________________');

gotoxy(3,6); write(' NO NPM NAMA Jenjang Jurusan Tahun');

gotoxy(3,7); write('----------------------------------------------------------------------------');

end;

begin

TabelMahasiswa;

for j:=1 to I-1 do

begin

with RMah[j] do

begin

gotoxy(5,7+j); write(j:0,' ',NPM:8,' ',NAMA);

gotoxy(33,7+j); write(jen);

gotoxy(44,7+j); write(jur);

gotoxy(56,7+j); write(thn);

end;

gotoxy(3,7+j); write('_____________________________________________________________________________');

repeat until keypressed;

end;

procedure menu;

begin

clrscr;

gotoxy(20,2); write('MENU PEGAWAI');

gotoxy(10,3); write('_________________________________________');

gotoxy(10,4); write('[1]. Input Data Dosen');

gotoxy(10,5); write('[2]. Input Data Mahasiswa');

gotoxy(10,6); write('[3]. Output data Dosen');

gotoxy(10,7); write('[4]. Output data Mahasiswa');

gotoxy(10,8); write('[5]. Keluar Program');

gotoxy(10,9); write('__________________________________________');

gotoxy(10,10); write('Pilihan :');

end;

begin{Program Utama}

i:=1; Pil:='1';

while Pil<>'5' do

begin

menu;

pil:=readkey;

case Pil of

'1': InputDosen;

'2': InputMahasiswa;

'3': OutputDosen;

'4': OutputMahasiswa;

end;

end.

uses crt;

var

kd : byte;

sts : string;

nm,nik : string;

gaji : longint;

tot : real;

tj,tjk : real;

lg : char;

begin

clrscr;

repeat

gotoxy(3,3); write('Kode :'); readln(kd);

gotoxy(3,4); write('Nama :'); readln(nm);

gotoxy(3,5); write('NIK :'); readln(nik);

gotoxy(3,6); write('Status :'); readln(sts);

gotoxy(3,7); write('______________________');

gotoxy(3,8); write('Input lagi [Y/T] :'); readln(lg);

until upcase(lg)='T';

if kd =1 then

begin

gaji :=2500000;

tj :=0.35;

end else if kd =2 then

begin

gaji :=2000000;

tj :=0.10;

end else if kd =3 then

begin

gaji :=1500000;

tj :=0.05;

end;

if sts ='menikah' then tjk :=0.15;

tot :=gaji+(tj*gaji)+(gaji*tjk);

gotoxy(5,10); writeln('Kode jabatan :',kd);

gotoxy(5,12); writeln('Nama :',nm);

gotoxy(5,13); writeln('NIK :',nik);

gotoxy(5,14); writeln('Status :',sts);

gotoxy(5,15); writeln('Gaji :Rp.',gaji);

gotoxy(5,16); writeln('Tunjangan :',tj:2:2);

gotoxy(5,17); writeln('tunjangan keluarga:',tjk:2:2);

gotoxy(5,18); writeln('Total gaji :Rp.',tot:4:0);

readln;

end.

Sabtu, 02 Juli 2011

Bekerja untuk Hidup atau Hidup untuk Bekerja ?

Pada jaman dahulu, ada seorang kaisar yang mengatakan kepada penunggang kudanya, apabila ia pergi mengendarai kudanya dan menjangkau wilayah sebanyak yang ia mampu, maka sang kaisar akan memberikan wilayah sebanyak yang ia jangkau. Tentu saja, sang penunggang kuda dengan cepat melompat naik ke atas kudanya dan secepat mungkin pergi untuk menjangkau wilayah sebanyak mungkin. Dia terus memacu dan memacu, mencambuk kudanya untuk pergi secepat mungkin. Ketika ia merasa lapar atau lelah, dia tidak berhenti karena dia ingin memperoleh wilayah sebanyak mungkin.

Pada akhirnya, ketika ia telah menjangkau wilayah yang cukup besar, ia kelelahan dan sekarat. Sang penunggang kuda lalu bertanya kepada dirinya sendiri, “Mengapa aku memaksa diriku begitu keras untuk menjangkau begitu banyak wilayah? Sekarang saya sekarat dan aku hanya memerlukan sebidang tanah yang sangat kecil untuk menguburkan diriku sendiri.”

Kisah di atas sama dengan perjalanan hidup kita. Setiap hari kita memaksa diri kita dengan keras untuk menghasilkan lebih banyak uang, kekuasaan atau ketenaran. Kita mengabaikan kesehatan kita, waktu bersama keluarga, sahabat, lingkungan sekitar dan hobi yang kita sukai. Suatu hari, ketika kita melihat ke belakang, kita akan menyadari bahwa kita sebenarnya tidak membutuhkan uang, kekuasaan atau ketenaran sebanyak itu, namun kita tidak bisa mengembalikan waktu-waktu yang telah kita lewatkan.

Hidup ini bukan tentang menghasilkan uang, mendapatkan kekuasaan atau ketenaran.

Hidup ini jelas bukan tentang pekerjaan! Bekerja hanya diperlukan untuk membuat kita tetap bisa bertahan hidup sehingga kita bisa menikmati keindahan dan kebahagian dari kehidupan.Hidup adalah keseimbangan antara bekerja dan bermain, Keluarga, sahabat dan waktu pribadi.Anda harus memutuskan bagaimana anda ingin menyeimbangkan hidup anda.

Tentukan dan atur prioritas hidup anda. Hidup ini rapuh, Hidup ini singkat. Jangan sia-siakan hidup anda, seimbangkan gaya hidup dan nikmatilah KEHIDUPAN.

Aktivitas Sehari-hari.

Sewaktu kami sedang mempersiapkan artikel yang and abaca ini ; kami baru mengalami sedikit gangguan pada system computer kami . Seperti anda yang haus akan informasi dan mengikuti trend yang ada , kami juga mengikuti dan menjadi member dari beberapa milis di internet ; beberapa hari yang lalu , ada seorang yang sangat banyak waktu luangnya , sehingga daripada menganggur ia mengirimkan berbagai macam virus melalui milis tadi , dan seperti yang sudah anda duga , dan mungkin beberapa dari anda juga sudah pernah mengalaminya , sewaktu kami membuka milis yang kami kira isinya aman aman saja ; masuklah virus tersebut ke computer kami , dan hebatnya lagi , beberapa jam kemudian ( catat kawan , hanya sekitar 1-2 jam kemudian ) , seluruh system computer kami lumpuh , tidak dapat dipakai ; dan untuk perbaikannya , kesemuanya membutuhkan waktu yang cukup lama, dan biaya yang tidak sedikit ; terkait dengan hal tersebut , kadang kami berfikir ternyata masih saja ada orang dinegara kita ini , yang "iseng" dan sengaja agar orang lain celaka ; walaupun mungkin saja korbannya itu sama sekali tidak kenal si pengirim virus ; apabila ia sedikit merenung, bila yang komputernya itu rusak adalah sebuah keluarga yang pas pasan , dimana sepuluh ribu rupiah sangat berarti bagi mereka ,dimana computer yang ada diperlukan untuk mencari sesuap nasi , bukankah si pengirim virus itu telah melakukan hal yang sangat keji......bila computer keluarga tersebut lumpuh akibat virus kirimannya , aneh tapi nyata , apa kesalahan yang telah diperbuat oleh para orang tua mereka ya , sehingga memiliki anak seperti si pengirim virus itu ?OK, tidak usah kita perpanjang lagi , kita mulai saja membahas topik kita bulan ini ; CEO kami pernah sedikit berbincang bincang bersama kami tentang bagaimana Musik mengawali seluruh aktivitas dan mengakhiri aktivitas rutinnya dalam 1 hari .

Saat bangun sekitar pukul 5 pagi, dan setelah selesai menjalankan ibadah kepada Penciptanya , teman saya itu langsung ditemani oleh dua lagu dari jenis Chant of gregorian dan (lagu kebangsaannya ) Life in Mono dari kelompok Mono ;dan pada saat itu suara Siobhan de Mare ( vocalist Mono) betul betul dirasakannya sebagai penyempurna mimpi indahnya tadi malam ; sekitar 30 menit lagu yang durasinya cukup pendek itu diulang ulang , maka ia sudah mulai merasakan adanya semangat dan gairah baru dihari itu , setelah mandi, sarapan, dan bersiap siap untuk aktivitasnya , maka dari piranti elektronik yang ada di mobilnya , terdengar teriakan Joey Tempest melalui Final Countdown-nya Europe dan Life in Mono-nya Mono ; menurutnya ; hidup terasa lain bila tidak dimulai dengan ke dua lagu tersebut ( ???? ) , well mungkin apa yang anda pikirkan sama dengan yang saya pikirkan , itu hanyalah sugesti ; tapi siapa perduli itu sugesti atau bukan , karena walaupun itu sugesti , itu memberikan good influence buat saya ..( begitu teman saya berfikir ) . Setengah jam kedua lagu tersebut , membakar semangat dia , setelah itu baru ia mendengarkan radio ; dalam hal ini mungkin ia agak sedikit tidak tahu malu , karena ternyata radio yang didengar setiap pagi adalah radio untuk konsumsi umur 14 - 18 tahun , sangat ..sangat .sangat tidak matching kita bilang, tapi teman saya itu bilang , ia butuh lagu lagu yang up beat and shock to maintance his spirit . Sesampainya di kantor , mulailah ia beraktivitas , dimana ia dan para budak budaknya ( sungguh...secara bercanda ia selalu menyebut rekan rekannya seperti itu ) dimanjakan oleh alunan lagu lagu yang telah melewati musyawarah dan beberapa ketentuan ketentuan pokok mengenai syair dan ketukan yang sudah pakem..alias tidak boleh dilanggar ( untuk mengetahui lebih jauh mengenai irama/lagu yang pas untuk menemani saat kerja anda silahkan buka kembali ME edisi Maret 2004).

PENDIDIKAN SAYA SEKARANG INI

Kesempatan untuk memperoleh pendidikan diberikan kepada setiap warga negara tanpa membedakan jenis kelamin, agama, suku, ras, latar belakang sosial dan tingkat kemampuan ekonomi, kecuali untuk satuan pendidikan yang bersifat khusus.

Pendidikan yang tersedia serta dapat diperoleh oleh setiap orang berada dalam jalur pendidikan sekolah maupun luar sekolah adalah pendidikan dasar, pendidikan menengah, dan pendidikan tinggi. Di samping itu dapat pula diselenggarakan pendidikan prasekolah.

Pendidikan yang saya jalani selama ini masih belum maksimal saya dapatkan. Mungkin ada beberapa faktor yang menyebabkan hal tersebut, baik saya,teman,ataupun guru dan staff pengajar juga yang kurang dalam hal pembelajaran tersebut.sama-sama kita menyadarinya,karena setiap orang tidak sama memiliki pemikiran dan kapasitas otak yang luar biasa.

Tingkatkan Kemampuan Untuk Jenjang Karir Lebih Baik

Beragam cara dapat dilakukan untuk mengasah dan meningkatkan kemampuan yang Anda miliki, antara lain dengan mengikuti program khusus melalui lembaga-lembaga pendidikan formal atau melalui pelatihan-pelatihan khusus yang bersifat non formal.

Keahlian dan kemampuan yang baik merupakan salah satu faktor penting dalam mendukung keberhasilan karir Anda. Bukan hanya bagi Anda yang saat ini sedang mencari pekerjaan tetapi juga bagi Anda yang telah bekerja dan ingin mendapatkan jenjang karir yang lebih baik. Untuk itu kemampuan yang Anda miliki harus selalu diasah dan ditingkatkan.

Untuk saat ini saya juga masih belum memenuhi kemampuan tersebut, karena saya juga masih menyadari seberapa besar kemampuan saya dalam menerima dan mencerna ilmu dari apa-apa yang saya pelajari,dan juga saya masih sulit dalam membuat suatu pemikiran,ide dan pendapat dalam memenuhinya semua.

Belajar bukan hanya setengah-setengah untuk mencapainya harus dengan niat dan obsesi juga,karena sesuatu yang kita niatkan untuk mencapainya,besar kemungkinan dan harapan akan kita raih kesuksesannya dijenjang ataupun dimasa yang akan datang…