Bagaimana cara membuat organisasi yang berhasil?berikut ini saya akan menuliskan beberapa hal yang dapat membantu anda dalam membuat suatu organisasi,agar dapat berkembang dan berhasil.
Yang pertama harus dimiliki suatu organisasi adalah nilai & visi,nilai dan visi adalah suatu tujuan yang di akan digunakan sebagai target yang harus di capai oleh suatu organisasi.Jika nilai & visi organisasi tidak ada maka organisasi itu akan rusak,karna tidak memiliki tujuan yang jelas.
Yang kedua adalah misi,misi adalah hal-hal yang harus di lakukan untuk mencapai suatu visi(tujuan).Tanpa ada misi yang jelas Visi tidak akan pernah tercapai,maka dari itu visi dan misi sangat berkaitan satu sama lain.Jika tidak memiliki misi maka organisasi tidak akan pernah mencapai visi yang diinginkan bahkan mendekati pun tidak.
Yang ketiga adalah aturan,aturan adalah batasan-batasan yang harus dimiliki organisasi.Jika suatu organisasi tidak memiliki aturan yang jelas maka bisa terjadi penyimpangan yang dapat merugikan organisasi.Bahkan akan menimbulkan konflik kepentingan,dimana setiap anggotanya hanya menginginkan keuntungan individual.
Yang keempat adalah Profesionalisme,Profesionalisme adalah bagaimana cara organisasi itu bertindak.Suatu organisasi dapat berhasil jika memiliki sikap dan sifat profesionalisme.Karna dengan sikap profesional organisasi tersebut akan memiliki citra baik di mata orang lain,dan akan menimbulkan rasa percaya dari klien dan juga rekan-rekan organisasi tersebut.
Yang kelima adalah Insentif,insentif adalah bonus atau hadiah.Intensif sangat di butuhkan oleh anggota dari suatu organisasi bila dia melakukan tugas dengan sangat baik.
Yang keenam adalah Sumber Daya,Jika suatu organisasi kehilangan sumber daya maka organisasi tersebut tidak akan bisa bergerak dengan baik.Bisa di bilang sumber daya bagaikan supply oksigen bagi kelangsungan hidup manusia,tapi sumber daya juga bisa di cari penggantinya.Jika tidak di temukan lagi sumber daya maka organisasi tersebut akan frustasi.
Yang ketujuh adalah Rencana Kerja,rencana kerja merupakan susunan kegiatan yang akan dilakukan oleh suatu organisasi.Karna bila tidak ada susunan kegiatan yang pasti dari sebuah organisasi,organisasi tersebut akan salah langkah dalam setiap kegiatan yang di lakukan.
Minggu, 17 Juli 2011
Senin, 04 Juli 2011
AKU
Mungkin...
Ku bukanlah diriku yang dulu
Bukanlah seperti apa yang orang kenal waktu itu
Ku merasa nyaman dengan segala apa yang ku rasakan dalam setiap qalbuku
Ku merasa senang dengan setiap langkahku..
Sebab ku hanya ingin menjadi diriku
Yang berjalan dalam setiap terjalan awan nan kelabu
Yang ku pikir itulah diriku
Ku bukanlah bagian itu...
Tapi ku bagian dari setiap keputusan hidupku
Untuk menentukan segala arah konsep pemikiranku
Yang ku merasa nyaman di situ
Ku harus mencoba untuk bisa menikmati Menjalani dengan sepenuh hati..
Mengikhlaskan segala apa yang telah terjadi
Dan ku coba bangun ntuk bisa menata kembali
Ku ingin bangun dan bisa berlari
Ku tak mau terus tertidur dan berdiam diri
Apalagi hanya bisa meratapi
Sebab ku bukanlah lelaki "pengecut"
Ku bukanlah diriku yang dulu
Bukanlah seperti apa yang orang kenal waktu itu
Ku merasa nyaman dengan segala apa yang ku rasakan dalam setiap qalbuku
Ku merasa senang dengan setiap langkahku..
Sebab ku hanya ingin menjadi diriku
Yang berjalan dalam setiap terjalan awan nan kelabu
Yang ku pikir itulah diriku
Ku bukanlah bagian itu...
Tapi ku bagian dari setiap keputusan hidupku
Untuk menentukan segala arah konsep pemikiranku
Yang ku merasa nyaman di situ
Ku harus mencoba untuk bisa menikmati Menjalani dengan sepenuh hati..
Mengikhlaskan segala apa yang telah terjadi
Dan ku coba bangun ntuk bisa menata kembali
Ku ingin bangun dan bisa berlari
Ku tak mau terus tertidur dan berdiam diri
Apalagi hanya bisa meratapi
Sebab ku bukanlah lelaki "pengecut"
Jawaban Quis soal No.3
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.
Jawaban soal Quis No.4
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;
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;
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;
end.
Langganan:
Postingan (Atom)