Coding Ascending Dan Descending

Gunawan Corp.

Listingnya:

Program Sorting;
uses crt;
type tarray = array [1..20] of integer;
tsort = object
dataKe, data : tarray;
jum, lokasi, jarak, x, y : integer;
isi : array [1..7] of string;
tekan : char;
pil, pilihan : byte;
procedure input;
procedure tukar(var satu,dua : integer);
procedure ambil_data;
procedure bubble;
procedure bubbleDescending;
procedure selection;
procedure exchange;
procedure insertion;
procedure tampil;
procedure menu;
procedure menu_pilih;
end;

procedure tsort.input;
var
i : integer;
begin
write('masukkan banyaknya jumlah data = ');
readln(jum);
for i := 1 to jum do
begin
write('data ke-',i,':');
readln(dataKe[i]);
end;
end;

procedure tsort.ambil_data;
var
i : integer;
begin
for i := 1 to jum do
begin
data[i] := dataKe[i];
end;
end;

procedure tsort.tukar(var satu,dua : integer);
var
temp : integer;
begin
temp := satu;
satu := dua;
dua := temp;
end;

procedure tsort.bubble;
var
i,j : integer;
begin
ambil_data;
textcolor(white);
writeln('metode bubble sort');
writeln;
write('awal : ');
tampil;
for i := 1 to jum-1 do
begin
write('i = ',i);
for j := 1 to jum-1 do
begin
if data[j] > data[j+1] then
tukar(data[j],data[j+1]);
tampil;
delay(100);
end;
writeln;
end;
write('hasil : ');
tampil;
end;

procedure tsort.bubbleDescending;
var
i,j : integer;
begin
ambil_data;
textcolor(white);
writeln('metode bubble sort Descending');
writeln;
write('awal : ');
tampil;
for i := 1 to jum-1 do
begin
write('i = ',i);
for j := 1 to jum-1 do
begin
if data[j] < data[j+1] then
tukar(data[j],data[j+1]);
tampil;
delay(100);
end;
writeln;
end;
write('hasil : ');
tampil;
end;


procedure tsort.selection;
var
i, j : integer;
begin
ambil_data;
writeln('metode selection');
writeln;
write('awal = ');
tampil;
writeln;
for i := 1 to jum-1 do
begin
lokasi := i;
for j := i+1 to jum do
begin
if data[j] < data [lokasi] then
lokasi := j;
end;
write('i = ',i);
if lokasi <> i then tukar (data[i],data[lokasi]);
tampil;
delay(100);
end;
writeln;
write('hasil = ');
tampil;
end;

procedure tsort.exchange;
var
i, j : integer;
begin
ambil_data;
writeln('metode exchange sort');
writeln;
write('awal = ');
tampil;
writeln;
for i := 1 to jum-1 do
begin
write('i = ',i);
for j := i+1 to jum+1 do
begin
if data[i] < data[j] then
tukar(data[i], data[j]);
tampil;
delay(100);
end;
writeln;
end;
write('hasil : ');
tampil;
end;

procedure tsort.insertion;
var
i, j, temp : integer;
begin
ambil_data;
textcolor(white);
writeln('metode insertion sort');
writeln;
write('awal : ');
tampil;
for i := 1 to jum do
begin
write('i = ',i);
temp := data[i];
j := i - 1;
while (data[j] > temp) and (j>=0) do
begin
data[j+1] := data[j];
j := j-1;
end;
data[j+1] := temp;
tampil;
delay(100);
end;
writeln;
write('hasil : ');
tampil;
end;

procedure tsort.tampil;
var
i : integer;
begin
for i := 1 to jum do
begin
gotoxy(i*6, whereY);
write(data[i] : 4);
end;
writeln;
end;

procedure tsort.menu;
var
i : integer;
begin
x:=30; y:=7;
isi[1] := ' input ';
isi[2] := ' bubble sort ascending';
isi[3] := ' bubble sort descending';
isi[4] := ' selection';
isi[5] := ' exchange';
isi[6] := ' insertion';
isi[7] := ' exit';
for i := 1 to 7 do
begin
gotoxy(x,y+2);
write(isi[i]);
end;
end;

