Minggu, 24 Mei 2015
Sabtu, 23 Mei 2015
pascal program singel Linked List
program singellinkedlist;
uses crt;
type
pointer=^typedata;
typedata=record
nama :string;
berikutnya: pointer;
end;
var list, akhir :pointer;
procedure masuk_depan(var L :pointer; X:string);
var baru: pointer;
begin
new (baru);
baru^.nama :=X;
baru^.berikutnya :=nil;
if L = nil then
begin
L:= baru ;
akhir:=baru;
end
else
begin
baru^.berikutnya :=L;
L :=baru;
end;
end;
procedure sisip_tengah (var L :pointer; X, Y:string);
var baru,bantu :pointer;
begin
bantu :=L;
while bantu^.berikutnya <> nil do
begin
if bantu^.nama = y then
begin
new (baru);
baru^.nama:=x;
baru^.berikutnya := bantu^.berikutnya;
bantu^.berikutnya := baru;
end;
bantu :=bantu^.berikutnya;
end;
end;
procedure masuk_belakang (var L : pointer; X : string);
var
baru,bantu : pointer;
begin
new (baru);
baru^.nama := X;
baru^.berikutnya :=nil;
bantu :=L;
while bantu^.berikutnya <> nil do
bantu := bantu^.berikutnya;
bantu^.berikutnya :=baru;
{akhir^.next:=baru;
akhir:=baru;akhir^.next:=nil;}
end;
procedure hapus_depan(var L:pointer);
var
bantu : pointer;
begin
bantu :=L;
if L = nil then writeln ('list kosong...')
else
begin
L:= L^.berikutnya;
dispose(bantu);
end;
end;
procedure hapus_tengah (var L: pointer; X:string);
var
bantu,hapus :pointer;
begin
bantu :=L;
if L = nil then writeln ('list kosong..')
else
begin
bantu :=L;
new(hapus);
while bantu^.berikutnya <> nil do
begin
if bantu^.berikutnya^.nama = X then
begin
hapus :=bantu^.berikutnya;
bantu^.berikutnya :=hapus^.berikutnya;
dispose (hapus);
end
else
bantu:=bantu^.berikutnya;
end;
end;
end;
procedure hapus_belakang (var L: pointer);
var
baru,bantu : pointer;
begin
bantu:= L;
if bantu = nil then writeln ('list kosong...')
else
begin
while bantu^.berikutnya^.berikutnya <> nil do
bantu :=bantu^.berikutnya;
new(baru);
baru := bantu^.berikutnya;
bantu^.berikutnya :=nil;
dispose (baru)
end;
end;
procedure cetak (L : pointer);
var
bantu: pointer;
begin
bantu :=L;
while bantu <> nil do
begin
write (bantu^.nama, ' ');
bantu:= bantu^.berikutnya;
end;
end;
var
namabaru,namasisip, namahapus :string;
pil,n : integer;
lagi: boolean;
begin
lagi:=true;
new (list) ; list:= nil;
while lagi do
begin
clrscr;
writeln('1.Tambahkan Nama Depan');
writeln('2.Tambahkan Nama Belakang');
writeln('3.Sisipkan nama dimana pun yang anda mau');
writeln('4.Cetak Data List');
writeln('5.Hapus Nama Nepan');
writeln('6.Hapus Nama Tengah');
writeln('7.Hapus Nama Belakang');
writeln('8.Exit Kalau Selesai');
writeln('pilih ++> (1-8) '); readln (pil);
case pil of
1:begin
writeln('masuk nama depan');
writeln('masukan nama baru : ');readln (namabaru);
masuk_depan (list, namabaru);
end;
2:begin
writeln('masuk nama belakang');
writeln('masukan nama baru : ');readln (namabaru);
masuk_belakang (list, namabaru);
end;
3:begin
writeln('sisipkan nama');
write('masukan nama baru yang akan disisip : ');
readln (namabaru);
write('disisip setelah nama : ') ;readln (namasisip);
sisip_tengah (list,namabaru,namasisip);
end;
4:cetak(list);
5:begin
writeln('hapus nama depan');
hapus_depan (list);
cetak (list);
writeln;
end;
6:begin
writeln('hapus nama tengah');
write('masukan nama yang akan dihapus : ');
readln (namahapus);
hapus_tengah (list,namahapus);
cetak(list);
end;
7: begin
writeln('hapus nama belakang');
hapus_belakang (list);
cetak (list);
writeln;
end;
8: begin
writeln ('terimakasih');
lagi :=false
end;
end;
readln;
end;
end.
uses crt;
type
pointer=^typedata;
typedata=record
nama :string;
berikutnya: pointer;
end;
var list, akhir :pointer;
procedure masuk_depan(var L :pointer; X:string);
var baru: pointer;
begin
new (baru);
baru^.nama :=X;
baru^.berikutnya :=nil;
if L = nil then
begin
L:= baru ;
akhir:=baru;
end
else
begin
baru^.berikutnya :=L;
L :=baru;
end;
end;
procedure sisip_tengah (var L :pointer; X, Y:string);
var baru,bantu :pointer;
begin
bantu :=L;
while bantu^.berikutnya <> nil do
begin
if bantu^.nama = y then
begin
new (baru);
baru^.nama:=x;
baru^.berikutnya := bantu^.berikutnya;
bantu^.berikutnya := baru;
end;
bantu :=bantu^.berikutnya;
end;
end;
procedure masuk_belakang (var L : pointer; X : string);
var
baru,bantu : pointer;
begin
new (baru);
baru^.nama := X;
baru^.berikutnya :=nil;
bantu :=L;
while bantu^.berikutnya <> nil do
bantu := bantu^.berikutnya;
bantu^.berikutnya :=baru;
{akhir^.next:=baru;
akhir:=baru;akhir^.next:=nil;}
end;
procedure hapus_depan(var L:pointer);
var
bantu : pointer;
begin
bantu :=L;
if L = nil then writeln ('list kosong...')
else
begin
L:= L^.berikutnya;
dispose(bantu);
end;
end;
procedure hapus_tengah (var L: pointer; X:string);
var
bantu,hapus :pointer;
begin
bantu :=L;
if L = nil then writeln ('list kosong..')
else
begin
bantu :=L;
new(hapus);
while bantu^.berikutnya <> nil do
begin
if bantu^.berikutnya^.nama = X then
begin
hapus :=bantu^.berikutnya;
bantu^.berikutnya :=hapus^.berikutnya;
dispose (hapus);
end
else
bantu:=bantu^.berikutnya;
end;
end;
end;
procedure hapus_belakang (var L: pointer);
var
baru,bantu : pointer;
begin
bantu:= L;
if bantu = nil then writeln ('list kosong...')
else
begin
while bantu^.berikutnya^.berikutnya <> nil do
bantu :=bantu^.berikutnya;
new(baru);
baru := bantu^.berikutnya;
bantu^.berikutnya :=nil;
dispose (baru)
end;
end;
procedure cetak (L : pointer);
var
bantu: pointer;
begin
bantu :=L;
while bantu <> nil do
begin
write (bantu^.nama, ' ');
bantu:= bantu^.berikutnya;
end;
end;
var
namabaru,namasisip, namahapus :string;
pil,n : integer;
lagi: boolean;
begin
lagi:=true;
new (list) ; list:= nil;
while lagi do
begin
clrscr;
writeln('1.Tambahkan Nama Depan');
writeln('2.Tambahkan Nama Belakang');
writeln('3.Sisipkan nama dimana pun yang anda mau');
writeln('4.Cetak Data List');
writeln('5.Hapus Nama Nepan');
writeln('6.Hapus Nama Tengah');
writeln('7.Hapus Nama Belakang');
writeln('8.Exit Kalau Selesai');
writeln('pilih ++> (1-8) '); readln (pil);
case pil of
1:begin
writeln('masuk nama depan');
writeln('masukan nama baru : ');readln (namabaru);
masuk_depan (list, namabaru);
end;
2:begin
writeln('masuk nama belakang');
writeln('masukan nama baru : ');readln (namabaru);
masuk_belakang (list, namabaru);
end;
3:begin
writeln('sisipkan nama');
write('masukan nama baru yang akan disisip : ');
readln (namabaru);
write('disisip setelah nama : ') ;readln (namasisip);
sisip_tengah (list,namabaru,namasisip);
end;
4:cetak(list);
5:begin
writeln('hapus nama depan');
hapus_depan (list);
cetak (list);
writeln;
end;
6:begin
writeln('hapus nama tengah');
write('masukan nama yang akan dihapus : ');
readln (namahapus);
hapus_tengah (list,namahapus);
cetak(list);
end;
7: begin
writeln('hapus nama belakang');
hapus_belakang (list);
cetak (list);
writeln;
end;
8: begin
writeln ('terimakasih');
lagi :=false
end;
end;
readln;
end;
end.
contoh pascal
program datapasienRSKARIADI;
uses crt;
type
datab = ^data;
data= record
nama,png,jk,nk:String;
end;
var
x,i,a,b,y:integer;
pasien:array[1..100] of data;
procedure garis();
begin
writeln('________________________________________________________________________________');
end;
procedure input();
begin
for i:=1 to x do
begin
with pasien[i] do
begin
write(i,'.NAMA PASIEN = ');readln(nama);
write( ' JENIS PENYAKIT = ');readln(png);
write( ' JENIS KELAMIN = ');readln(jk);
write( ' NOMOR KAMAR = ');readln(nk);
writeln;
end;
end;
end;
procedure output();
begin
garis;
write('No':3); write('NAMA PASIEN':10); write('JENIS PENYAKIT':20); write('PEMBAYARAN':22); writeln('LAMA DIRUMAH SAKIT':25);
garis;
for a:=1 to x do
begin
with pasien[a] do
begin
writeln(a:2,' ':2,nama,' ':3,png:18,jk:21,nk:25);
end;
end;
garis;
end;
procedure hapus(y:integer);
var z:integer;
begin
if (y > x) or (y < 1)then
begin
writeln;
writeln('pasien dengan no ',y,' tidak tersedia');
write('Masukkan nomor pasien yang akan dihapus = ');readln(z);
writeln;
hapus(z);
end
else
begin
for b:=y to x do
begin
if x=1 then
begin
x:=1;
end
else
pasien[y]:=pasien[y+1];
end;
x:=x-1;
writeln('Data pasien berhasil diHapus');
writeln;
writeln('Data pasien setelah dihapus');
output();
end;
end;
begin
clrscr;
write('Masukkan Jumlah pasien = ');readln(x);
input();
output();
write('Masukkan nomor pasien yang akan dihapus = ');readln(y);
hapus(y);
readln;
end.
uses crt;
type
datab = ^data;
data= record
nama,png,jk,nk:String;
end;
var
x,i,a,b,y:integer;
pasien:array[1..100] of data;
procedure garis();
begin
writeln('________________________________________________________________________________');
end;
procedure input();
begin
for i:=1 to x do
begin
with pasien[i] do
begin
write(i,'.NAMA PASIEN = ');readln(nama);
write( ' JENIS PENYAKIT = ');readln(png);
write( ' JENIS KELAMIN = ');readln(jk);
write( ' NOMOR KAMAR = ');readln(nk);
writeln;
end;
end;
end;
procedure output();
begin
garis;
write('No':3); write('NAMA PASIEN':10); write('JENIS PENYAKIT':20); write('PEMBAYARAN':22); writeln('LAMA DIRUMAH SAKIT':25);
garis;
for a:=1 to x do
begin
with pasien[a] do
begin
writeln(a:2,' ':2,nama,' ':3,png:18,jk:21,nk:25);
end;
end;
garis;
end;
procedure hapus(y:integer);
var z:integer;
begin
if (y > x) or (y < 1)then
begin
writeln;
writeln('pasien dengan no ',y,' tidak tersedia');
write('Masukkan nomor pasien yang akan dihapus = ');readln(z);
writeln;
hapus(z);
end
else
begin
for b:=y to x do
begin
if x=1 then
begin
x:=1;
end
else
pasien[y]:=pasien[y+1];
end;
x:=x-1;
writeln('Data pasien berhasil diHapus');
writeln;
writeln('Data pasien setelah dihapus');
output();
end;
end;
begin
clrscr;
write('Masukkan Jumlah pasien = ');readln(x);
input();
output();
write('Masukkan nomor pasien yang akan dihapus = ');readln(y);
hapus(y);
readln;
end.
SEGITIGA PASCAL REKURSIF
program SEGITIGA_PASCAL_REKURSI;
uses crt;
var c,i,j,n,batas:integer;
procedure segitigapascal;
var num:array[1..100] of longint;
begin
if c < 1 then
begin
num[1]:=1;
writeln(1);
for i:=1 to n do
begin
batas:=(i+1) div 2;
if not odd(i)then
num[batas+1]:=num[batas]*2;
for j:=batas downto 2 do
num[j]:=num[j]+num[j-1];
for j:=1 to batas do
write(num[j],' ');
if not odd(i)then write (num[batas+1],' ');
for j:=batas downto 1 do
write(num[j],' ');
writeln;
end;
c := c+1;
segitigapascal;
end;
end;
begin
clrscr;
writeln('SEGITIGA PASCAL');
writeln('===============');
writeln;
write(' Inputkan panjang n segitiga pascal :'); readln(n);
segitigapascal;
readln;
end.
uses crt;
var c,i,j,n,batas:integer;
procedure segitigapascal;
var num:array[1..100] of longint;
begin
if c < 1 then
begin
num[1]:=1;
writeln(1);
for i:=1 to n do
begin
batas:=(i+1) div 2;
if not odd(i)then
num[batas+1]:=num[batas]*2;
for j:=batas downto 2 do
num[j]:=num[j]+num[j-1];
for j:=1 to batas do
write(num[j],' ');
if not odd(i)then write (num[batas+1],' ');
for j:=batas downto 1 do
write(num[j],' ');
writeln;
end;
c := c+1;
segitigapascal;
end;
end;
begin
clrscr;
writeln('SEGITIGA PASCAL');
writeln('===============');
writeln;
write(' Inputkan panjang n segitiga pascal :'); readln(n);
segitigapascal;
readln;
end.
SEGITIGA PASCAL
program SEGITIGA_PASCAL_BIASA;
uses crt;
var c,i,j,n,batas:integer;
procedure segitigapascal;
var num:array[1..100] of longint;
begin
num[1]:=1;
writeln(1);
for i:=1 to n do
begin
batas:=(i+1) div 2;
if not odd(i)then
num[batas+1]:=num[batas]*2;
for j:=batas downto 2 do
num[j]:=num[j]+num[j-1];
for j:=1 to batas do
write(num[j],' ');
if not odd(i)then write (num[batas+1],' ');
for j:=batas downto 1 do
write(num[j],' ');
writeln;
end;
end;
begin
clrscr;
writeln('SEGITIGA PASCAL');
writeln('===============');
writeln;
write(' Inputkan panjang n segitiga pascal :'); readln(n);
segitigapascal;
readln;
end.
uses crt;
var c,i,j,n,batas:integer;
procedure segitigapascal;
var num:array[1..100] of longint;
begin
num[1]:=1;
writeln(1);
for i:=1 to n do
begin
batas:=(i+1) div 2;
if not odd(i)then
num[batas+1]:=num[batas]*2;
for j:=batas downto 2 do
num[j]:=num[j]+num[j-1];
for j:=1 to batas do
write(num[j],' ');
if not odd(i)then write (num[batas+1],' ');
for j:=batas downto 1 do
write(num[j],' ');
writeln;
end;
end;
begin
clrscr;
writeln('SEGITIGA PASCAL');
writeln('===============');
writeln;
write(' Inputkan panjang n segitiga pascal :'); readln(n);
segitigapascal;
readln;
end.
pascal MENARAHANOI REKURSIF
program MENARA_HANOI;
uses crt;
var
L,J : integer;
A, B , C : char;
procedure MenaraHanoi(J:integer; A,B,C:char; Var L:integer);
begin
if J = 1 then
begin
L := L + 1;
write('Langkah : ',L,' ');
writeln('Pindahkan piringan 1 dari menara ',A,' ke menara ',C);
end
else
begin
MenaraHanoi(J-1,A,B,C,L);
L:= L + 1;
write('Langkah : ',L,' ');
writeln('Pindahlkan piringan ',J,' dari menara ',A,' ke menara ',C);
MenaraHanoi(J-1,B,C,A,L)
end;
end;
begin
clrscr;
write('Masukkan Jumlah Piringan = ');readln(J);
L := 0;
A := 'A';
B := 'B';
C := 'C';
MenaraHanoi(J,A,B,C,L);
readln;
end.
uses crt;
var
L,J : integer;
A, B , C : char;
procedure MenaraHanoi(J:integer; A,B,C:char; Var L:integer);
begin
if J = 1 then
begin
L := L + 1;
write('Langkah : ',L,' ');
writeln('Pindahkan piringan 1 dari menara ',A,' ke menara ',C);
end
else
begin
MenaraHanoi(J-1,A,B,C,L);
L:= L + 1;
write('Langkah : ',L,' ');
writeln('Pindahlkan piringan ',J,' dari menara ',A,' ke menara ',C);
MenaraHanoi(J-1,B,C,A,L)
end;
end;
begin
clrscr;
write('Masukkan Jumlah Piringan = ');readln(J);
L := 0;
A := 'A';
B := 'B';
C := 'C';
MenaraHanoi(J,A,B,C,L);
readln;
end.
pascal MENARA HANOI NON REKURSIF
program menarahanoi;
uses crt;
procedure MenaraHanoi (jumlah : integer;
sumber, tujuan, bantuan : char;
var langkah : integer);
begin
if jumlah = 1 then
begin
langkah := langkah + 1;
write('Langkah : ',langkah);
writeln(' Pindahkan Piringan 1 dari menara ',sumber,' ke menara ', tujuan);
end
else
begin
MenaraHanoi(jumlah-1,sumber,bantuan,tujuan,langkah);
langkah :=langkah + 1;
write('Langkah : ',langkah);
write(' Pindahkan Piringan ',jumlah);
writeln(' dari menara ',sumber ,' ke menara ',tujuan);
MenaraHanoi(jumlah-1,bantuan,tujuan,sumber,langkah);
end;
end;
var
jumlah, langkah : integer;
sumber,bantuan, tujuan : char;
begin
clrscr;
writeln('------------------------');
writeln(' Program Menara Hanoi ');
writeln('------------------------');
write('Masukkan Jumlah Piringan : ');readln(jumlah);
writeln;
langkah := 0;
sumber := 'A'; bantuan := 'B'; tujuan := 'C';
MenaraHanoi(jumlah,sumber,tujuan,bantuan,langkah);
readln;
end.
uses crt;
procedure MenaraHanoi (jumlah : integer;
sumber, tujuan, bantuan : char;
var langkah : integer);
begin
if jumlah = 1 then
begin
langkah := langkah + 1;
write('Langkah : ',langkah);
writeln(' Pindahkan Piringan 1 dari menara ',sumber,' ke menara ', tujuan);
end
else
begin
MenaraHanoi(jumlah-1,sumber,bantuan,tujuan,langkah);
langkah :=langkah + 1;
write('Langkah : ',langkah);
write(' Pindahkan Piringan ',jumlah);
writeln(' dari menara ',sumber ,' ke menara ',tujuan);
MenaraHanoi(jumlah-1,bantuan,tujuan,sumber,langkah);
end;
end;
var
jumlah, langkah : integer;
sumber,bantuan, tujuan : char;
begin
clrscr;
writeln('------------------------');
writeln(' Program Menara Hanoi ');
writeln('------------------------');
write('Masukkan Jumlah Piringan : ');readln(jumlah);
writeln;
langkah := 0;
sumber := 'A'; bantuan := 'B'; tujuan := 'C';
MenaraHanoi(jumlah,sumber,tujuan,bantuan,langkah);
readln;
end.
pascal fpb rekrusif
program FPB_WITH_REKURSI;
uses crt;
var c,a,b,z,x,y:integer;
procedure fpb;
begin
if c < 1 then
begin
x:=0;
y:=0;
for z:=a downto 1 do
begin
if ((a mod z=0) and (b mod z=0)) then
begin
x:=x+1;
if x=1 then
begin
writeln('FPB-nya adalah ',z);
c := c+1;
fpb;
end;
end;
end;
end;
end;
begin
clrscr;
Writeln('---- PROGRAM CARI FPB ----');
writeln('==========================');
writeln;
write('Inputkan bilangan pertama '); readln(a);
write('Inputkan b ilangan kedua '); readln(b);
fpb;
readln;
end.
uses crt;
var c,a,b,z,x,y:integer;
procedure fpb;
begin
if c < 1 then
begin
x:=0;
y:=0;
for z:=a downto 1 do
begin
if ((a mod z=0) and (b mod z=0)) then
begin
x:=x+1;
if x=1 then
begin
writeln('FPB-nya adalah ',z);
c := c+1;
fpb;
end;
end;
end;
end;
end;
begin
clrscr;
Writeln('---- PROGRAM CARI FPB ----');
writeln('==========================');
writeln;
write('Inputkan bilangan pertama '); readln(a);
write('Inputkan b ilangan kedua '); readln(b);
fpb;
readln;
end.
pascal FPB BIASA
program FPB_BIASA;
uses crt;
var a,b,x,y,z:integer;
begin
clrscr;
write('Inputkan bilangan pertama '); readln(a);
write('Inputkan bilangan kedua '); readln(b);
x:=0;
y:=0;
for z:=a downto 1 do
begin
if ((a mod z=0) and (b mod z=0)) then
begin
x:=x+1;
if x=1 then
begin
writeln('FPB-nya adalah ',z);
end;
end;
end;
readln;
end.
uses crt;
var a,b,x,y,z:integer;
begin
clrscr;
write('Inputkan bilangan pertama '); readln(a);
write('Inputkan bilangan kedua '); readln(b);
x:=0;
y:=0;
for z:=a downto 1 do
begin
if ((a mod z=0) and (b mod z=0)) then
begin
x:=x+1;
if x=1 then
begin
writeln('FPB-nya adalah ',z);
end;
end;
end;
readln;
end.
pascal prosedur garis
uses crt;
procedure garis;
var i,j,k:integer;
begin
textcolor(green);
for i:=1 to 3 do
begin
for j:=1 to 10 do
write('_');
writeln;
end;
writeln;
for k:=1 to 10 do
write('_');
end;
begin
clrscr;
garis;
readln;
end.
pascal fungsi phytagoras
uses crt;
var x,y:real;
function phytagoras(var a,b:real):real;
var c:real;
begin
c:=sqrt((a*a)+(b*b));
writeln('Sisi miring : ',c:2:2);
end;
begin
clrscr;
write('Masukkan alas segitiga : '); readln(x);
write('Masukkan tinggi segitiga : '); readln(y);
phytagoras(x,y);
readln;
end.
var x,y:real;
function phytagoras(var a,b:real):real;
var c:real;
begin
c:=sqrt((a*a)+(b*b));
writeln('Sisi miring : ',c:2:2);
end;
begin
clrscr;
write('Masukkan alas segitiga : '); readln(x);
write('Masukkan tinggi segitiga : '); readln(y);
phytagoras(x,y);
readln;
end.
fungsi-garis pascal
uses crt;
function garis:string;
var i,j,k:integer;
begin
textcolor(green);
for i:=1 to 3 do
begin
for j:=1 to 10 do
write('_');
writeln;
end;
writeln;
writeln;
for k:=1 to 10 do
write('_');
end;
begin
clrscr;
garis;
readln;
end.
function garis:string;
var i,j,k:integer;
begin
textcolor(green);
for i:=1 to 3 do
begin
for j:=1 to 10 do
write('_');
writeln;
end;
writeln;
writeln;
for k:=1 to 10 do
write('_');
end;
begin
clrscr;
garis;
readln;
end.
pascal Record Data Mahasiswa
program Data_mahasiswa;
uses crt;
type
mahasiswa = record
nim: string;
nama: string;
alamat:string;
end;
var
mhs : mahasiswa;
begin
clrscr;
write('Inputkan Nama ');readln(mhs.nama);
write('Inputkan NIM ');readln(mhs.nim);
write('Inputkan Alamat ');readln(mhs.alamat);
writeln(mhs.nama,'_',mhs.nim,'_',mhs.alamat);
readln;
end.
uses crt;
type
mahasiswa = record
nim: string;
nama: string;
alamat:string;
end;
var
mhs : mahasiswa;
begin
clrscr;
write('Inputkan Nama ');readln(mhs.nama);
write('Inputkan NIM ');readln(mhs.nim);
write('Inputkan Alamat ');readln(mhs.alamat);
writeln(mhs.nama,'_',mhs.nim,'_',mhs.alamat);
readln;
end.
pascal pointer
program pointer;
Uses crt;
Type ptr = ^string;
Var
ptrnama, ptrjrs, ptrnim : ptr; nama,jrs,nim : string; x,n : integer;
begin
clrscr;
writeln('data mahasiswa : ');
writeln(' ');
writeln('masukan angka : ');
readln (n);
for x := 1 to n do
begin writeln('data ke ',x);
writeln;
write('Nama = ');
readln(nama);
write('Jurusan = ');
readln(jrs);
write('nim = ');
readln(nim);
ptrnama := @nama;
ptrjrs := @jrs;
ptrnim := @nim;
writeln('nama = ',ptrnama^,'; jurusan = ',ptrjrs^,'; nim = ',ptrnim^);
end;
readln;
end.
Uses crt;
Type ptr = ^string;
Var
ptrnama, ptrjrs, ptrnim : ptr; nama,jrs,nim : string; x,n : integer;
begin
clrscr;
writeln('data mahasiswa : ');
writeln(' ');
writeln('masukan angka : ');
readln (n);
for x := 1 to n do
begin writeln('data ke ',x);
writeln;
write('Nama = ');
readln(nama);
write('Jurusan = ');
readln(jrs);
write('nim = ');
readln(nim);
ptrnama := @nama;
ptrjrs := @jrs;
ptrnim := @nim;
writeln('nama = ',ptrnama^,'; jurusan = ',ptrjrs^,'; nim = ',ptrnim^);
end;
readln;
end.
pascal nilai lulus
program Nilai_Lulus_UTS;
uses crt;
var
Nilai:real;
begin
clrscr;
writeln ('Mengetahui Nilai Lulus UTS');
writeln;
write ('Nilai UTS = ');readln(Nilai);
if Nilai>=75 then
writeln ('Lulus')
else
writeln ('Mengulang');
readln;
end.
uses crt;
var
Nilai:real;
begin
clrscr;
writeln ('Mengetahui Nilai Lulus UTS');
writeln;
write ('Nilai UTS = ');readln(Nilai);
if Nilai>=75 then
writeln ('Lulus')
else
writeln ('Mengulang');
readln;
end.
luas dengan 2 proses pascal
program luas;
uses crt;
var
a,b,L,d:integer;
begin
clrscr;
writeln ('masukan panjang=');readln (a);
writeln ('masukan lebar =');readln(b);
L:=a*b;
writeln ('luas adalah:',L);
if ( L mod 2= 0 ) then
writeln ('genap')
else
writeln ('ganjil');
readln;
end.
uses crt;
var
a,b,L,d:integer;
begin
clrscr;
writeln ('masukan panjang=');readln (a);
writeln ('masukan lebar =');readln(b);
L:=a*b;
writeln ('luas adalah:',L);
if ( L mod 2= 0 ) then
writeln ('genap')
else
writeln ('ganjil');
readln;
end.
pascal stack hanoi dengan single linked list
Program hanoistack;
Uses crt;
type
TPole = (tpLeft, tpCenter, tpRight);
SLL=^data;
data=record
info:integer;
next:SLL;
end;
Node=SLL;
const
strPole:array[TPole] of string[6]=('left','center','right');
STACK_SIZE = 100;
var
L : SLL;
C : SLL;
R : SLL;
topPointerL,topPointerC,topPointerR : integer;
i, n : integer;
procedure InitStack;
begin
topPointerL := 0;
topPointerC := 0;
topPointerR := 0;
end;
function Pop(Var s :SLL):integer;
var t : SLL;
Begin
if (s<>nil) then begin
t:=s; pop:=s^.info; s:=s^.next;dispose(t);
end;
End;
Procedure Push(Var s:SLL; x:integer);
var q : SLL;
Begin
new(q);
q^.info:=x;
q^.next:=s;
s:=q;
End;
Procedure Display(s:SLL);
Begin
while s<> nil do begin
write(s^.info); s:=s^.next;
end;
writeln;
End;
procedure MoveOneDisk(const DiskNum:integer; const Origin,Destination:TPole);
begin
if strPole[Origin] = 'left' then
Pop(L)
else if strPole[Origin] = 'center' then
Pop(C)
else
Pop(R);
if strPole[Destination] = 'left' then
Push(L,DiskNum)
else if strPole[Destination] = 'center' then
Push(C,DiskNum)
else
Push(R,DiskNum);
Writeln('Move disk ',DiskNum,' from ',strPole[Origin],' to ',strPole[Destination]);
write ('L : '); display(L);
write ('C : '); display(C);
write ('R : '); display(R);
end;
procedure MoveStack (const Ndisks : integer; const Origin,Destination,Auxiliary:TPole);
begin
if Ndisks =1 then
MoveOneDisk(1,origin,Destination)
else begin
MoveStack(Ndisks - 1, Origin,Auxiliary, Destination );
MoveOneDisk(Ndisks,origin,Destination);
MoveStack(Ndisks - 1, Auxiliary, Destination, origin);
end;
end;
procedure hanoi(var c_gerak : integer;cacah : integer; A, B, C : char);
begin
if (cacah > 0) then
begin
hanoi(c_gerak, cacah - 1, A, C, B);
c_gerak := succ(c_gerak);
write('Langkah ke ',c_gerak:3);
write(': pindah piringan nomor ',cacah:3);
write(': dari tonggak ',A);
write(': ke tonggak ',C);
writeln(' (',A,' -> ',C,')');
hanoi(c_gerak, cacah - 1, B, A, C);
end
end;
begin
Clrscr;
writeln('----------------------------------')
write('Masukan Jumlah Piringan : '); readln(n);
for i:= n downto 1 do
begin
Push(L,i);
end;
writeln('Elemen yang diinputkan ');
write ('L : '); display(L);
write ('C : '); display(C);
write ('R : '); display(R);
MoveStack(n,tpLeft,tpCenter,tpRight);
readln;
end.
Uses crt;
type
TPole = (tpLeft, tpCenter, tpRight);
SLL=^data;
data=record
info:integer;
next:SLL;
end;
Node=SLL;
const
strPole:array[TPole] of string[6]=('left','center','right');
STACK_SIZE = 100;
var
L : SLL;
C : SLL;
R : SLL;
topPointerL,topPointerC,topPointerR : integer;
i, n : integer;
procedure InitStack;
begin
topPointerL := 0;
topPointerC := 0;
topPointerR := 0;
end;
function Pop(Var s :SLL):integer;
var t : SLL;
Begin
if (s<>nil) then begin
t:=s; pop:=s^.info; s:=s^.next;dispose(t);
end;
End;
Procedure Push(Var s:SLL; x:integer);
var q : SLL;
Begin
new(q);
q^.info:=x;
q^.next:=s;
s:=q;
End;
Procedure Display(s:SLL);
Begin
while s<> nil do begin
write(s^.info); s:=s^.next;
end;
writeln;
End;
procedure MoveOneDisk(const DiskNum:integer; const Origin,Destination:TPole);
begin
if strPole[Origin] = 'left' then
Pop(L)
else if strPole[Origin] = 'center' then
Pop(C)
else
Pop(R);
if strPole[Destination] = 'left' then
Push(L,DiskNum)
else if strPole[Destination] = 'center' then
Push(C,DiskNum)
else
Push(R,DiskNum);
Writeln('Move disk ',DiskNum,' from ',strPole[Origin],' to ',strPole[Destination]);
write ('L : '); display(L);
write ('C : '); display(C);
write ('R : '); display(R);
end;
procedure MoveStack (const Ndisks : integer; const Origin,Destination,Auxiliary:TPole);
begin
if Ndisks =1 then
MoveOneDisk(1,origin,Destination)
else begin
MoveStack(Ndisks - 1, Origin,Auxiliary, Destination );
MoveOneDisk(Ndisks,origin,Destination);
MoveStack(Ndisks - 1, Auxiliary, Destination, origin);
end;
end;
procedure hanoi(var c_gerak : integer;cacah : integer; A, B, C : char);
begin
if (cacah > 0) then
begin
hanoi(c_gerak, cacah - 1, A, C, B);
c_gerak := succ(c_gerak);
write('Langkah ke ',c_gerak:3);
write(': pindah piringan nomor ',cacah:3);
write(': dari tonggak ',A);
write(': ke tonggak ',C);
writeln(' (',A,' -> ',C,')');
hanoi(c_gerak, cacah - 1, B, A, C);
end
end;
begin
Clrscr;
writeln('----------------------------------')
write('Masukan Jumlah Piringan : '); readln(n);
for i:= n downto 1 do
begin
Push(L,i);
end;
writeln('Elemen yang diinputkan ');
write ('L : '); display(L);
write ('C : '); display(C);
write ('R : '); display(R);
MoveStack(n,tpLeft,tpCenter,tpRight);
readln;
end.
pascal biodata
program datasiswa;
uses crt;
type
datas = ^data;
data= record
nama, alamat, hp:String;
end;
var
x,i,a,b,y:integer;
biodata:array[1..100] of data;
procedure garis();
begin
writeln('__________________________________________________________________');
end;
procedure input();
begin
for i:=1 to x do
begin
with biodata[i] do
begin
write(i,'. Nama = ');readln(nama);
write( ' Alamat = ');readln(alamat);
write( ' No. Hp = ');readln(hp);
writeln;
end;
end;
end;
procedure output();
begin
garis;
write('No':3); write('Nama':10); write('Alamat':20); writeln('Handphone':22);
garis;
for a:=1 to x do
begin
with biodata[a] do
begin
writeln(a:2,' ':2,nama:10,alamat:20,hp:22);
end;
end;
garis;
end;
procedure hapus(y:integer);
var z:integer;
begin
if (y > x) or (y < 1)then
begin
writeln;
writeln('Data dengan no ',y,' tidak tersedia');
write('Masukkan nomor data yang akan dihapus = ');readln(z);
writeln;
hapus(z);
end
else
begin
for b:=y to x do
begin
if x=1 then
begin
x:=1;
end
else
biodata[y]:=biodata[y+1];
end;
x:=x-1;
writeln('Data Berhasil diHapus');
writeln;
writeln('Data setelah dihapus');
output();
end;
end;
begin
clrscr;
write('Masukkan Jumlah Data = ');readln(x);
input();
output();
write('Masukkan nomor data yang akan dihapus = ');readln(y);
hapus(y);
readln;
end.
uses crt;
type
datas = ^data;
data= record
nama, alamat, hp:String;
end;
var
x,i,a,b,y:integer;
biodata:array[1..100] of data;
procedure garis();
begin
writeln('__________________________________________________________________');
end;
procedure input();
begin
for i:=1 to x do
begin
with biodata[i] do
begin
write(i,'. Nama = ');readln(nama);
write( ' Alamat = ');readln(alamat);
write( ' No. Hp = ');readln(hp);
writeln;
end;
end;
end;
procedure output();
begin
garis;
write('No':3); write('Nama':10); write('Alamat':20); writeln('Handphone':22);
garis;
for a:=1 to x do
begin
with biodata[a] do
begin
writeln(a:2,' ':2,nama:10,alamat:20,hp:22);
end;
end;
garis;
end;
procedure hapus(y:integer);
var z:integer;
begin
if (y > x) or (y < 1)then
begin
writeln;
writeln('Data dengan no ',y,' tidak tersedia');
write('Masukkan nomor data yang akan dihapus = ');readln(z);
writeln;
hapus(z);
end
else
begin
for b:=y to x do
begin
if x=1 then
begin
x:=1;
end
else
biodata[y]:=biodata[y+1];
end;
x:=x-1;
writeln('Data Berhasil diHapus');
writeln;
writeln('Data setelah dihapus');
output();
end;
end;
begin
clrscr;
write('Masukkan Jumlah Data = ');readln(x);
input();
output();
write('Masukkan nomor data yang akan dihapus = ');readln(y);
hapus(y);
readln;
end.
pascal queue parkir
Program SIMULASI_PARKIR;
uses crt;
const Terus = 'Tekan sembarang tombol untuk terus';
type Str10 = string[10];
Antri = ^simpul;
Simpul = record
Info : Str10;
Berikut : Antri
end;
var Depan,
Belakang : Antri;
Pilih,
P : char;
Keterangan : string;
No_Plat : Str10;
procedure INISIALISASI (var Front, Rear: Antri);
begin
new(Front);
Front^.Info := chr(0);
Front^.Berikut := Front;
Rear := Front
end;
procedure MASUK (var Front, Rear : Antri;
No_Plat : Str10);
var Baru : Antri;
begin
new(Baru);
Baru^.Info := No_Plat;
Baru^.Berikut := Front;
Rear^.Berikut := Baru;
Rear := Baru
end;
procedure KELUAR
(var Front, Rear : Antri;
NO_Plat : Str10);
var Mobil, Bantu, TM : Antri;
P : char;
Nomor : integer;
function ADA_MOBIL
(var Lok : Antri; D : Antri;
X : Str10) : boolean;
var Ada : boolean;
begin
Ada := false;
Lok := D^.Berikut;
repeat
if Lok^.Info = X then
Ada := true
else
Lok := Lok^.Berikut
until Ada or (Lok = D);
ADA_MOBIL := Ada
end;
begin
if not (ADA_MOBIL(Mobil, Front, No_Plat)) then
begin
gotoxy(40,9);
writeln('MOBIL YANG DIMAKSUD TIDAK ADA');
gotoxy(40,11);write(Terus);
P := readkey
end
else
if Mobil = Front^.Berikut then
begin
Front^.Berikut := Mobil^.Berikut;
dispose(Mobil)
end
else
begin
Bantu := Front;
clrscr;
write ('Mobil yang dikeluarkan ');
writeln('sementara:');
write('------------------------');
writeln('----------'); writeln;
Nomor := 1;
repeat
Bantu := Bantu^.Berikut;
write('Mobil ke', Nomor:3);
write(', Nomor Plat: ');
writeln(Bantu^.Info);
inc(Nomor);
until Bantu^.Berikut^.Info = No_Plat;
writeln; write(Terus);
P := readkey;
Bantu^.Berikut := Mobil^.Berikut;
dispose(Mobil)
end
end;
procedure BACA_MOBIL (Front : Antri);
var Bantu : Antri;
Nomor : integer;
P : char;
begin
Bantu := Front^.Berikut;
if Bantu = Front then
begin
gotoxy(1,4);
write('TEMPAT PARKIR KOSONG'); writeln
end
else
begin
Nomor := 1;
repeat
write('Mobil ke',Nomor:3,', Nomor');
writeln(' Plat: ',Bantu^.Info);
Bantu := Bantu^.Berikut;
inc(Nomor)
until Bantu = Front
end
end;
begin
INISIALISASI(Depan,Belakang);
repeat
clrscr; writeln('SIMULASI TEMPAT PARKIR');
write('---------------------------------');
writeln('-------------');
writeln; writeln(' M : Mobil Masuk');
writeln(' K : Mobil Keluar');
writeln(' C : Cetak Data Mobil');
writeln(' S : Selesai');
writeln; writeln(' PILIH SALAH SATU: ');
repeat
gotoxy(23,10); writeln(' ');
gotoxy(23,10); Pilih := upcase(readkey);
until Pilih in ['M','K','S','C'];
case Pilih of
'M' : Keterangan := 'MOBIL MASUK';
'K' : Keterangan := 'MOBIL KELUAR';
'C' : begin
clrscr;
write('Data Mobil di ');
writeln('Tempat Parkir');
write('--------------');
writeln('-------------'); writeln;
BACA_MOBIL(Depan); writeln;
write('Tekan sembarang tombol ');
write('untuk kembali ke menu');
P := readkey;
end;
'S' : begin
clrscr;
writeln('SIMULASI SELESAI');
writeln('----------------')
end
end;
if Pilih in ['M','K'] then
begin
gotoxy(40,5); writeln(Keterangan);
gotoxy(40,6); writeln('------------');
gotoxy(40,7);
write('Nomor plat mobil: ');
readln(No_Plat);
if Pilih = 'M' then
MASUK(Depan, Belakang,No_Plat)
else
KELUAR(Depan,Belakang,No_Plat)
end
until Pilih = 'S'
end.
uses crt;
const Terus = 'Tekan sembarang tombol untuk terus';
type Str10 = string[10];
Antri = ^simpul;
Simpul = record
Info : Str10;
Berikut : Antri
end;
var Depan,
Belakang : Antri;
Pilih,
P : char;
Keterangan : string;
No_Plat : Str10;
procedure INISIALISASI (var Front, Rear: Antri);
begin
new(Front);
Front^.Info := chr(0);
Front^.Berikut := Front;
Rear := Front
end;
procedure MASUK (var Front, Rear : Antri;
No_Plat : Str10);
var Baru : Antri;
begin
new(Baru);
Baru^.Info := No_Plat;
Baru^.Berikut := Front;
Rear^.Berikut := Baru;
Rear := Baru
end;
procedure KELUAR
(var Front, Rear : Antri;
NO_Plat : Str10);
var Mobil, Bantu, TM : Antri;
P : char;
Nomor : integer;
function ADA_MOBIL
(var Lok : Antri; D : Antri;
X : Str10) : boolean;
var Ada : boolean;
begin
Ada := false;
Lok := D^.Berikut;
repeat
if Lok^.Info = X then
Ada := true
else
Lok := Lok^.Berikut
until Ada or (Lok = D);
ADA_MOBIL := Ada
end;
begin
if not (ADA_MOBIL(Mobil, Front, No_Plat)) then
begin
gotoxy(40,9);
writeln('MOBIL YANG DIMAKSUD TIDAK ADA');
gotoxy(40,11);write(Terus);
P := readkey
end
else
if Mobil = Front^.Berikut then
begin
Front^.Berikut := Mobil^.Berikut;
dispose(Mobil)
end
else
begin
Bantu := Front;
clrscr;
write ('Mobil yang dikeluarkan ');
writeln('sementara:');
write('------------------------');
writeln('----------'); writeln;
Nomor := 1;
repeat
Bantu := Bantu^.Berikut;
write('Mobil ke', Nomor:3);
write(', Nomor Plat: ');
writeln(Bantu^.Info);
inc(Nomor);
until Bantu^.Berikut^.Info = No_Plat;
writeln; write(Terus);
P := readkey;
Bantu^.Berikut := Mobil^.Berikut;
dispose(Mobil)
end
end;
procedure BACA_MOBIL (Front : Antri);
var Bantu : Antri;
Nomor : integer;
P : char;
begin
Bantu := Front^.Berikut;
if Bantu = Front then
begin
gotoxy(1,4);
write('TEMPAT PARKIR KOSONG'); writeln
end
else
begin
Nomor := 1;
repeat
write('Mobil ke',Nomor:3,', Nomor');
writeln(' Plat: ',Bantu^.Info);
Bantu := Bantu^.Berikut;
inc(Nomor)
until Bantu = Front
end
end;
begin
INISIALISASI(Depan,Belakang);
repeat
clrscr; writeln('SIMULASI TEMPAT PARKIR');
write('---------------------------------');
writeln('-------------');
writeln; writeln(' M : Mobil Masuk');
writeln(' K : Mobil Keluar');
writeln(' C : Cetak Data Mobil');
writeln(' S : Selesai');
writeln; writeln(' PILIH SALAH SATU: ');
repeat
gotoxy(23,10); writeln(' ');
gotoxy(23,10); Pilih := upcase(readkey);
until Pilih in ['M','K','S','C'];
case Pilih of
'M' : Keterangan := 'MOBIL MASUK';
'K' : Keterangan := 'MOBIL KELUAR';
'C' : begin
clrscr;
write('Data Mobil di ');
writeln('Tempat Parkir');
write('--------------');
writeln('-------------'); writeln;
BACA_MOBIL(Depan); writeln;
write('Tekan sembarang tombol ');
write('untuk kembali ke menu');
P := readkey;
end;
'S' : begin
clrscr;
writeln('SIMULASI SELESAI');
writeln('----------------')
end
end;
if Pilih in ['M','K'] then
begin
gotoxy(40,5); writeln(Keterangan);
gotoxy(40,6); writeln('------------');
gotoxy(40,7);
write('Nomor plat mobil: ');
readln(No_Plat);
if Pilih = 'M' then
MASUK(Depan, Belakang,No_Plat)
else
KELUAR(Depan,Belakang,No_Plat)
end
until Pilih = 'S'
end.
pascal deque parkir mobil
uses crt;
const max = 10;
type antri = array [1..max] of char;
var antrian : antri;
L,R: integer;
elemen, pilih : char;
function nihil(Q:antri):Boolean;
begin
nihil:=(L=R);
end;
function daerah_parkir_kanan_penuh(q:antri):boolean;
begin
daerah_parkir_kanan_penuh:=(R=(max-1));
end;
function daerah_parkir_kiri_penuh(q:antri):boolean;
begin
daerah_parkir_kiri_penuh:=(L=0);
end;
procedure masukkan_di_kanan(var antrian: antri; x:char);
begin
R:=R+1;
if not(nihil(antrian)) then
begin
antrian[R]:=x;
write(x);
end;
end;
procedure masukkan_di_kiri(var antrian: antri; x:char);
begin
L:=L-1;
if not(nihil(antrian)) then
begin
antrian[L]:=x;
write(x);
end;
end;
procedure keluarkan_mobil_kanan (var antrian: antri);
begin
if (L<R+1) then
begin
elemen:=antrian[R];
R:=R-1;
end
else writeln('Antrian nihil');
end;
procedure keluarkan_mobil_kiri (var antrian: antri);
begin
if (L<R+1) then
begin
elemen:=antrian[L];
L:=L+1;
end
else writeln('Antrian nihil');
end;
procedure cetak;
var
i:byte;
begin
for i:= L to R do
write(antrian[i]);
end;
begin
clrscr;
L:=5;
R:=5;
repeat
clrscr;
writeln('[a]. Masuk Mobil Di Kanan');
writeln('[b]. Masuk Mobil Di Kiri');
writeln('[c]. keluarkan mobil di kanan');
writeln('[d]. keluarkan mobil di kiri');
writeln('[e]. Cetak Data Parkir');
writeln('[f]. Selesai');
write('pilihan: '); readln(pilih);
case pilih of
'a' : begin
writeln('Masuk Mobil Di Kanan (maksimal 5) ');
write('isikan elemennya: ');
readln(elemen);
masukkan_di_kanan(antrian,elemen);
end;
'b' : begin
writeln('Masuk Mobil Di Kiri (maksumal 5) ');
write('isikan elemennya: ');
readln(elemen);
masukkan_di_kiri(antrian,elemen);
end;
'c' : begin
keluarkan_mobil_kanan(antrian);
end;
'd' : begin
keluarkan_mobil_kiri(antrian);
end;
'e' : begin
writeln('Data yang sudah anda masukkan: ');
cetak;
readln;
end;
end;
until pilih = 'f';
end.
end.
const max = 10;
type antri = array [1..max] of char;
var antrian : antri;
L,R: integer;
elemen, pilih : char;
function nihil(Q:antri):Boolean;
begin
nihil:=(L=R);
end;
function daerah_parkir_kanan_penuh(q:antri):boolean;
begin
daerah_parkir_kanan_penuh:=(R=(max-1));
end;
function daerah_parkir_kiri_penuh(q:antri):boolean;
begin
daerah_parkir_kiri_penuh:=(L=0);
end;
procedure masukkan_di_kanan(var antrian: antri; x:char);
begin
R:=R+1;
if not(nihil(antrian)) then
begin
antrian[R]:=x;
write(x);
end;
end;
procedure masukkan_di_kiri(var antrian: antri; x:char);
begin
L:=L-1;
if not(nihil(antrian)) then
begin
antrian[L]:=x;
write(x);
end;
end;
procedure keluarkan_mobil_kanan (var antrian: antri);
begin
if (L<R+1) then
begin
elemen:=antrian[R];
R:=R-1;
end
else writeln('Antrian nihil');
end;
procedure keluarkan_mobil_kiri (var antrian: antri);
begin
if (L<R+1) then
begin
elemen:=antrian[L];
L:=L+1;
end
else writeln('Antrian nihil');
end;
procedure cetak;
var
i:byte;
begin
for i:= L to R do
write(antrian[i]);
end;
begin
clrscr;
L:=5;
R:=5;
repeat
clrscr;
writeln('[a]. Masuk Mobil Di Kanan');
writeln('[b]. Masuk Mobil Di Kiri');
writeln('[c]. keluarkan mobil di kanan');
writeln('[d]. keluarkan mobil di kiri');
writeln('[e]. Cetak Data Parkir');
writeln('[f]. Selesai');
write('pilihan: '); readln(pilih);
case pilih of
'a' : begin
writeln('Masuk Mobil Di Kanan (maksimal 5) ');
write('isikan elemennya: ');
readln(elemen);
masukkan_di_kanan(antrian,elemen);
end;
'b' : begin
writeln('Masuk Mobil Di Kiri (maksumal 5) ');
write('isikan elemennya: ');
readln(elemen);
masukkan_di_kiri(antrian,elemen);
end;
'c' : begin
keluarkan_mobil_kanan(antrian);
end;
'd' : begin
keluarkan_mobil_kiri(antrian);
end;
'e' : begin
writeln('Data yang sudah anda masukkan: ');
cetak;
readln;
end;
end;
until pilih = 'f';
end.
end.
menara hanoi dengan stack versi 1
program stackhanoi;
uses crt;
Const
X = 3;
Z = 0;
Type
jenis = integer;
Stack = record
posisi : array[1..X] of jenis;
Top : Z..X;
End;
var
A,B,C:stack;
langkah,j:integer;
function nol(s:stack):boolean;
begin
if s.top=0 then nol:=true else nol:=false;
end;
Procedure Push (var S : stack; data: jenis);
Begin
S.Top := S.Top + 1;
S.posisi[S.Top]:= data;
End;
function POP (var S : stack):jenis;
Begin
pop := S.posisi[S.Top];
S.Top := S.Top - 1;
End;
procedure output (var s:stack);
var i:integer;
begin
if nol(s) then write ('') else
begin
for i:=1 to s.top do
write(s.posisi[i],' ');
end;
writeln;
end;
begin
push(A,3); push(A,2); push(A,1);
for j:=0 to 7 do begin
clrscr;
langkah:=j;
case langkah of
1: begin
pop(A); push(C,1);
end;
2: begin
pop(A); push(B,2);
end;
3: begin
pop(C); push(B,1);
end;
4: begin
pop(A); push(C,3);
end;
5: begin
pop(B); push(A,1);
end;
6: begin
pop(B); push(C,2);
end;
7: begin
pop(A); push(C,1);
end;
end;
write('Tower A : '); output(A);
write('Tower B : '); output(B);
write('Tower C : '); output(C);
readln;
end;
end.
uses crt;
Const
X = 3;
Z = 0;
Type
jenis = integer;
Stack = record
posisi : array[1..X] of jenis;
Top : Z..X;
End;
var
A,B,C:stack;
langkah,j:integer;
function nol(s:stack):boolean;
begin
if s.top=0 then nol:=true else nol:=false;
end;
Procedure Push (var S : stack; data: jenis);
Begin
S.Top := S.Top + 1;
S.posisi[S.Top]:= data;
End;
function POP (var S : stack):jenis;
Begin
pop := S.posisi[S.Top];
S.Top := S.Top - 1;
End;
procedure output (var s:stack);
var i:integer;
begin
if nol(s) then write ('') else
begin
for i:=1 to s.top do
write(s.posisi[i],' ');
end;
writeln;
end;
begin
push(A,3); push(A,2); push(A,1);
for j:=0 to 7 do begin
clrscr;
langkah:=j;
case langkah of
1: begin
pop(A); push(C,1);
end;
2: begin
pop(A); push(B,2);
end;
3: begin
pop(C); push(B,1);
end;
4: begin
pop(A); push(C,3);
end;
5: begin
pop(B); push(A,1);
end;
6: begin
pop(B); push(C,2);
end;
7: begin
pop(A); push(C,1);
end;
end;
write('Tower A : '); output(A);
write('Tower B : '); output(B);
write('Tower C : '); output(C);
readln;
end;
end.
MAKALAH INTERPERSONAL SKILL IS DALAM ORGANISASI DAN COMPUTER SCIENCE
MAKALAH
INTERPERSONAL
SKILL
IS DALAM ORGANISASI DAN
COMPUTER SCIENCE
Disusun untuk memenuhi
Tugas Mata Kuliah
Dosen Pengampu: Florentina
Yuni Arini, S.Kom., M.Cs
Disusun
Oleh:
KOKO
HENDRIAWAN
4611414039
Prodi
Teknik Informatika
JURUSAN
ILMU KOMPUTER
FAKULTAS
MATEMATIKA DAN ILMU PENGETAHUAN ALAM
UNIVERSITAS
NEGERI SEMARANG
2015
KATA
PENGANTAR
Di
dorong oleh rasa tanggung jawab yang besar sebagai mahasiswa , saya membuat
makalah ini untuk menyelesaikan tugas membuat makalah tentang
interpersonal skill. Makalah yang saya buat ini di harapkan mampu sedikit
banyak membantu untuk memahami dan mengerti tentang apa itu interpersonal
skill.Materi dalam makalah ini sebagian saya ambil dari materi ajar yang
diberikan oleh dosen pengajar dan beberapa yang saya ambil dari internet.
Sebagai penyusun , saya berharap makalah ini bermanfaat sebagai penambah
pengetahuan tentang apa itu interpesoanl skill. Saya juga sangat mengharapkan
banyak masukan kritik dan saran yang membangun guna untuk menyempurnakan
makalah ini agar menjadi lebih baik.
Semarang
11 maret 2015
Penyusun
Penyusun
PENDAHULUAN
interpersonal
skill adalah kecakapan atau keterampilan yang dimiliki oleh seseorang dalam
hubungannya dengan orang lain, kecakapan atau keterampilan untuk berkomunikasi
baik verbal maupun non verbal.
Interpersonal skill
1. Kemampuan, kesanggupan,
kepandaian seseorang dalam mengerjakan sesuatu terutama berkomunikasi.
2. Memiliki konsep diri dan
kepribadian yang kuat
3. Meningkatkan potensi diri di
bidangnya
4. Mengasah diri dan mengubah
kemampuan berkomunikasi
5. Berpenampilan menarik dan
menyenangkan
6. Meningkatkan human relation dalam
kehidupan bermasyarakat dan organisasi
7. Meningkatkan kemampuan menjadi
pemimpin dan dapat bekerjasama dalam team
Interpersonal skill dapat dilihat
dengan cara sebagai berikut :
1. Dalam proses interview pada saat
pertama kali masuk kerja. Karyawan yang pertama kali akan masuk akan di
interview oleh bagian HRD supaya perusaahaan dapat memahami karakter dan
potensi yang ada didalam diri karyawan baru tersebut.
2. Bukan merupakan karakter. Ini
dapat berubah sesuai apa yang ingin kita ubah.
3. Ini bisa dikembangkan. Contonya
kita dapat mengembangkan potensi yang ada didalam diri kita di bidang yang
memang kita inginkan atau kita tonjolkan.
Teori – teori Hubungan manusia
·
Hubungan
biologis : manusia dapat berhubungan dengan manusia lain menggunakan anggota
badan.
Jenis – jenis hubungan biologis
:
1. Kinesic : hubungan non
verbal yang dilakukan dengan anggota badan
2. Occulestic : hubungan non verbal
yang dilakukan dengan mata
3. Prosemic : hubungan non verbal yang
dilakukan dengan megatur jarak tubuh
·
Hubungan
ekonomis : manusia itu akan berhubungan dengan manusia lain. Contohnya pada
zaman dulu ada yang namanya transaksi barter (saling tukar menukar
barang).
·
Hubungan
estetika : estetika yaitu keindahan, manusia akan selalu ingin berhubungan
dengan manusia lain yang dianggap mempunyai keindahan.
·
Hubungan
etis : menurut teori ini hubungan sesama manusia itu bersifat wajib ( emanuel
levines )
Hubungan timbal balik antar manusia
( gilin dan gilin )
1. Interaksi sosial yang bersifat
ASOSIATI :
a. Akomodatif : sikap menampung
pendapat orang lain
b. Asimilasi : sikap suka menekan
hal – hal yang sama dan mengabaikan hal yang tidak sama antara kita dan orang
lain.
c. Akulturasi : sikap yang selalu
mengalah atau tidak memaksakan kehendak kepada orang lain, atau merubah sikap
buruk menjadi lebih baik.
2. Interaksi sosial yang bersifat
DESOSIATIFadalah sikap interaksi sosial yang dapat menimbulkan renggangnya
hubungan manusia :
a. Kompetisi : sikap yang sering
mengajak bertanding dan bersaing
b. Kontraversi : sikap yang suka
mengambek atau berdiam diri namun hatinya dongkol atau kesal.
c. Konflik :sikap yang suka
menantang atau menentang.
PERSONALITY
Keterampilan seseorang ini
melekat pada setiap
pribadi dalam persentuhannya dengan masyarakat
(baik individu maupun kelompok), yang
dalam perwujudannya akan menampilkan sikap, tingkah laku dan perbuatan yang mencerminkan keakuratan dalam
menunjang pelaksanaan tugas.
Keterampilan dasar perorangan ini,
meliputi :
A.
keterampilan mengamati (observing skill);
B.
keterampilan menggambarkan (describing skill);
C.
keterampilan mendengarkan (listening skill);
D.
keterampilan bertanya (questioning skill);
E.
keterampilan meringkas (summarizing skill);
F.
keterampilan
memberi dan menerima umpan balik (feed back skill).
Yang apabila selalu dilatihkan,
dihayati dan dilaksanakan, serta diupayakan
menginternalisasikannya dalam sikap, tingkah laku dalam perbuatan sehari-hari, akan menjembatani atau menjadi landasan pengembangan
keterampilan selanjunya.
Keterampilan dasar sebagaimana
tersebut di atas, dapat diuraikan sebagai berikut :
A. Keterampilan mengamati (observing skill)
Pengertian mengamati mempunyai arti
"Melihat dan mempehatikan
sesuatu dengan teliti, atau memperhatikan dan mengawasi
sesuatu dengan saksama".
Dengan berpedoman pada pengertian tersebut, maka yang dimaksud dengan keterampilan
mengamati disini, dapat diartikan sebagai : "Suatu keterampilan yang
dimiliki seseorang, untuk
mampu melihat dan mengamati suatu objek tertentu
yang dilakukan secara teliti dan saksama, dengan tidak menganalisis.
Keterampilan mengamati,
merupakan salah satu
bentuk keterampilan yang mutlak harus dimiliki anggota sekuriti, terutama hal ini dikaitkan dengan
tugasnya. Istilah pengamatan banyak dikenal sebagai salah satu metode yang sering digunakan
dalam rangka penelitian.
1.
Bentuk pengamatan
a.
pengamatan dengan jalan tidak turut serta
Dalam hal ini pengamat mengambil
sikap/posisi sebagai orang luar, dimana kehadirannya tidak menggangu kelompok yang sedang diamati.
Umpamanya dalam pengamatan suatu kelas yang sedang belajar, guru yang
sedang belajar, menghadiri
suatu sidang penggadilan, dll.
b.
pengamatan dengan jalan turut serta.
Dalam hal ini berbagai macam peranan yang dapat dimainkan oleh penyelidik dalam mengamati situasi-situasi sosial tertentu, dengan berbagai
macam perbedaan derajat
partisipasi/turut serta. Banyaknya macam kegiatan
yang dapat dilakukan
dalam suatu kelompok tertentu saja. Dengan jalan
turut serta dalam
kegiatan-kegiatan kelompok, ia dapat turut merasakan apa yang dirasakan oleh
anggota inti dari kelompok tersebut. Salah satu kesukaran bagi pengamat peserta, ialah bahwa setelah
melakukan kegiatan tertentu, ia harus mengambil sikap / posisi yang objektif, jika tidak demikian
maka catatan-catatannya akan terpengaruh unsur-unsur subjektif.
3. Beberapa keuntungan / keunggulan
pengamatan :
a.
pengamatan dapat
memuaskan kembali masalahnya selama pengamatan
berlang-sung terus;
b.
hubungannya erat
dengan situasi yang sebenarnya, memberikan kemungkinan baginya untuk menghindari pertanyaan-pertanyaan
yang tidak berguna;
c.
secara teratur dia dapat mengubah kategori-kategori yang diperlukan bagi pengamatannya;
d.
memberikan kemungkinan baginya untuk memperoleh bahan -
bahan yang lebih mendalam;
e.
dapat mengumpulkan bahan bahan yang pada saat itu kelihatannya tidak berhubungan
dengan masalah pengamatannya, akan tetapi mungkin akan berguna di kemudian hari.
4. Beberapa faktor yang mempenggaruhi
hasil suatu pengamatan :
a.
lama / panjangnya waktu dari setiap pengamatan;
b.
keadaan tentang
sipengamat sendiri;
c.
perumusan tentang kegiatan-kegiatan atau
unit-unit tingkah laku yang spesifik (khas)
yang diamati;
d.
ruang lingkup
pengamatan, apakah untuk satu orang atau satu
keiompok;
e.
bantu pencatatan,
termasuk didalamnya penggunaan alat-alat
yang sesuai;
f.
apakah pengamatan sudah cukup terlatih;
g.
interpretasi
hasil-hasil pengamatan.
5. Beberapa ciri khas
dari pengamatan yang baik.
a.
suatu pengamatan direncanakan dengan teliti dan sistimatis. pengamat mengetahui
benar-benar tentang apa yang dicarinya;
b.
pengamat menyadari keselurahan dari apa yang diamatinya. walaupun ia waspadai
terhadap detail-detailnya
yang berarti, tetapi ia tetap menyadari bahwa keseluruhan adalah lebih penting dari pada jumlah dari bagian-bagiannya;
c.
pengamat memisahkan tentang faktor-faktor dari interpretasi, dan membuat tafsirannya
/ interpretasinya
pada sesuatu yang lain;
d.
pengamat bersikap obyektif. la akan mengakui akan kemungkinan kecenderungan-kecenderungannya, dan ia berusaha
untuk menghilangkan
pengaruh-pengaruh ini terhadap apa yang dilihat dan dilaporkannya;
e.
pengamatan dicek dan
diperkuat, dimana mungkin, dengan mengulanginya, atau dengan membandingkan
dengan catatan-catatan pengamat lain
yang berwenang;
f.
pencatatan pengamatan dilakukan dengan teliti dan saksama.
6. Latihan-latihan
untuk mengamati suatu objek ini,
diharapkan seseorang mampu untuk :
a.
melihat
dari hal-hal umum kepada hal-hal yang khusus; menyimpan fakta fakta yang
dilihat ke dalam dan di dalam ingatannya dan
menyebutkan kembali secara benar apa yang telah diamatinya;
b.
mengambil
posisi yang tepat dikaitkan dengan jarak dan sudut pandang, sehingga akan memudahkan kegiatan pengamatan dimaksud;
c.
membiasakan diri untuk selalu mencatat, dengan mengingat adanya keterbatasan dalam daya ingat
kita.
d.
berkonsentrasi selama pengamatan itu dilaksanakan.
7. Kita menyadari, bahwa melakukan
pengamatan bukanlah merupakan hal yang mudah, sehingga apabila hal ini tidak
dilakukan melalui latihan-latihan yang baik, sangat sulit bagi seseorang untuk
memiliki keterampilan tersebut. Beberapa hal yang perlu mendapat perhatian dalam melaksanakan pengamatan ini, antara Lain :
a.
untuk dapat melakukan pengamatan yang baik, harus betul-betul dilakukan secara sistimatis,
dalam arti dilakukan mulai melihat dari hal-hal yang bersifat khusus;
b.
dalam melihat ataupun memperhatikan suatu objek , tidak mungkin dilakukan tanpa adanya
konsentrasi yang penuh terhadap objek tersebut;
c.
harus disadari, pada saat seseorang melakukan pengamatan konsentrasi akan senantiasa adanya
pengaruh yang dapat mengganggu tersebut.
d.
dalam
rangka pengamatan, kita
menyadari bahwa keterbatasan,
pada posisi sehingga dalam pelaksanaannya, harus dapat menempatkan diri pada
posisi yang tepat;
e.
selain keterbatasan tersebut di atas, karena daya ingat seseorang kemampuan
seseorang untuk melihat atau memperhatikan suatu objek juga tidak sama, untuk itu
perlu membiasakan diri dengan menggunakan
alat bantu, berupa catatan ataupun
alat-alat lainnya, pada waktu seseorang melakukan pengamatan.
B. Keterampilan menggambarkan / menjelaskan (Describing Skill)
"Suatu
keterampilan dari seseorang, untuk membayangkan,
melukiskan, atau menceritakan tentang sesuatu baik
objek, maupun peristiwa (kejadian), yang merupakan hasil dari pengamatannya,
yang disampaikan
dalam bahasa lisan, tulisan ataupun simbol-simbol. Sehingga orang lain jelas/mengerti tentang apa yang disampaikannya.
C. Keterampilan mendengarkan (Listening skill)
secara harfiah, pengertian mendengarkan
mengandung makna :
"Menangkap suara (bunyi) dengan telinga".
dengan berpedoman kepada pengertian tersebut di atas, maka yang dimaksud dengan keterampilan
mendengarkan disini, dapat diuraikan sebagai berikut : "Suatu keterampilan yang dimiliki oleh seseorang, untuk menangkap atau menyerap suara (bunyi) dengan menggunakan
indera telinga secara teliti dan cermat, sehingga mampu menyampaikannya secara benar".
D. Keterampilan Bertanya (Questioning skill)
pengertian bertanya secara harfiah, dapat diartikan
sebagai "Meminta keterangan (penjelasan
dan sebagainya), atau meminta
supaya diberitahu"
dengan mengambil pengertian
tersebut di atas, maka yang dimaksud dengan
keterampilan bertanya disini, dapat diartikan sebagai "Suatu kemampuan yang dimiliki oleh seseorang, untuk meminta
keterangan atau penjelasan kepada seseorang,
untuk mendapatkan informasi tentang apa yang belum diketahui
ataupun belum dimengertinya".
E. Keterampilan Meringkas (Summarizing skill)
secara harfiah pengertian meringkas,
dapat diartikan : "Memendekan (cerita atau pembicaraan,
mengikuti seakan, mengambii intisari saja)".
dengan mengambii pengertian tersebut di atas, maka yang dimaksud dengan keterampilan meringkas
disini, dapat diartikan sebagai berikut :
"Suatu keterampilan yang dimiliki oleh seseorang, untuk memendekkan cerita,
pembicaraan, berita / informasi, laporan dan sebagainya, dengan cara mengambil intisarinya
saja, tanpa mengurangi arti dan maksud dari pada cerita, pembicaraan, berita /
informasi ataupun lampiran tersebut".
F. Keterampilan
memberikan dan menerima umpan balik (Feed back skill)
apabila kita mengambil pengertian umpan balik ini secara harfiah, sesuai dengan yang tercantum dalam Kamus Besar Bahasa Indonesia, maka dapat diartikan sebagai:
"Suatu hasil atau akibat yang
berbalik, dan berguna bagi kita sebagai rangsangan
atau dorongan dalam pelaksanakan tindakan lebih
lanjut;
dengan titik tolak pengertian tersebut di atas, maka yang dimaksud
dengan keterampilan memberikan umpan balik disini, yaitu : suatu kemampuan/keterampilan yang dimiliki oleh seseorang untuk menyampaikan sesuatu hal kepada orang lain, tentang apa yang diihat, atau didengar dari
tindakan orang tersebut, sehingga apa yang disampaikan itu dapat dijadikan perangsang atau pendorong bagi orang tersebut, untuk
dapat melakukan tindakan yang lebih baik diwaktu yang akan datang.
Interpersonal Skill (keterampilan
interpersonal)
Interpersonal
Skill (keterampilan interpersonal) sebagai kemampuan seseorang secara efektif untuk
berinteraksi dengan orang lain maupun dengan rekan kerja, seperti pendengar
yang baik, menyampaikan pendapat secara jelas dan bekerja dalam satu tim. Pakar
lain mengatakan bahwa interpersonal skill adalah kecakapan atau keterampilan
yang dimiliki oleh seseorang dalam hubungannya dengan orang lain, kecakapan
atau keterampilan untuk berkomunikasi baik verbal maupun non verbal.
Ahli lainnya mengatakan bahwa interpersonal skill (keterampilan interpersonal)
adalah suatu keterampilan untuk mengenali dan merespon secara layak perasaan,
sikap dan perilaku, motivasi serta keinginan orang lain. Bagimana seseorang
mampu membangun hubungan yang harmonis dengan memahami dan merespon manusia
atau orang lain. Adapun beberapa interpersonal skill (keterampilan
interpersonal), antara lain :
- Keterampilan listening (mendengarkan) : Salah satu komponen dari proses komunikasi adalah bagian menerima pesan, salah satunya ialah mendengarkan. Mendengarkan bukan secara harfiah menggunakan alat pendengaran (telinga) , tetapi memiliki arti yang lebih luas dengan penggunaan alat penerimaan pesan lainnya. Berikut ini ada empat alasan utama mengapa orang perlu mendengarkan :
- Untuk memahami dan memperoleh informasi : Orang yang menguasai informasi memiliki kesempatan yang lebih besar untuk sukses, baik secara pribadi maupun konteks professional, sebab, di era sekarang, menguasai informasi berarti menguasai sumber daya. Memahami perintah, memahami pesan, memahami kebutuhan orang lain, menggali lebih banyak informasi dibutuhkan sebagai modal agar dapat berkomunikasi serta menjadi kemampuan utama untuk dapat berhasil dalam setiap pekerjaan.
- Analisis terhadap kualitas Informasi : Kemampuan seseorang untuk dapat menganalisis informasi dibutuhkan agar dapat bertindak tepat. Mendengarkan dan mendapatkan informasi lebih banyak akan meningkatkan kualitas pesan yang diterima, kelengkapan data, dan kemampuan mengolah informasi, sehingga simpulan atau analisis terhadap suatu kondisi atau keadaan dapat diambil.
- Membangun dan memelihara hubungan : Alasan untuk mendengarkan adalah untuk melakukan komunikasi interpersonal. Banyak survey telah membuktikan bahwa orang yang memiliki kemampuan untuk mendengar dengan efektif memiliki hubungan yang lebih baik dengan sesamanya, sebaliknya mereka yang kurang mampu untuk mendengarkan akan memperburuk hubungan atau setidaknya tidak dapat membangun hubungan yang lebih baik
- Menolong orang lain : Kemampuan mendengarkan wajib dimiliki agar dapat memahami orang lain dan pada akhinya, dapat menolong orang lain. Pada saat seseoramg mau mendengarkan dan memberikan perjhatian yang tulus serta serius kepada permasalahan yang kita sampaikan, hamper sebagian besar masalah kita telah dapat ditolong, atau minimal dapat memberikan pola atau prespektif yang baru tentang kita dapat menghadapi masalah yang kita hadapi.
2. Keterampilan
providing feedback (memberikan umpan balik) : Umpan Balik adalah setiap bentuk
komunikasi yang disampaikan kepada seseorang dengan tujuan agar orang tersebut
mengetahui dampak perilakunya terhadap anda atau orang lain.
3. Keterampilan
persuading (membujuk) : Persuading (membujuk) adalah komunikasi tatap muka yang
dilakukan dengan sengaja oleh seseorang dengan tujuan agar pihak lain mau
mengikuti dengan sukarela kehendak seseorang.
4.
Keterampilan resolving conflicts adalah kemampuan untuk mengatasi konflik
dengan orang lain.
- Smile. Sedikit orang yang ingin berada di sekitar seseorang yang selalu terlihat tak bahagia. Lakukan yang terbaik untuk menjadi seseorang yang friendly dan antusias dengan rekan-rekan kerja anda. Bangun sikap positif dan ceria mengenai pekerjaan dan mengenai kehidupan. Seringlah tersenyum. Energi positif yang anda pancarkan akan menarik yang lain kepada anda
- Jadilah apresiatif. Carilah satu hal positif tentang setiap orang yang anda bekerja sama dan biarlah mereka mendengarnya. Jadilah murah hati dengan pujian dan kata-kata yang mengobarkan semangat. Ucapkan terima kasih ketika seseorang menolong anda. Buatlah kolega anda merasa diterima ketika mereka menelepon atau datang ke kantor anda. Jika anda membiarkan orang lain mengetahui bahwa mereka dihargai, mereka akan mau memberikan yang terbaik untuk anda.
- Perhatikanlah orang lain. Cermatilah apa yang sedang terjadi dalam kehidupan orang lain. Ketahuilah momen-momen bahagia mereka, dan tunjukkanlah perhatian dan simpati pada situasi-situasi sulit seperti waktu sakit atau kematian. Buatlah eye contact dan ingatlah orang dari nama pertama mereka. Tanyakan yang lain akan opini-opini mereka.
- Latihlah mendengarkan dengan aktif. Untuk mendengarkan dengan aktif adalah dengan mendemonstrasikan bahwa anda memang mau untuk mendengar dan mengerti akan pandangan orang lain. Itu berarti menegaskan kembali, dengan bahasa anda sendiri, apa yang orang lain telah katakan. Dengan cara ini, anda mengetahui bahwa anda mengerti apa yang mereka maksudkan dan mereka mengetahui bahwa respon anda melebihi lip service. Rekan-rekan kerja anda akan menghargai mengetahui bahwa anda benar-benar mendengarkan dengan apa yang telah mereka katakan.
- Bawalah kebersamaan. Ciptakanlah lingkungan yang mengajak orang lain untuk bekerja sama. Perlakukanlah setiap orang dengan sama, dan jangan bermain `siapa yang favorit.` Hindari berbicara tentang orang lain di belakang mereka. Tindak lanjutkan apa yang orang lain sarankan atau minta. Ketika anda membuat pernyataan atau pengumuman, pastikan bahwa anda telah dimengerti. Jika rekan-rekan anda melihat anda sebagai seseorang yang solid dan fair, mereka akan mempercayai anda.
- Tangani konflik-konflik. Ambillah sebuah langkah mudah untuk membawa kebersamaan, dan menjadi seseorang yang menangani konflik-konflik ketika akan terjadi. Pelajari bagaimana menjadi mediator yang efektif. Jika ada rekan-rekan kerja yang ber-cekcok mengenai permasalahan personal atau professional, aturlah agar kedua pihak duduk bersama dan bantu mengatasi perbedaan mereka. Dengan mengambil peranan memimpin, anda akan mendapatkan respek dan kekaguman dari orang sekitar anda.
- Berkomunikasi dengan jelas. Perhatikanlah apa yang anda katakan dan bagaimana anda mengatakannya. Seorang komunikator yang jelas dan efektif menghindari salah pengertian dengan rekan-rekan kerja, kolega-kolega, dan rekan sejawat anda. Kelancaran verbal anda memproyeksikan gambaran akan intelijensi dan kedewasaan, tidak peduli berapa pun usia anda. Jika anda tetap mengeluarkan semua apa yang ada di pikiran anda, orang tidak akan terlalu menaruh perhatian dengan kata-kata ataupun opini anda.
- Hiburlah mereka. Janganlah takut untuk menjadi lucu ataupun pandai. Banyak orang yang mau berada di dekat orang-orang yang bisa membuat mereka tertawa. Gunakanlah rasa humor anda sebagai alat efektif untuk menurunkan batas dan menghimpun perhatian orang.
- Lihatlah dari sisi mereka. Empati berarti menjadi mampu untuk menaruh diri anda dalam sepatu orang lain dan mengerti apa yang mereka rasakan. Cobalah untuk melihat situasi dan respon-respon dari perspektif orang lain. Ini bisa terjadi dengan tetap berhubungan dengan emosi-emosi anda sendiri; orang-orang yang menghindari perasaan mereka sendiri terkadang menjadi sulit untuk ber-empati dengan orang lain.
- Janganlah mengeluh. Tidak ada yang lebih buruk dibandingkan seorang pengeluh yang kronis ataupun perengek. Jika anda harus mengemukakan tentang sesuatu, simpanlah itu dalam buku harian anda. Jika anda harus mengungkapkan dengan kata-kata keluhan-keluhan anda, ungkapkan kepada teman terdekat anda dan keluarga saja, dan jadikanlah singkat. Bagikan itu kepada semua orang sekitar anda atau yang lainnya dan anda akan mendapatkan reputasi buruk.
Komunikasi Efektif dalam IS
A.
Pengertian Komunikasi
Komunikasi
dapat didefinisikan sebagai penyampaian informasi antara dua orang atau lebih.
Komunikasi dapat juga meliputi pertukaran informasi antara manusia dan mesin.
Komunikasi merupakan suatu proses yang vital dalam organisasi karena komunikasi
diperlukan bagi efektivitas kepemimpinan, perencanaan, pengendalian,
koordinasi, latihan, manajemen konflik, serta proses-proses organisasi lainnya.
Studi-studi tentang perilaku manajerial menunjukkan bahwa bagian terbesar waktu
manajer dalam kerja digunakan untuk komunikasi dengan orang lain (Burns, 1954;
Kelly, 1964).
B.
Komunikasi Interpersonal
1.
Pengertian Komunikasi Interpersonal
Komunikasi antarpribadi (interpersonal
communication) didefinisikan oleh Joseph A. Devito dalam bukunya “The
Interpersonal Communication Book”. (Devito, 1989 : 4) sebagai:
“Proses
pengiriman dan penerimaan pesan-pesan antara dua orang, atau di antara
sekelompok kecil orang-orang, dengan beberapa efek dan beberapa umpan balik
seketika”.
(the process of
sending and receiving messages between two persons, or among a small group of
persons, with some effect and some immediate feedback).
2.
Komponen Komunikasi Interpersonal
Setiap kali
episode komunikasi terjadi, terdapat beberapa komponen, yaitu:
1.
Komunikator
2.
Pesan (message)
3.
Encode
4.
Bahasa
5.
Penerima pesan
(recipients)
6.
Decode
Prosesnya
adalah sebagai berikut:
Terdapat seorang komunikator yang ingin menyampaikan
pesannya (message). Pesan tersebut diekspresikan (encoded) melalui berbagai
lambang dalam bahasa. Bahasa tersebut mungkin berupa simbol kata-kata,
simbol-simbol matematik, diagram, sentuhan dan seterusnya. Pesan disampaikan
melalui perantaraan. Berbagai media komunikasi digunakan dalam organisasi
meliputi: percakapan tatap muka, percakapan telepon, memo-memo tertulis, sistem
alamat umum, dewan bulletin serta banyak media lainnya. Terdapat satu atau
lebih penerima pesan (recipients). Bilamana seorang penerima menerima pesan,
maka pesannya ditafsirkan (decoded).
3.
Klasifikasi Komunikasi Interpersonal
Redding
mengembangkan klasifikasi komunikasi interpersonal menjadi interaksi intim,
percakapan sosial, interogasi atau pemeriksaan dan wawancara.
a.
Interaksi intim
Interaksi intim termasuk komunikasi di
antara teman baik, pasangan yang sudah menikah, anggota famili, dan orang-orang
yang mempunyai ikatan emosional yang kuat. Kekuatan dari hubungan menentukan
iklim interaksi yang terjadi. Di dalam organisasi, hubungan ini dikembangkan
dalam sistem komunikasi informal. Misalnya, hubungan yang terlibat di antara
kedua orang teman baik dalam organisasi, yang mempunyai interaksi interpersonal
mungkin di luar peranan dan fungsinya dalam organisasi.
b.
Percakapan sosial
Percakapan sosial adalah interaksi
untuk menyenangkan seseorang secara sederhana dengan sedikit berbicara.
Percakapan biasanya tidak begitu terlibat secara mendalam. Tipe komunikasi
tatap muka penting bagi pengembangan hubungan informal dalam organisasi. Jika
dua orang atau lebih bersama-sama dan berbicara tentang perhatian, minat di
luar organisasi seperti famili, sport, isu politik, ini adalah merupakan contoh
percakapan sosial.
c.
Interogasi atau pemeriksaan
Interogasi atau pemeriksaan adalah
interaksi antara seseorang yang ada dalam kontrol, yang meminta atau bahkan
menuntut informasi daripada yang lain. Misalnya seorang pengacara memeriksa
seorang saksi atau seorang pelaksana hukum menanyai seorang tersangka.
Perdebatan dan pertengkaran secara verbal adalah bentuk interogasi di mana
kedua pihak menuntut satu sama lain dan kontrol sebentar-bentar bertukar.
Pertengkaran verbal sering ditandai dengan isu benar atau salah. Debat diatur
oleh sejumlah aturan dan umumnya lebih formal daripada perkelahian. Meskipun
bentuk komunikasi ini tidaklah selalu diingini tetapi ada dalam organisasi.
Misalnya bila seseorang karyawan dituduh mengambil barang-barang organisasi
untuk kepentingan pribadinya biasanya karyawan tersebut diinterogasi oleh
atasannya untuk mengetahui benar atau tidaknya tuduhan itu.
d.
Wawancara
Wawancara adalah satu bentuk komunikasi
interpersonal di mana dua orang terlibat dalam percakapan yang berupa tanya
jawab. Salah seorang mengajukan pertanyaan untuk mendapatkan informasi dan yang
lainnya mendengarkan dengan baik kemudian memberikan jawaban yang dikehendaki
sampai tujuan wawancara tercapai. Misalnya, seorang dosen penasehat akademis
mewawancarai mahasiswa yang dibimbingnya untuk mendapatkan informasi yang lebih
jauh mengenai mahasiswa tersebut.
C.
Hubungan Interpersonal yang Efektif
Mc.Crosky,
Larson dan Knapp dalam bukunya “An Introduction to Interpersonal Communication”
mengatakan bahwa komunikasi yang efektif dapat dicapai dengan mengusahakan
ketepatan (accuracy) yang paling tinggi derajatnya antara komunikator dan
komunikan dalam setiap situasi. Ketiga pengarang tersebut memilih istilah
“ketepatan yang lebih besar” (greater accuracy) daripada “ketepatan yang
menyeluruh” (total accuracy), karena memperoleh ketepatan 100% antara
komunikator dan komunikan tidaklah mungkin, dan tidak akan pernah terjadi.
Total accuracy dalam komunikasi menghendaki komunikator dan komunikan mempunyai
pengalaman yang benar-benar sama dalam semua hal yang dibicarakan. Hanya kalau
demikianlah, mereka akan mempunyai pengertian yang benar-benar sama mengenai
suatu pesan; dan hanya jika demikianlah mereka akan mempunyai ketepatan yang
menyeluruh, pengertian yang menyeluruh atau komunikasi yang sempurna. Selama
orang-orang berbeda tidak akan pernah bisa membangkitkan idea yang benar-benar
sama dalam benak komunikan sebagai yang dikontribusikan dalam benak
komunikator.
Komunikasi yang
lebih efektif terjadi apabila komunikator dan komunikan berada dalam keadaan
homophily. Homophily adalah sebuah istilah yang menggambarkan derajat pasangan
perorangan yang berinteraksi yang memiliki kesamaan dalam sifatnya (attribute),
seperti kepercayaan, nilai, pendidikan, status sosial, dan sebagainya.
Homophily terjadi karena orang-orang yang sama lebih mungkin termasuk kelompok
yang sama, berdiam lebih berdekatan satu sama lain, dan tertarik oleh
kepentingan yang sama. Hal ini berdasarkan penelitian Homans. Dia berpendapat
bahwa lebih dekat kesamaannya sejumlah orang dalam tingkatan sosial, lebih
sering mereka berinteraksi satu sama lain.
Menurut Roger,
hubungan interpersonal akan terjadi secara efektif apabila kedua belah pihak
memenuhi kondisi berikut:
a.
Bertemu satu
sama lain secara personal.
b.
Empati secara
tepat terhadap pribadi yang lain dan berkomunikasi yang dapat dipahami satu
sama lain secara berarti.
c.
Menghargai satu
sama lain, bersifat positif dan wajar tanpa menilai atau keberatan.
d.
Menghayati
pengalaman satu sama lain dengan sungguh-sungguh, bersikap menerima dan empati
satu sama lain.
e.
Merasa bahwa
saling menjaga keterbukaan dan iklim yang mendukung dan mengurangi
kecenderungan gangguan arti.
f.
Memperlihatkan
tingkah laku yang percaya penuh dan memperkuat perasaan aman terhadap yang
lain.
Pace dan Boren (1973) mengusulkan cara-cara untuk
menyempurnakan hubungan interpersonal. Hubungan interpersonal cenderung menjadi
sempurna bila kedua belah pihak mengenal standar berikut.
a.
Mengembangkan
suatu pertemuan personal yang langsung satu sama lain mengkomunikasikan
perasaan secara langsung.
b.
Mengkomunikasikan
suatu pemahaman empati secara tepat dengan pribadi orang lain melalui
keterbukaan diri.
c.
Mengkomunikasikan
suatu kehangatan, pemahaman yang positif mengenai orang lain dengan gaya
mendengarkan dan berespons.
d.
Mengkomunikasikan
keaslian dan penerimaan satu sama lain dengan ekspresi penerimaan secara verbal
dan nonverbal.
e.
Berkomunikasi
dengan ramah tamah, wajar, menghargai secara positif satu sama lain melalui
respons yang tidak bersifat menilai.
f.
Mengkomunikasikan
satu keterbukaan dan iklim yang mendukung melalui konfrontasi yang bersifat
membangun.
g.
Berkomunikasi
untuk menciptakan kesamaan arti dengan negosiasi arti dan memberikan respons
yang relevan.
Dari pernyataan yang dikemukakan oleh ketiga ahli di atas
terdapat satu kesamaan yaitu iklim yang mendukung harus ada agar hubungan
interpersonal dapat dijaga dan disempurnakan. Yang dimaksud lingkungan yang
mendukung menurut Liker adalah apabila atasan mereka menurut persepsi
bawahannya sebagai berikut; Mendukung, ramah tamah, bersifat membantu, baik dan
tegas, tidak pernah mengancam, memperhatikan sungguh-sungguh keadaan bawahannya
dan berusaha keras memperlakukan orang secara sensitif dan penuh pertimbangan,
berusaha keras melayani perhatian yang baik dari karyawannya, menunjukkan
kepercayaan dan memotivasi bawahannya. Sedangkan menurut Jack Gibb iklim yang
mendukung bila mempunyai karakteristik sebagai berikut:
a.
Menguraikan
sesuatu apa adanya.
Tidak ada berpraduga, menanyakan
pertanyaan untuk informasi, mengemukakan perasaan, kejadian, persepsi atau
proses tanpa menyatakan secara tidak langsung perubahan kepada penerima.
b.
Berorientasi
kepada masalah.
Menentukan masalah bersama dan mencari
penyelesaiannya tanpa menghambat tujuan penerima, keputusan dan kemajuan.
c.
Spontan.
Bebas dari tipuan, tidak mempunyai
motif yang tersembunyi, jujur dan lurus.
d.
Kesamaan.
Saling percaya dan menghargai, terlibat
dalam pembuatan perencanaan tanpa mempengaruhi kekuasaan, status atau
penampilan.
e.
Empati.
Menghargai pendengar, mengidentifikasi
saling berbagi dan menerima masalahnya, perasaan dan nilai-nilai.
f.
Bersifat
sementara.
Ingin melakukan percobaan dengan
tingkah laku sendiri, sikap dan ide-ide.
D.
Kekuatan Pengaruh Komunikasi Interpersonal
Dibandingkan dengan bentuk-bentuk
komunikasi lainnya, komunikasi antarpribadi paling ampuh dalam kegiatan mengubah
sikap, kepercayaan, opini, dan perilaku komunikan. Alasannya adalah sebagai
berikut:
Komunikasi
antarpribadi umumnya berlangsung secara tatap muka (face-to-face) sehingga
terjadilah kontak pribadi (personal contact): pribadi komunikator menyentuh
pribadi komunikan. Ketika komunikator menyampaikan pesan, umpan balik
berlangsung seketika (immediate feedback); komunikator mengetahui pada saat itu
tanggapan komunikan terhadap pesan yang komunikator lontarkan, ekspresi wajah
komunikator dan gaya bicara komunikator. Apabila umpan baliknya positif,
artinya tanggapan komunikan itu menyenangkan komunikator, komunikator sudah
tentu akan mempertahankan gaya komunikasinya; sebaliknya jika tanggapan
komunikan negatif, komunikator harus mengubah gaya komunikasi sampai komunikasi
berhasil.
Oleh karena keampuhan dalam mengubah sikap, kepercayaan, opini, dan perilaku
komunikan maka bentuk komunikasi antarpribadi acapkali dipergunakan untuk
melancarkan komunikasi persuasif (persuasive communication) yakni suatu teknik
komunikasi secara psikologis manusiawi yang sifatnya halus, luwes berupa
ajakan, bujukan atau rayuan. Tetapi komunikasi persuasif antarpribadi seperti
itu hanya digunakan kepada komunikan yang potensial saja, artinya tokoh yang
mempunyai jajaran dengan pengikutnya atau anak buahnya dalam jumlah yang sangat
banyak, sehingga apabila ia berhasil diubah sikapnya atau ideloginya, maka
seluruh jajaran mengikutinya.
E.
Keterampilan Interpersonal (Interpersonal Skill) dan Komunikasi
Keterampilan
interpersonal mengacu pada mental dan komunikatif yang diterapkan selama
komunikasi sosial dan interaksi untuk mencapai efek-efek tertentu atau hasil.
Istilah "interpersonal skill" yang sering digunakan dalam konteks
bisnis adalah untuk merujuk pada mengukur kemampuan seseorang untuk beroperasi
dalam bisnis organisasi melalui komunikasi dan interaksi sosial. Keterampilan
interpersonal adalah bagaimana orang berhubungan satu sama lain.
Mereka
yang piawai dalam keterampilan interpersonal biasanya
dicirikan oleh kemampuannya dalam mengarahkan, memotivasi, dan bekerjasama
secara efektif dengan orang lain. Selain itu mampu memahami pemikiran
orang lain dengan jelas. Semuanya berbasis pada kesadaran diri. Jadi orang
seperti itu, sebelum mampu memahami orang lain, seharusnya mampu memahami
dirinya, perasaannya, keyakinannya, nilai pribadinya, sikap, persepsi tentang
lingkungan, dan motivasi untuk memperoleh sesuatu yang patut dikerjakannya. Hal
demikian membantunya untuk menerima kenyataan bahwa tiap orang adalah berbeda
dalam hal ketrampilan dan kemampuan, keyakinan, nilai, dan keinginannya.
Keterampilan
interpersonal dan komunikasi berhubungan erat satu sama lain. Keduanya saling
mendorong dalam peningkatan kinerja seorang profesional, di bagian apapun
tempatnya atau posisi apapun yang dipegangnya. Keterampilan interpersonal
sangat dibutuhkan dalam komunikasi untuk membina hubungan interpersonal.
Hubungan interpersonal yang baik akan memudahkan penyelesaian tugas sehari-hari
terlebih tugas dalam teamwork. Akan sulit membangun teamwork yang tangguh bila
keterampilan interpersonal dan komunikasi ini tidak dimiliki oleh salah seorang
anggotanya, karena dalam teamwork dibutuhkan kerjasama dan kekompakan antar
anggota. Dengan kata lain seseorang yang tidak memiliki keterampilan
interpersonal dalam komunikasi akan sulit bekerja dalam satu kelompok kerja
secara baik. Akibatnya tugas tidak akan terselesaikan tepat waktu dan hasilnya
kurang optimal.
Di sisi lain kemampuan interpersonal dan komunikasi akan
tercermin dari penampilan sehari-hari seseorang dan perkembangan karirnya.
Hardjana (2003) mengatakan dari kepribadian seseorang, ada dua hal utama yang
mempengaruhi mutu komunikasi interpersonal yaitu:
a.
Sikap terhadap
orang yang berkomunikasi
1.
Menerima mereka
apa adanya
2.
Menghargai
keunikan mereka, peran hidup yang mereka pegang dan
laksanakan.
3.
Menghormati
mereka sebagai pribadi dan bukan menghina atas dasar ideologi,
keyakinan, kepercayaan, dan agama.
4.
Memperlakukan
mereka sebagai pribadi yang mempunyai tujuan sendiri dan tidak memperlakukan
mereka sebagai alat untuk mencapai apapun, atau objek untuk
dipermainkan sesuka hati.
b. Sikap
terhadap diri sendiri
1) Gambaran diri (self-image) kita
2) Penilaian diri (self-evaluation)
3) Setiap orang mempunyai cita-cita diri
(self-ideal).
Sebagai ilustrasi, umumnya dipahami bahwa berkomunikasi
adalah menghormati orang lain atau jika telah profesional dalam berkomunikasi
akan memungkinkan untuk mengurangi konflik dan meningkatkan partisipasi atau
bantuan dalam memperoleh informasi atau menyelesaikan tugas. Misalnya, untuk
mengganggu seseorang yang sedang sibuk dengan tugas untuk memperoleh informasi
yang dibutuhkan segera, disarankan menggunakan pendekatan hormat dengan bahasa
seperti, "Maaf, apakah Anda sibuk? Aku punya masalah mendesak untuk
mendiskusikan dengan Anda jika Anda memiliki waktu saat ini. " Hal ini
memungkinkan penerima profesional untuk membuat penilaian sendiri tentang
pentingnya tugas mereka saat ini versus memasuki diskusi dengan rekan mereka.
Meskipun umumnya dipahami bahwa menyela seseorang dengan permintaan
"mendesak" akan sering mengambil prioritas, yang memungkinkan
penerima mengutamakan permintaan tersebut dan setuju untuk mendiskusikan masalah
tersebut sehingga kemungkinan akan menghasilkan interaksi kualitas yang lebih
tinggi.
Memiliki kemampuan interpersonal yang positif akan
meningkatkan produktivitas dalam organisasi karena jumlah konflik berkurang.
Dalam situasi informal, memungkinkan komunikasi menjadi mudah dan nyaman. Orang
dengan kemampuan interpersonal yang baik umumnya dapat mengendalikan perasaan
yang muncul dalam situasi sulit dan dapat menentukan jawaban yang benar,
bukannya kewalahan oleh emosi.
Interpersonal skill dalam organisasi
Inter Personal Skill adalah
kecakapan atau keterampilan yang dimiliki oleh seseorang dalam hubungannya
dengan orang lain, baik dalam berkomunikasi verbal maupun non verbal dengan
tujuan untuk pengembangan kerja secara optimal.
Organisasi merupakan suatu kerangka sosial, yaitu kerangka yang menunjukkan hubungan antara individu dalam organisasi
Dalam organisasi terdapat koordinasi yang dirancang untuk mengatur kegiatan kegiatan orang
Dalam organisasi terdapat pembagian kerja yang diatur dengan tingkatan otoritas
Seluruh kegiatan ditujukan untuk kegiatan pencapaian tujuan bersama
Interpersonal Skills
Pengiriman dan penerimaan berbagai pesan organisasi di dalam kelompok formal maupun informal dari suatu organisasi (Wiryanto, 2005).
Komunikasi formal : komunikasi yang disetujui oleh organisasi itu sendiri dan sifatnya berorientasi kepentingan organisasi.
Komunikasi informal : komunikasi yang disetujui secara sosial. Orientasinya bukan pada organisasi, tetapi lebih kepada anggotanya secara individual.
Komunikasi Organisasi
Hakekat Organisasi
Dinamika Interpersonal
merupakan bagian vital dari kehidupan organisasi, anggota organisasi yang melibatkan interkasi dengan orang lain kadang – kadang dengan cara positif, kadang – kadang negative.
Dampak Dari Perilaku Interpersonal
interpersonal berkualitas tinggi bisa menjadi element positif yang penting dalam lingkungan kerja dan jika interpersonal berkualitas buruk bisa berdampak sebaliknya.
ESENSI INTERPERSONAL DARI ORGANISASI
Komunikasi (communication) adalah proses penyampaian informasi dari satu orang ke orang lain.
Komunikasi efektif yaitu komunikasi yang mampu menghasilkan perubahan sikap (attitude change) pada orang lain yang bisa terlihat dalam proses komunikasi.
Tujuan pengiriman informasi dan umpan balik atau feed back dapat seinbang sehingga tidak terjadi monoton. Selain itu komunikasi efektif dapat melatih penggunaan bahasa nonverbal secara baik.
Proses komunikasi dimulai saat seorang (pengirim) mengirimkan fakta, ide, pendapat, atau informasi lainya kepada orang lain(penerima). Fakta, idea tau pendapat ini memiliki makna bagi si pengirim, apakah itu sederhana atau konkret, atau kompleks dan abstrak.
Komunikasi
Bentuk – Bentuk Komunikasi Dalam Organisasi
Komunikasi Lisan (Oral Communication)
Terjadi dalam percakapan tatap muka, diskusi kelompok ketika ucapan di gunakan untuk mengekspresikan makna.
Komunikasi Tulisan (Written Communication)
Menulis dalam surat, laporan, memo, catatan, tulisan tangan, atau e-mail bisa memecahkan masalah yang melekata pada komunikasi lisan.
Komunikasi verbal (verbal communication).
merupakan salah satu bentuk komunikasi yang disampaikan kepada pihak lain melalui tulisan (written) dan lisan (oral).
Komunikasi nonverbal .
merupakan bentuk komunikasi yang paling mendasar dalam komunikasi bisnis.
Bentuk – Bentuk Komunikasi Dalam Organisasi
Komunikasi Vertical (Vertical Communication)
komunikasi yang mengalir ke atas dan ke bawah dalam heirarki organisasi, biasanya melalui saluranpelaporan formal yaitu, komunikasi yang terjadi antara manajer dengan atasan dan bawahan mereka.
Komunikasi Horizontal (Horizontal Communication)
Komunikasi horizontal melibatkan kolega dan rekan kerja dari level organisasi yang sama.
Pentingnya komunikasi dalam organisasi
Sebabnya komunikasi itu penting dalam suatu organisasi :
Menghasilkan pemahaman yang sama antara pengirim informasi dengan penerima informasi pada semua tingkatan dalam organisasi.
Membangun iklim organisasi yang pada akhirnya dapat mempengaruhi efisiensi dan produktifitas organisasi.
Membangkitkan kinerja orang yang terlibat di dalam organisasi tersebut yang pada akhirnya dapat mempengaruhi efektifitas organisasi
Fungsi Komunikasi dalam Organisasi
Fungsi informatif
Organisasi dapat dipandang sebagai suatu sistem pemrosesan informasi. Maksudnya, seluruh anggota dalam suatu organisasi berharap dapat memperoleh informasi yang lebih banyak, lebih baik dan tepat waktu.
Fungsi regulatif
Fungsi ini berkaitan dengan peraturan-peraturan yang berlaku dalam suatu organisasi.
Fungsi persuasif
Dalam mengatur organisasi, kekuasaan dan kewenangan tidak akan selalu membawa hasil sesuai dengan yang diharapkan. Adanya kenyataan ini, maka banyak pimpinan yang lebih suka untuk mempersuasi bawahannya daripada memberi perintah
Fungsi integratif
Setiap organisasi berusaha untuk menyediakan saluran yang memungkinkan anggota dapat melaksanakan tugas dan pekerjaan dengan baik.
HAMBATAN DALAM KOMUNIKASI
Hambatan Teknis
Hambatan jenis ini timbul karena lingkungan yang memberikan dampak pencegahan terhadap kelancaran pengiriman dan penerimaan pesan
Hambatan Semantik
Gangguan semantik menjadi hambatan dalam proses penyampaian pengertian atau idea secara efektif
Hambatan Manusiawi
Hambatan jenis ini muncul dari masalah-masalah pribadi yang dihadapi oleh orang-orang yang terlibat dalam komunikasi, baik komunikator maupun komunikan
Mengelola Hambatan Komunikasi
Hambatan – Hambatan Individual
Salah satunya adalah sinyal yang saling bertentangan atau tidak konsisten. Kendala lain adalah kurangnya kredibilitas muncul saat pengirim pesan tidak dipandang sebagai sumber informasi yang bisa dipercaya.
Hambatan –Hambatan Organisasional
Masalah sering muncul karena kata – kata memiliki makna berbeda. Faktor – faktor lingkungan bisa mengurang efektivitas. Seperti yangtelah disinggung sebelumnya, keributan bisa mempengaruhi dalam banyak cara. Begitu juga kelebihan beban bisa di tangani secara efektif.
Memperbaiki Efektivitas Komunikasi
Keahlian Individual
paling penting untuk memperbaiki efektivitas komunikasi adalah keahlian mendengar. Menjadi pendengar yang baik meminta seseorang utnuk mempersiapkan diri untuk mendengar, tidak menyela pembicara, sabar, dan bertanya sepantaasnya.
Keahlian Organisasional
Tindak lanjut adalah pengecekan untuk memastikan apakah pesan telah diterima dan dipahami, pengatur arus informasi adalah bahwa pengirim atau penerima pesan mengambil langkah – langkah yang di perlukan untuk memastikan tidak terjadinya kelebihan beban informasi, banyak manajer membatasi arus masuk informasi dengan membuat jurnal – jurnal dan laporan - laporan rutin yang mereka terima secara periodik, atau melatih seorang sekretaris untuk menyaring telepon masuk dan tamu. Baik pengirim maupun penerima pesan juga perlu memahami keunggulan dan keunikan dari tipe – tipe media.
Kesimpulan
Komunikasi merupakan bentuk interpersonal Skill sehingga peran komunikasi dalam suatu organisasi sangat penting. Tidak ada seorangpun dalam keseharian tugasnya tanpa berkomunikasi. Baik itu bertema masalah pekerjaan maupun masalah di luar pekerjaan, seperti masalah keluarga, politik, sosial dan ekonomi nasional. Semua ini pasti dilakukan lewat komunikasi. Juga baik itu dilakukan melalui jalur vertikal (atasan-bawahan) maupun jalur horisontal (kolega setingkat).
Organisasi merupakan suatu kerangka sosial, yaitu kerangka yang menunjukkan hubungan antara individu dalam organisasi
Dalam organisasi terdapat koordinasi yang dirancang untuk mengatur kegiatan kegiatan orang
Dalam organisasi terdapat pembagian kerja yang diatur dengan tingkatan otoritas
Seluruh kegiatan ditujukan untuk kegiatan pencapaian tujuan bersama
Interpersonal Skills
Pengiriman dan penerimaan berbagai pesan organisasi di dalam kelompok formal maupun informal dari suatu organisasi (Wiryanto, 2005).
Komunikasi formal : komunikasi yang disetujui oleh organisasi itu sendiri dan sifatnya berorientasi kepentingan organisasi.
Komunikasi informal : komunikasi yang disetujui secara sosial. Orientasinya bukan pada organisasi, tetapi lebih kepada anggotanya secara individual.
Komunikasi Organisasi
Hakekat Organisasi
Dinamika Interpersonal
merupakan bagian vital dari kehidupan organisasi, anggota organisasi yang melibatkan interkasi dengan orang lain kadang – kadang dengan cara positif, kadang – kadang negative.
Dampak Dari Perilaku Interpersonal
interpersonal berkualitas tinggi bisa menjadi element positif yang penting dalam lingkungan kerja dan jika interpersonal berkualitas buruk bisa berdampak sebaliknya.
ESENSI INTERPERSONAL DARI ORGANISASI
Komunikasi (communication) adalah proses penyampaian informasi dari satu orang ke orang lain.
Komunikasi efektif yaitu komunikasi yang mampu menghasilkan perubahan sikap (attitude change) pada orang lain yang bisa terlihat dalam proses komunikasi.
Tujuan pengiriman informasi dan umpan balik atau feed back dapat seinbang sehingga tidak terjadi monoton. Selain itu komunikasi efektif dapat melatih penggunaan bahasa nonverbal secara baik.
Proses komunikasi dimulai saat seorang (pengirim) mengirimkan fakta, ide, pendapat, atau informasi lainya kepada orang lain(penerima). Fakta, idea tau pendapat ini memiliki makna bagi si pengirim, apakah itu sederhana atau konkret, atau kompleks dan abstrak.
Komunikasi
Bentuk – Bentuk Komunikasi Dalam Organisasi
Komunikasi Lisan (Oral Communication)
Terjadi dalam percakapan tatap muka, diskusi kelompok ketika ucapan di gunakan untuk mengekspresikan makna.
Komunikasi Tulisan (Written Communication)
Menulis dalam surat, laporan, memo, catatan, tulisan tangan, atau e-mail bisa memecahkan masalah yang melekata pada komunikasi lisan.
Komunikasi verbal (verbal communication).
merupakan salah satu bentuk komunikasi yang disampaikan kepada pihak lain melalui tulisan (written) dan lisan (oral).
Komunikasi nonverbal .
merupakan bentuk komunikasi yang paling mendasar dalam komunikasi bisnis.
Bentuk – Bentuk Komunikasi Dalam Organisasi
Komunikasi Vertical (Vertical Communication)
komunikasi yang mengalir ke atas dan ke bawah dalam heirarki organisasi, biasanya melalui saluranpelaporan formal yaitu, komunikasi yang terjadi antara manajer dengan atasan dan bawahan mereka.
Komunikasi Horizontal (Horizontal Communication)
Komunikasi horizontal melibatkan kolega dan rekan kerja dari level organisasi yang sama.
Pentingnya komunikasi dalam organisasi
Sebabnya komunikasi itu penting dalam suatu organisasi :
Menghasilkan pemahaman yang sama antara pengirim informasi dengan penerima informasi pada semua tingkatan dalam organisasi.
Membangun iklim organisasi yang pada akhirnya dapat mempengaruhi efisiensi dan produktifitas organisasi.
Membangkitkan kinerja orang yang terlibat di dalam organisasi tersebut yang pada akhirnya dapat mempengaruhi efektifitas organisasi
Fungsi Komunikasi dalam Organisasi
Fungsi informatif
Organisasi dapat dipandang sebagai suatu sistem pemrosesan informasi. Maksudnya, seluruh anggota dalam suatu organisasi berharap dapat memperoleh informasi yang lebih banyak, lebih baik dan tepat waktu.
Fungsi regulatif
Fungsi ini berkaitan dengan peraturan-peraturan yang berlaku dalam suatu organisasi.
Fungsi persuasif
Dalam mengatur organisasi, kekuasaan dan kewenangan tidak akan selalu membawa hasil sesuai dengan yang diharapkan. Adanya kenyataan ini, maka banyak pimpinan yang lebih suka untuk mempersuasi bawahannya daripada memberi perintah
Fungsi integratif
Setiap organisasi berusaha untuk menyediakan saluran yang memungkinkan anggota dapat melaksanakan tugas dan pekerjaan dengan baik.
HAMBATAN DALAM KOMUNIKASI
Hambatan Teknis
Hambatan jenis ini timbul karena lingkungan yang memberikan dampak pencegahan terhadap kelancaran pengiriman dan penerimaan pesan
Hambatan Semantik
Gangguan semantik menjadi hambatan dalam proses penyampaian pengertian atau idea secara efektif
Hambatan Manusiawi
Hambatan jenis ini muncul dari masalah-masalah pribadi yang dihadapi oleh orang-orang yang terlibat dalam komunikasi, baik komunikator maupun komunikan
Mengelola Hambatan Komunikasi
Hambatan – Hambatan Individual
Salah satunya adalah sinyal yang saling bertentangan atau tidak konsisten. Kendala lain adalah kurangnya kredibilitas muncul saat pengirim pesan tidak dipandang sebagai sumber informasi yang bisa dipercaya.
Hambatan –Hambatan Organisasional
Masalah sering muncul karena kata – kata memiliki makna berbeda. Faktor – faktor lingkungan bisa mengurang efektivitas. Seperti yangtelah disinggung sebelumnya, keributan bisa mempengaruhi dalam banyak cara. Begitu juga kelebihan beban bisa di tangani secara efektif.
Memperbaiki Efektivitas Komunikasi
Keahlian Individual
paling penting untuk memperbaiki efektivitas komunikasi adalah keahlian mendengar. Menjadi pendengar yang baik meminta seseorang utnuk mempersiapkan diri untuk mendengar, tidak menyela pembicara, sabar, dan bertanya sepantaasnya.
Keahlian Organisasional
Tindak lanjut adalah pengecekan untuk memastikan apakah pesan telah diterima dan dipahami, pengatur arus informasi adalah bahwa pengirim atau penerima pesan mengambil langkah – langkah yang di perlukan untuk memastikan tidak terjadinya kelebihan beban informasi, banyak manajer membatasi arus masuk informasi dengan membuat jurnal – jurnal dan laporan - laporan rutin yang mereka terima secara periodik, atau melatih seorang sekretaris untuk menyaring telepon masuk dan tamu. Baik pengirim maupun penerima pesan juga perlu memahami keunggulan dan keunikan dari tipe – tipe media.
Kesimpulan
Komunikasi merupakan bentuk interpersonal Skill sehingga peran komunikasi dalam suatu organisasi sangat penting. Tidak ada seorangpun dalam keseharian tugasnya tanpa berkomunikasi. Baik itu bertema masalah pekerjaan maupun masalah di luar pekerjaan, seperti masalah keluarga, politik, sosial dan ekonomi nasional. Semua ini pasti dilakukan lewat komunikasi. Juga baik itu dilakukan melalui jalur vertikal (atasan-bawahan) maupun jalur horisontal (kolega setingkat).
Interpersonal
skill dalam computer
Kemampuan:
Keahlian dalam mengembangkan ilmu komputer yang menerapkan pengolahan basis data
Keahlian dalam menggunakan bahasa pemrograman computer
Keahlian dalam mengembangkan ilmu komputer yang menerapkan pengolahan basis data
Keahlian dalam menggunakan bahasa pemrograman computer
Keahlian dalam merancang dan
melaksanakan suatu percobaan serta kemudian menganalisis dan menafsirkan hasil
percobaan,Kemampuan mengimplementasikan ilmu pengetahuan dasar dalam teknologi
informasi,Kemampuam memahami dan mengimplementasikan perkembangan teknologi
informasi dalam suatu ilmu komputer,Kemampuan memahami dampak sosial dan
lingkungan yang disebabkan oleh perkembangan teknologi informasi dan ilmu
komputer yang telah dikembangkan,
Work Experience PLATFORMS Social SOCIAL SEO CMS)
Work Experience PLATFORMS Social SOCIAL SEO CMS)
Interpersonal Skill dalam Ilmu
Komputer
1.
Keahlian
Keahlian dalam merencanakan, merancang dan mengembangkan ilmu komputer dengan menggunakan teknologi informasi dan komunikasi terkini
Perilaku/Sikap
Memiliki rasa tanggung jawab profesional, bermoral dan beretika profesional,Kemampuan bekerja sama dalam kelompok,Kemampuan belajar mandiri.Peluang Kerja Lulusan Ilmu komputer adalah :
Sistem Analis pada proyek pengembangan Ilmu komputer,Manajer pada Departemen Teknologi Informasi suatu instansi,Manajer pada proyek Pengembangan Sistem,Administrator Database,Programer,Wirausahawan bidang Teknologi Informasi.
Pengertian Analis sistem
Hal-hal yang dilakukan Analis Sistem
Analis sistem adalah seseorang yang bertanggung jawab atas penelitian, perencanaan, pengkoordinasian, dan merekomendasikan pemilihan perangkat lunak dan sistem yang paling sesuai dengan kebutuhan organisasi bisnis atau perusahaan.
Berinteraksi dengan pelanggan untuk memahami kebutuhan sistem yang akan di gunakan
Berinteraksi dengan desainer untuk mengemukakan antarmuka yang diinginkan atas suatu perangkat lunak
Berinteraksi ataupun memandu programer dalam proses pengembangan sistem agar tetap berada pada jalurnya
Melakukan pengujian sistem baik dengan data sampel atau data sesungguhnya untuk membantu para penguji
Mengimplementasikan sistem baru/sistem usulan yang akan digunakan perusahaan
Menyiapkan dokumentasi berkualitas
Kemampuan berkomunikasi dalam bentuk diskusi dan presentasi secara efektif,Kemampuan mengembangkan dasar kewirausahaan.
Keahlian teknis akan membantu seorang analis sistem untuk memahami potensi dan keterbatasan dari teknologi informasi. Seorang analis sistem harus mampu untuk bekerja dengan berbagai jenis bahasa pemrograman, sistem operasi, serta perangkat keras yang digunakan. Keahlian manajerial akan membantu seorang analis sistem mengelola proyek, sumber daya, risiko, dan perubahan.
Hal - hal yang dilakuan analis sistem
Komunikasi interpersonal menyangkut bagaimana kita berpersepsi, mempunyai konsep diri, atraksi interpersonal, dan membentuk hubungan interpersonal. Tujuan komunikasi interpersonal adalah menemukan diri sendiri, menemukan dunia luar, membentuk dan menjaga hubungan yang penuh arti, berubah sikap dan tingkah laku, untuk bermain dan kesenangan, dan untuk membantu.
Keterampilan interpersonal adalah ketrampilan untuk mengenali dan merespon secara layak perasaan, sikap dan perilaku, motivasi serta keinginan orang lain.
Kesimpulan
Keahlian dalam merancang dan mengembangkan ilmu komputer yang berbasiskan web,
Keahlian Teknis
Sebuah perusahaan yang ingin membuat web menarik untuk perusahaan barunya.
Solusi:
Membutuhkan seorang yang memiliki keahlian dalam bidang web design.
Hubungan dengan IS:
Dari kedua pihak nantinya akan terjadi sebuah interaksi untuk mencapai tujuan yang diinginkan. Analis sistem
Keahlian dalam merencanakan, merancang dan mengembangkan ilmu komputer dengan menggunakan teknologi informasi dan komunikasi terkini
Perilaku/Sikap
Memiliki rasa tanggung jawab profesional, bermoral dan beretika profesional,Kemampuan bekerja sama dalam kelompok,Kemampuan belajar mandiri.Peluang Kerja Lulusan Ilmu komputer adalah :
Sistem Analis pada proyek pengembangan Ilmu komputer,Manajer pada Departemen Teknologi Informasi suatu instansi,Manajer pada proyek Pengembangan Sistem,Administrator Database,Programer,Wirausahawan bidang Teknologi Informasi.
Pengertian Analis sistem
Hal-hal yang dilakukan Analis Sistem
Analis sistem adalah seseorang yang bertanggung jawab atas penelitian, perencanaan, pengkoordinasian, dan merekomendasikan pemilihan perangkat lunak dan sistem yang paling sesuai dengan kebutuhan organisasi bisnis atau perusahaan.
Berinteraksi dengan pelanggan untuk memahami kebutuhan sistem yang akan di gunakan
Berinteraksi dengan desainer untuk mengemukakan antarmuka yang diinginkan atas suatu perangkat lunak
Berinteraksi ataupun memandu programer dalam proses pengembangan sistem agar tetap berada pada jalurnya
Melakukan pengujian sistem baik dengan data sampel atau data sesungguhnya untuk membantu para penguji
Mengimplementasikan sistem baru/sistem usulan yang akan digunakan perusahaan
Menyiapkan dokumentasi berkualitas
Kemampuan berkomunikasi dalam bentuk diskusi dan presentasi secara efektif,Kemampuan mengembangkan dasar kewirausahaan.
Keahlian teknis akan membantu seorang analis sistem untuk memahami potensi dan keterbatasan dari teknologi informasi. Seorang analis sistem harus mampu untuk bekerja dengan berbagai jenis bahasa pemrograman, sistem operasi, serta perangkat keras yang digunakan. Keahlian manajerial akan membantu seorang analis sistem mengelola proyek, sumber daya, risiko, dan perubahan.
Hal - hal yang dilakuan analis sistem
Komunikasi interpersonal menyangkut bagaimana kita berpersepsi, mempunyai konsep diri, atraksi interpersonal, dan membentuk hubungan interpersonal. Tujuan komunikasi interpersonal adalah menemukan diri sendiri, menemukan dunia luar, membentuk dan menjaga hubungan yang penuh arti, berubah sikap dan tingkah laku, untuk bermain dan kesenangan, dan untuk membantu.
Keterampilan interpersonal adalah ketrampilan untuk mengenali dan merespon secara layak perasaan, sikap dan perilaku, motivasi serta keinginan orang lain.
Kesimpulan
Keahlian dalam merancang dan mengembangkan ilmu komputer yang berbasiskan web,
Keahlian Teknis
Sebuah perusahaan yang ingin membuat web menarik untuk perusahaan barunya.
Solusi:
Membutuhkan seorang yang memiliki keahlian dalam bidang web design.
Hubungan dengan IS:
Dari kedua pihak nantinya akan terjadi sebuah interaksi untuk mencapai tujuan yang diinginkan. Analis sistem
Analis
sistem
adalah seseorang yang bertanggung jawab atas penelitian, perencanaan,
pengkoordinasian, dan merekomendasikan pemilihan perangkat
lunak dan sistem yang paling sesuai dengan kebutuhan
organisasi bisnis atau perusahaan. Analis sistem memegang peranan yang sangat
penting dalam proses pengembangan sistem. Seorang analis sistem harus memiliki
setidaknya empat keahlian: analisis, teknis, manajerial, dan interpersonal
(berkomunikasi dengan orang lain). Kemampuan analisis memungkinkan seorang
analis sistem untuk memahami perilaku organisasi beserta fungsi-fungsinya,
pemahaman tersebut akan membantu dalam mengidentifikasi kemungkinan terbaik
serta menganalisis penyelesaian permasalahan. Keahlian teknis akan membantu
seorang analis sistem untuk memahami potensi dan keterbatasan dari teknologi informasi.
Seorang analis sistem harus mampu untuk bekerja dengan berbagai jenis bahasa pemrograman,
sistem operasi,
serta perangkat keras
yang digunakan. Keahlian manajerial akan membantu seorang analis sistem
mengelola proyek, sumber daya, risiko, dan perubahan.
Keahlian interpersonal akan membantu analis sistem dalam berinteraksi dengan
pengguna akhir sebagaimana halnya dengan analis, programer,
dan profesi sistem lainnya.
Analis sistem bisa pula menjadi
perantara atau penghubung antara perusahaan penjual perangkat lunak dengan
organisasi tempat ia bekerja, dan bertanggung jawab atas analisis biaya
pengembangan, usulan desain dan pengembangan, serta menentukan rentang waktu
yang diperlukan. Analis sistem bertanggung jawab pula atas studi kelayakan atas
sistem komputer
sebelum membuat satu usulan kepada pihak manajemen perusahaan.
Pada dasarnya seorang analis sistem melakukan hal-hal
berikut:
a. Berinteraksi
dengan pelanggan untuk memahami kebutuhan sistem yang akan di gunakan
b. Berinteraksi
dengan desainer untuk mengemukakan antarmuka
yang diinginkan atas suatu perangkat lunak
c. Berinteraksi
ataupun memandu programer dalam proses pengembangan sistem agar tetap berada
pada jalurnya
d. Melakukan
pengujian sistem baik dengan data sampel atau data sesungguhnya untuk membantu
para penguji
e. Mengimplementasikan
sistem baru/sistem usulan yang akan digunakan perusahaan
f. Menyiapkan
dokumentasi berkualitas
2.
Tokoh-tokoh
a.
Bill Gates / William Henry Gates III
William Henry Gates III
atau lebih dikenal dengan nama Bill Gates dilahirkan pada 28 Oktober 1955, di
Seattle, Washington. Bill Gates adalah adalah anak kedua dari tiga bersaudara.
Ayahnya William Henry Gates adalah seorang pengacara perusahaan yang punya
banyak relasi di kota. Sedangkan ibunya Mary Maxwell seorang pegawai First
Interstate Bank, Pacific Northwest Bell dan anggota Tingkat Nasional United
Way.
Bil
Gates adalah pendiri (bersama
Paul Allen) dan ketua umum perusahaan perangkat lunak AS, Microsoft. Bil Gates merupakan penemu sistem operasi windows walau pada
pertama kalinya beliau temukan dari garasi rumahnya dan kini menjadi perusahaan
raksaksa dan bisa menempatkan dirinya sebagai orang terkaya di dunia hingga
saat ini. Microsoft adalah perurahaan yang kini menekuni pengembangan sistem
operasi berbasis windows. Beliau sangat jeli sekali melihat peluang dari
kebutuhan akan teknologi di era informasi digital yang sangat di butuhkan untuk
keperluan berbagai macam kegiatan dari usaha hingga level rumahan kini pasti
membutuhkan akan sistem operasi ini untuk para pengguna komputer sejak awal
kemunculannya windows menjadi fenomena hingga saat ini dari jutaan komputer
yang ada di dunia ini hampir delapan puluh persennya menggunakan sistem operasi
windows luar biasa begitu fenomena. Walau saat ini sudah banyak sistem operasi
lain yang bermunculan windows masih menjadi favorit dari sekian banyak pengguna
komputer di dunia.dan seiring perkembangan jaman saat ini komputer di generasi
ke-5 (era mobile) windows pun tidak ketinggalan meluncurkan windows mobile wajar
kalau Bil Gates menjadi orang paling sukses di dunia pengembangan sistem
operasi.
Dia dengan cepat menguasai
BASIC, sebuah bahasa pemograman komputer, dan bersama dengan para hacker yang
belajar sendiri di Lakeside, dia melewatkan waktu berjam-jam menulis program,
melakukan permainan, dan secara umum mempelajari banyak hal tentang komputer.
“Dia adalah seorang eksentrik,” sebagaimana salah seorang guru memberikan Gates
julukan itu. Bill Gates menempuh kuliah di Harvard University di Cambridge
mulai tahun 1975. Di sana ia bertemu dengan Paul Allen sewaktu sekolah
bersama-sama. Bersama Paul Allen, Bill Gates terus mengembangkan talentanya di
bidang pemograman komputer. Namun, Bill gates memutuskan keluar (drop out)
untuk menyumbangkan waktunya ke Microsoft.
Melalui usaha kerasnya,
perusahaan yang ia dirikan yang bernama Microsoft Corporation menjadi sukses
dan Bill Gates melambung menjadi seorang jutawan. Di tahun 1990 Bill Gates
sukses merilis sistem operasi yang sangat sukses di pasaran dunia.
Ia juga merupakan seorang
filantropis melalui kegiatannya di Yayasan Bill & Melinda Gates. Ia
menempati posisi pertama dalam orang terkaya di dunia versi majalah Forbes
selama 13 tahun (1995 hingga 2007), namun sejak 5 Maret 2008 berada di posisi
ketiga setelah pebisnis AS Warren Buffett dan pebisnis Meksiko Carlos Slim
Helú. Pada tahun 2000, Bill Gates mengundurkan diri dari jabatannya
sebagai CEO dan memandatkannya kepada kawan lamanya, Steve Ballmer. Kini Bill
Gates menjadi Kepala Penelitian dan Pengembangan Perangkat Lunak di
perusahaannya sendiri, Microsoft Corp.
b.
Steve Jobs
Steven Paul "Steve" Jobs lahir di San
Francisco, California, Amerika
Serikat, 24
Februari 1955
adalah seorang tokoh
bisnis dan
penemu Amerika Serikat. Ia adalah pendiri pendamping, ketua,
dan mantan CEO Apple
Inc serta termasuk salah satu orang yang sukses di bidang
pengembangan sistem operasi yang lebih kepada antar muka grafis yang akhirnya
berujung pada pengembangan macintosh yang saat ini menjadi salah satu favorit
sistem operasi yang di gunakan pada product apple khususnya. Jobs terdaftar
sebagai penemu utama atau penemu pendamping pada lebih dari 230 hadiah paten
atau permintaan paten terkait serangkaian teknologi mulai dari komputer dan
alat portabel hingga antarmuka pengguna (termasuk yang berbasis sentuh),
pengeras suara, papan ketik, adapter tenaga, tangga, gesper, lengan baju, tali
sandang dan paket.jobs wafat pada tanggal 5 0ktober 2011karena di vonis kangker
pankreas.. Jobs
juga sebelumnya menjabat sebagai pejabat eksekutif Pixar Animation Studios;
ia menjadi anggota dewan direkturThe Walt Disney Company pada
tahun 2006, setelah pengambilan alih Pixar oleh Disney. Namanya dicantumkan
sebagai produser eksekutif dalam film Toy
Story tahun
1995. Pada tahun 1984, Jobs mengundurkan diri dari Apple dan
mendirikanNeXT,
Pembelian NeXT oleh Apple pada tahun 1996 membawa kembali Jobs ke perusahaan
yang ia dirikan bersama, dan ia menjabat sebagai CEO-nya sejak 1997 hingga
2011.
CEO Apple ini telah
berhasil mendirikan Mac App Store. Dalam dunia bisnis, Jobs menemukan kembali
paradigma lain cara mengonsumsi teknologi perangkat lunak yang bergengsi
dan paling laku. Walaupun saat peluncuran iPad dan blog teknologi Gizmodo tidak
mengesankan masyarakat.
Pada akhir 1970-an, Jobs, bersama pendiri pendamping Apple Steve
Wozniak, Mike Markkula, dan lainnya, merancang, mengembangkan dan memasarkan
salah satu jajaran komputer pribadi pertama yang sukses secara komersial, yaitu
seri Apple II. Pada awal 1980-an, Jobs termasuk orang-orang yang pertama kali
melihat potensi komersial dari antarmuka pengguna grafis yang digerakkan
tetikus PARC Xerox yang kemudian mendorong pembuatan Macintosh. Setelah kalah
melawan keputusan dewan direktur tahun 1984, Jobs mengundurkan diri dari Apple
dan mendirikan NeXT, sebuah perusahaan pengembangan platform komputer yang
berkecimpung dalam pasar pendidikan tinggi dan bisnis. Pembelian NeXT oleh
Apple pada tahun 1996 membawa kembali Jobs ke perusahaan yang ia dirikan
bersama rekannya. Ia menjabat sebagai CEO-nya sejak 1997 hingga akhirnya
meninggal pada tahun 2011 tepatnya 5 Oktober 2011 di
California pada usia 56 tahun, tujuh tahun setelah didiagnosis menderita kanker
pankreas.
c. Linus Torvalds
Linus Torvalds dilahirkan
di Helsinki, Finlandia, pada tanggal 28 Desember 1969 ini merupakan perintis
dari pengembangan kernel linux dan dialah koordinator proyek tersebut. Ketika
Linus Torvalds, seorang mahasiswa Finlandia pendiam membagi-bagikan kode sumber
(source code) kernel Linux seukuran disket via internet pada tahun 1991, ia
sama sekali tidak menduga bahwa apa yang dimulainya melahirkan sebuah bisnis
bernilai milyaran dolar di kemudian hari. Karena itu belaiu didaulat sebagai
Pencipta dan Penemu Sistem Operasi Linux. Dalam usianya yang ke 10, Linus mulai
berkecimpung di dalam pemograman komputer, Pada tahun 1990, Linus memulai kelas
pemograman C pertamanya. Pada tahun 1991, Linus membeli PC pertamanya,dan dia
tidak puas dengan sistem operasi pada komputernya. Saat itu, komputernya
menggunakan MS-DOS (Disk Operation System, sistem operasi buatan Microsoft),
tapi Linus lebih cenderung untuk menggunakan sistem operasi UNIX, Akhirnya, dia
memutuskan untuk menciptakan versi yang bisa digunakan untuk PC dari UNIX.
Begitu Linus berhasil menciptakan versi kasar dari
Linux, dia memposting pesan dalam internet untuk mengenalkan sistem barunya
kepada pengguna PC yang lain. Linus membuat softwarenya dapat didownload secara
percuma/gratis , dan pada saat itu dia merilis source codenya, yang berarti
bahwa semua orang yang memiliki pengetahuan tentang pemograman komputer dapat
memodifikasi Linux untuk disesuaikan dengan tujuan mereka masing-masing.
Ia bahkan tidak menduga Linux kemudian menjadi sistem
operasi paling menjanjikan, yang bisa dibenamkan ke dalam server, komputer
desktop, tablet PC, PDA, handphone, GPS, robot, mobil hingga pesawat ulang alik
buatan NASA.hal lain menarik dari pengembangan sistem operasi ini adalah basis
open source ini sangat memudahkan para pengguna komputer yang dapat menjalankan
komputer dengan mudah tanpa harus membayar licency seperti sistem operasi
kebanyakan.Saat ini Linus meninggalkan posisi menjanjikan di perusahaan semi
konduktor Transmeta dan tinggal bersama istri dan 3 anaknya di sebuah bukit di
desa di Portland, Oregon, USA, berdekatan dengan markas Open Source Development
Labs. Organisasi nirlaba ini diawaki oleh 20-an programmer yang punya gairah
hampir sama dengan Linus.
d.
Lawrence Larry Ellison
Lawrence Joseph “Larry” Ellison lahir pada 17 Agustus 1944. Adalah
seorang tokoh bisnis Amerika, pendiri dan CEO Oracle Corporation yang merupakan
salah satu perusahaan perangkat lunak database terbesar di dunia. Bisa dibilang
Larry Ellison-lah yang membuat Oracle menjadi sebuah konsep Relational Database
System yang dibutuhkan oleh berbagai industri di dunia seperti saat ini. Mulai
menciptakan konsep database pada 1970, 40 tahun kemudian konsep yang ia
kemukakan telah menjadi sebuah sendi penting dari industri-industri dunia serta
berbagai macam bisnis yang ada pada saat ini. Pada 2011 ia adalah orang kelima
terkaya di dunia versi Forbes, dengan kekayaan pribadi mencapai $
39.500.000.000,-.
Ellison lulus dari Eugene Field Elementary School, Sekolah Dasar
di sisi utara Chicago pada bulan Januari 1958 dan melanjutkan ke Sullivan High
School setidaknya sampai musim gugur tahun 1959 sebelum pindah ke South Shore.
Ellison dibesarkan di sebuah apartemen dengan dua kamar tidur di Chicago
Selatan di lingkungan Yahudi kelas menengah. Ellison mengingat ibu angkatnya
sebagai pribadi yang hangat dan penuh kasih, berbeda dengan sifat keras yang
dia warisi dari ayah angkatnya, seorang Yahudi Rusia dari Krimea yang
mengadopsi nama Ellison untuk menghormati pulau dimana ia masuk ke Amerika
Serikat, Ellis Island. Louis, ayah angkatnya, adalah seorang pegawai pemerintah
sederhana yang mencari sebuah keberuntungan kecil di Chicago real estat, hanya
untuk menghilangkan selama depresi yang dialaminya.
Ellison adalah seorang mahasiswa cerdas namun lalai. Dia
meninggalkan University of Illinois di Urbana-Champaign pada akhir tahun kedua,
setelah tidak mengambil ujian akhir angkatnya karena ibu angkatnya baru saja
meninggal. Setelah menghabiskan musim panas di California Utara, di mana ia
tinggal dengan temannya Chuck Weiss, ia masuk University of Chicago selama satu
periode, di mana ia pertama kali bertemu dan merancang komputer. Pada tahun
1964, pada usia 20 tahun, ia pindah ke California utara secara permanen. Selama
tahun 1970, setelah bertugas sebentar di Amdahl Corporation, Ellison bekerja
untuk Ampex Corporation. Salah satu proyeknya adalah database untuk CIA, yang
ia beri nama “Oracle”.
e. Onno W. Purbo.
Onno Widodo Purbo
salah seorang tokoh dari indonesia yang pakar di bidang sistem informasi pria
asal bandung kelahiran 17 agustus 1962 ini adalah pengembang sistem operasi
berbasis linux dari sekian banyak yang pernah ia kembangkan di antaranya Distro
schoolloffline, distro smeonffline, distro orarinux, distro sekolahnux, distro
ipteknux selain itu juga Onno W Purbo banyak mengeluarkan buku
Beliau memulai pendidikan akademisnya di ITB (Institut
Teknologi Bandung) pada jurusan Teknik Elektro tahun 1981. Enam tahun kemudian,
beliau lulus dengan predikat wisudawan terbaik, kemudian beliau melanjutkan
studi ke Kanada dengan beasiswa PAUME.
RT/RW-Net adalah salah satu dari sekian banyak gagasan yang telah dilontarkannya. Beliau juga aktif menulis dalam bidang teknologi informasi media, seminar, konferensi nasional maupun internasional. IT beliau telah menerima beberapa penghargaan baik di tingkat nasional maupun internasional seperti:
RT/RW-Net adalah salah satu dari sekian banyak gagasan yang telah dilontarkannya. Beliau juga aktif menulis dalam bidang teknologi informasi media, seminar, konferensi nasional maupun internasional. IT beliau telah menerima beberapa penghargaan baik di tingkat nasional maupun internasional seperti:
·
1992,
masuk dalam buku ‘American Men and Women of Science’ R.R.Bowker, NewYork, Amerika
Serikat.
·
1996,
menerima ‘Adhicipta Rekayasa’ dari Persatuan Insinyur Indonesia.
f. Andrew Darwis
Andrew
Darwis Lahir 20
Juli 1979 merupakan
pendiri (founder) komunitas online terbesar di Indonesia.
Kaskus lewat situs Kaskus.us yang
sekarang ini mempunyai lebih dari 3 juta member.
Andrew sekarang menjabat sebagai Chief
Technology Officer (CTO) PT
Darta Media Indonesia (Kaskus) sekaligus pemilik (owner) Kaskus Network
lewat PT Darta Media Indonesia.
Andrew mendirikan Kaskus pada
6 November 1999. Bermula dari pengalamannya saat menimba ilmu di salah satu universitasterkemuka
di Negeri Paman Sam, Seattle University,
Program StudiMultimedia & Web Design,
Art Institute of Seattle Computer
Science di tahun 1999,
pria yang disapa Andrew ini terinspirasi membuat website forum komunitas
yang bisa di bilang menjadi yang terbesar di Indonesia.
Kaskus berasal
dari kata Kasak-Kusuk atau bermakna bergosip. Dengan modal awal sebesar US$ 3
(Rp 30.000,-) untuk membeli server,
Andrew dan dua rekannya, Ronald dan Budi, memilih untuk membuat portal yang
berisi mengenai berita maupun informasi tentang Indonesia. Portal tersebut
sengaja di buat menjadi suatu media untuk memuaskan kerinduan bagi masyarakat
Indonesia yang berada di Luar negeri.
g.
William Nelson Joy
Bill menerima gelar B.S.E.E (Bachelor
of Science Electrical Engineering) dari University of Michigan di tahun 1975.
Kemudian ia melanjutkan pendidikan ke University of California Barkeley, dimana
ia mendapat gelar Master of Science di bidang Electrical Engineering and
Computer Science. Disana pula, selama beberapa tahun ia menjadi ketua desainer
Unix versi Barkley (BSD). Kemudian pria yang akrab disapa Bill ini beserta
grupnya mendapat dukungan dari DARPA (Defense Advanced Research Projects
Agency) untuk melanjutkan proyek tersebut. Proyek ini kemudian menjadi tulang
punggung dari konsep “open source”.
KESIMPULAN
Kesuksesan yang mereka
dapatkan itu tidak semata-mata dengan semudah membalikkan telapak
tangan dan tidak semudah yang kita kira, banyak
cobaan danrintangan-rintangan yang harus mereka hadapi untuk mencapai kesuksesan
itu, dimulaidari hinaan, kesalah dalam mengerjakan sebuah
program dll.
Meskipun banyaknya cobaan dan
rintangan yang harus mereka lewati tapi mereka masih saja selalu
bersemangat agar dapat meraih impian dan cita-cita mereka. ini sangat patut kita acungkan jempol, karena dengan
kita ketahui perjuangan, usaha dan kerja keras
mereka yang akhirnya dapat membuat mereka sampai menuju puncak
kesuksesan.
jadi janganlah kita putus asa terhadap sebuah kegagalan, selalulah kita berusaha, berdo'a dan berikhtiar, dengan kita memegang 3 prinsip tersebut tentu kita akan menjadi orang yang sukses dimasa mendatang.
jadi janganlah kita putus asa terhadap sebuah kegagalan, selalulah kita berusaha, berdo'a dan berikhtiar, dengan kita memegang 3 prinsip tersebut tentu kita akan menjadi orang yang sukses dimasa mendatang.
"Setiap Palawan ada
Zamannya dan Setiap Zaman ada Pahlawannya"
jadi kita janganberfikir kalau kita tidak bisa menjadi pahlawan,
karena ada masa-masa pahlawan bagi kita masing-masing.
selalu bersemangat "kita boleh saja memaksa tapi jangan sampai
tersiksa"
DAFTAR
PUSTAKA
Suzane C. De Janasz, Karen O Dowd, Beth Z. Scheider, Interpersonal Skills
in Organizations. Second Edition, McGraw-Hill International, 2006
Langganan:
Postingan (Atom)