procedure tsort.menu_pilih;
var
i : integer;
pilama : byte;
begin
for i := 1 to 7 do
begin
gotoxy(x,y+i);
write(isi[i]);
end;
pil := 1;
textcolor(white);
repeat
gotoxy(x,y+pil);
textbackground(blue);
write(isi[pil]);
pilama := pil;
tekan := readkey;
case ord(tekan) of
72 : pil := pil - 1;
80 : pil := pil + 1;
end;
gotoxy(x,y+pilama);
textbackground(black);
write(isi[pilama]);
if (pil > 7) then pil := 1;
if (pil < 1) then pil := 7;
textbackground(black);
until tekan = #13;
pilihan := pilama;
end;

var
sort : tsort;
keluar : boolean;
begin
clrscr;
keluar := false;
textbackground(black);
sort.menu;
textbackground(black);
sort.menu_pilih;
repeat
textbackground(black);
case sort.pilihan of
1 : begin
clrscr;
sort.input;
clrscr;
sort.menu_pilih;
end;
2 : begin
clrscr;
sort.bubble;
readln;
clrscr;
sort.menu_pilih;
end;
3 : begin
clrscr;
sort.bubbleDescending;
readln;
clrscr;
sort.menu_pilih;
end;
4 : begin
clrscr;
sort.selection;
readln;
clrscr;
sort.menu_pilih;
end;
5 : begin
clrscr;
sort.exchange;
readln;
clrscr;
sort.menu_pilih;
end;
6 : begin
clrscr;
sort.insertion;
readln;
clrscr;
sort.menu_pilih;
end;
7 : keluar := true;
end;
until keluar;
textbackground(black);
end.

by Jojo SkyLine

Manajemen pengawasan

• Pengawasan adalah proses dalam menetapkan ukuran kinerja dan pengambilan tindakan yang dapat mendukung pencapaian hasil yang diharapkan sesuai dengan kinerja yang telah ditetapkan tersebut.Controlling is the process of measuring performance and taking action to ensure desired results. (Schermerhorn,2002)

• Pengawasan adalah proses untuk memastikan bahwa segala aktifitas yang terlaksana sesuai dengan apa yang telah direncanakan . the process of ensuring that actual activities conform the planned activities. (Stoner,Freeman,&Gilbert,1995)
Konsep Pengendalian Manajemen
• Pengendalian: adalah proses untuk menjamin agar kegiatan mengarah ke tujuan yang diinginkan
• Unsur Pengendalian:
o 1. Detektor atau sensor
o 2. Assesor atau penilai
o 3. Efektor atau pengubah
o 4. Jaringan Komunikasi
• Sopir Mobil
o Mata (sensor)
o Otak (assessor)
o Kaki (effector)
o Jaringan komunikasi dari indera  otak  anggota badan
Manajemen
• Organisasi terdiri atas sekelompok orang yang bekerjasama untuk mencapai tujuan tertentu
• Tujuan organisasi bisnis adalah memperoleh laba yang memuaskan
• Pimpinan organisasi adalah manajemen
• Manajemen punya atasan dan bawahan
• Manajemen Senior menetapkan strategi untuk mencapai tujuan organisasi
…
…
• Proses pengendalian manajemen adalah kegiatan yang digunakan oleh seluruh manajemen untuk menjamin bahwa anggota organisasi bawahan yang disupervisi akan mengimplementasikan strategi yang ditetapkan
Beda Pengendalian mgt dg pengendalian tubuh atau sopir
• Standar tidak tertentu (tetap) tetapi merupakan proses perencanaan
• Pengendalian management tidak otomatis
• PM memerlukan koordinasi antar individu
• Hubungan antara tindakan yg diamati dg perilaku yg diperlukan mungkin tidak jelas
• PM banyak yg merupakan swakontrol
Pengendalian Manajemen
• Adalah suatu proses yang digunakan untuk mempengaruhi para anggota organisasi agar menerapkan strategi organisasi. Pengendalian manajemen merupakan:
o Aktivitas Pengendalian Manajemen
o Keselarasan Tujuan
o Salah satu alat implementasi Strategi, selain struktur organisasi, manajemen SDM, Budaya
o Menekankan aspek Keuangan dan Nonkeuangan
o Membantu Mengembangkan Strategi Baru
Batas Pengendalian Manajemen
• Tiga aktivitas yang memerlukan perencanaan dan pengendalian:
o Strategy Formulation
o Management Control
o Task Control
Beberapa Istilah Asing
mengenai Pengawasan
• Controlling
• Evaluating
• Appraising
• Correcting
Pengendalian Manajemen
• Adalah suatu proses yang digunakan untuk mempengaruhi para anggota organisasi agar menerapkan strategi organisasi. Pengendalian manajemen merupakan:
o Aktivitas Pengendalian Manajemen
o Keselarasan Tujuan
o Salah satu alat implementasi Strategi, selain struktur organisasi, manajemen SDM, Budaya
o Menekankan aspek Keuangan dan Nonkeuangan
o Membantu Mengembangkan Strategi Baru
Perumusan Strategi
Pengendalian Manajemen
Pengendalian Tugas
Goal, strategies & policies
Implementasi strategi
Efisien dan efektif
Aktivitas Pengendalian Manajemen
• 1. Perencanaan
• 2. Koordinasi
• 3. Komunikasi
• 4. Evaluasi
• 5. Pengambilan Keputusan
• 6. Mempengaruhi orang untuk mengubah perilakunya
• Masalah utama dalam PM adalah mendorong agar saat para anggota organisasi mencapai tujuannya sendiri, dan pada saat yang sama mereka secara otomatis membantu pencapaian tujuan organisasi (goal congruence)
Tujuan dari Fungsi Pengawasan
• adaptasi lingkungan
• meminimalkan kegagalan
• meminimumkan biaya
• mengantisipasi kompleksitas dari organisasi
Proses Pengawasan
Tidak
Ya

Penilaian
Kinerja
Pengambilan Tindakan Koreksi dan Melakukan evaluasi ulang atas Standar yang telah ditetapkan

Apakah Kinerja yang dicapai sesuai dengan Standar ?
Penentuan Standard dan Metode Penilaian Kinerja

Tujuan Tercapai

Umpan Balik
Beberapa Gejala
yang memerlukan Pengawasan
• Terjadi penurunan pendapatan atau profit, namun tidak begitu jelas faktor penyebabnya
• Penurunan kualitas pelayanan (teridentifikasi dari adanya keluhan pelanggan)
• Ketidakpuasan pegawai (teridentifikasi dari adanya keluhan pegawai, produktifitas kerja yang menurun, dan lain sebagainya)
• Berkurangnya kas perusahaan
• Banyaknya pegawai atau pekerja yang menganggur
• Tidak terorganisasinya setiap pekerjaan dengan baik
• Biaya yang melebihi anggaran
• Adanya penghamburan dan inefisiensi
Pengawasan berdasarkan Proses Kegiatan
Feedforward Controls
Memastikan bahwa petunjuk yang jelas dan faktor input yang ditetapkan telah tersedia
Concurrent Controls
Memastikan bahwa segala proses dan perangkat penunjang berjalan sebagaimana mestinya
Postaction Controls
Memastikan bahwa output yang dihasilkan sesuai dengan standar yang telah ditetapkan
Awal
Proses
Akhir
Beberapa faktor yang terkait dengan Pengawasan dalam Bidang SDM
• Penerapan Employee Discipline System
• Adanya Career Path
• Pemahaman Manajer atas Motivasi, Kepuasan, serta Gaya Kepemimpinan yang diterapkan
Pengawasan di Bagian Informasi
• Penggunaan Teknologi Komputer dan Teknologi Informasi
• Penerapan Sistem Informasi Manajemen
Pengawasan di Bagian Keuangan
• Analisis Laporan Keuangan (Financial Statement Analysis)
• Manajemen Kas (Cash Management)
• Pengelolaan Biaya (Cost Control)
Pengawasan di Bagian Pemasaran
• Evaluasi atas Pasar Sasaran dan Pasar Potensial
• Survey atas Perilaku Konsumen dan berbagai Faktor yang terkait dengan Konsumen
• Evaluasi atas Strategi Pemasaran dan Bauran Pemasaran yang dilakukan
Pengawasan di Bagian Produksi/Operasi
• Evaluasi atas Plant Location
• Evaluasi atas Plant Lay-out
• Evaluasi atas Production Process and Schedule
• Evaluasi atas Product Distribution
Mempertahankan (Memelihara)
Fungsi Pengawasan
• Sistem pengawasan tradisional (traditional control system)
• sistem pengawasan yang berdasarkan komitmen (commitment-based control system).
Sumber : http://webcache.googleusercontent.com/search?q=cache:gurGYFKVUDgJ:luluk.staff.gunadarma.ac.id/Downloads/files/9032/Pertemuan%2Bketigabelas.ppt+pengertian+manajemen+pengawasan&cd=1&hl=id&ct=clnk&gl=id&client=firefox-a