Laman

Thursday, December 9, 2010

Menciptakan Pola Pikir

Ketika seseorang sedang melewati gajah, ia tiba-tiba berhenti, bingung dengan  makhluk-makhluk besar yang diikat oleh tali kecil pada kaki depan mereka. Gajah tidak dirantai, juga tidak dikandang. Sudah jelas gajah bisa melepaskan diri kapan saja dari tali yang mengikat gajah tersebut. seseorang tersebut bertanya ke pelatih yang ada didekatnya, kenapa hewan-hewan besar (gajah) itu tidak berusaha melarikan diri, padahal itu adalah sangat mudah untuk gajah lakukan.
“Yah,” kata pelatih gajah, “ketika gajah-gajah itu masih sangat muda dan jauh lebih kecil, kami mengikat gajah tersebut menggunakan tali ukuran kecil yang pada usia saat itu cukup untuk menahan gajah tersebut. Ketika gajah-gajah itu tumbuh, gajah-gajah itu dikondisikan untuk percaya bahwa gajah tersebut tidak dapat melepaskan diri dari ikatan itu. Gajah itu percaya bahwa tali yang kecil itu masih bisa menahan mereka, sehingga gajah-gajah tersebut tidak pernah mencoba membebaskan diri.
Orang tersebut kagum. Gajah ini bisa setiap saat melepaskan diri dari ikatan mereka tetapi karena mereka percaya bahwa mereka tidak bisa, mereka berdiam diri. Gajah tersebut terjebak dengan apa yang mereka percayai.
Berapa banyak dari kita menjalani hidup tergantung pada keyakinan bahwa kita tidak bisa melakukan sesuatu, hanya karena kita gagal sekali sebelumnya? Kita telah tumbuh lebih dewasa, paling tidak telah bertambah usia dan pengalaman hidup. Jadi mari kita coba ulangi apa yang kita takut karenanya, bukan untuk gagal lagi, tetapi untuk menutup ketakutan dengan keberhasilan.

Gagal meyakinkan diri untuk mencoba lagi, adalah kegagalan yang sesungguhnya

Anda mungkin pernah gagal dalam berjuang, tetapi tidak ada kata gagal dalam perjuangan.

Monday, December 6, 2010

Find Data

Tugas Kuliah Komputer Dasar - Statistika-A UB

Tugas No 1. Prosedur AKU

type
tdata=char;
tlarik=array[1..100] of tdata;

procedure input(var n:byte; var data:tlarik);
var i:byte;
Begin
     Write('input banyak data : ');
     Readln(n);
     for i:=1 to n do
     begin
         write('input data ke-',i,' : ');
         readln(data[i]);
     end;
end;

procedure cetak(n:byte; var data:tlarik);
var i:byte;
begin
     writeln;
     writeln('Tampilan');
     writeln('--------');
     for i:=1 to n do
     begin
          write(data[i]);
     end;
end;

var
data:tlarik;
n:byte;
begin
     input(n,data);
     cetak(n,data);
     readln;
End.




Tugas no 2. Find Data

const max=100;
type
tdata=real;
tlarik=array[1..max] of tdata;

procedure setdata(n:byte; var a :tlarik);
var i:byte;
begin
     for i:= 1 to n do
     begin
          write('a[',i,']= ');
          readln(a[i]);
     end;
end;


procedure cetak (n:byte; var a:tlarik);
var i:byte;
begin
     for i:=1 to n do
     writeln('a[',i,'] : ',a[i]:2:0);
end;

procedure findpos(n:byte; a:tlarik; dt_cari:real;var posisi:byte);
var i:byte;
    ketemu:boolean;
begin
     i:=1;
     ketemu:=false;
     while (not ketemu) and (i<=n) do
     begin
          if (dt_cari= a[i]) then
          begin
               ketemu := true;
               posisi := i;
          end;
          inc(i);
     end;
end;

function findpos1(n:byte;a:tlarik;dt_cari:real):byte;
var i:byte;
    ketemu:boolean;
begin
     i:=1;
     ketemu:=false;
     while (not ketemu) and (i<=n) do
     begin
          if (dt_cari= a[i]) then
          begin
               ketemu := true;
               findpos1 := i;
          end;
          inc(i);
          end;
end;

var
a:tlarik;
n,posisi,x:byte;
begin
     write('Masukkan banyaknya data : ');
     readln(n);
     setdata(n,a);
     writeln;
     cetak(n,a);
     write('nilai yang dicari: ');
     readln (x);
     findpos(n,a,x,posisi);
     writeln('nilai ',x,': terletak pada posisi ke- ',posisi);
     write('nilai yang dicari: ');
     readln (x);
     writeln('nilai  ',x,':terletak pada posisi ke-',findpos1(n,a,x));
     writeln;
     readln;
end.



Sunday, November 21, 2010

UAP Komdas

Praktikum Komputer Dasar - Statistika C UB
 

Kelompok 1
0910950007 Gilang Permana
0910950019 Yoeni Shara
0910950036 Esti Herdina S
0910950069 Suprianto
Materi : Statistika deskriptif
( rata-rata, simpangan baku, nilai min, maks, range, median, kuartil 1 & 3)
Kelompok 2
0910950001 Aldila Nur Dianiati
0910950035 Erwin Andrianto
0910953043 Ridia Nurul H
0910953047 Dea Lucky S
Materi : Rancangan Acak Lengkap ( 2 perlakuan & 3 ulangan; α = 5%)
Kelompok 3
0910950009 Listia Nugraheni
0910950043 Ira Saraswati
0910951007 Lintang Asdya R
0910953019 Asri Rizza U
Materi : 1. Teori Kombinatorika ( kombinasi )
              2. Menentukan Umur  
Kelompok 4
0910950033 Elsa Azizah K
0910950039 Fiqih Rahmadani
0910950041 Hanafi Rahman
0910950057 Okky Arika A
Materi : Regresi Linier Sederhana ( menentukan model regresi -- Y = β0 + β1X )
Kelompok 5
0910950045 Kasih Maharani
0910950047 Leli Dwi K
0910950063 Risha Andasari U
0910950071 Yogi Chandra S
Materi  : 1. Teori Kombinatorika ( Permutasi )
             2.  Penjumlahan, Pengurangan, Perkalian, & Transpose 2 buah Matriks
Silahkan download penjelasan materi UAP masing-masing kelompok & TUNGGU INFO SELANJUTNYA…!!!

---GOOD LUCK---

Friday, November 19, 2010

Berpikir & Bertindak, Mana Ya Yang Didahulukan??

Ada pepatah bilang :

Kegagalan dapat disebabkan oleh dua hal yaitu: berpikir tapi tidak pernah bertindak, dan bertindak tapi tidak pernah berpikir.
Kalau ditinjau dari ungkapan tersebut maka tidak ada yang di dahulukan, karena semua mempunyai korelasi yang sangat erat. Tidak harus selalu berpikir dulu kemudian baru bertindak, atau bertindak dulu baru berpikir. Sehingga berpikir dan bertindak harus dilakukan secara seimbang, dahulukan aja yang mana yang lebih penting...

Tuesday, November 16, 2010

Where There Is A Will, There Is A Way

Sering kita mendengar ungkapan seorang teman atau kerabat yang berkata, iya kamu sih bisa sukses soalnya latar belakangmu bagus, keluargamu mendukung, kalau aku tidak, atau ungkapan lainnya yang berbunyi hokimu bagus makanya usahamu lancar dan sukses sedang aku susah, banyak sekali masalah aku jumpai.

Hidup adalah dinamika, kadang naik kadang turun. Mari sejenak kita bercermin sudah seberapa jauhkan perjalanan hidup kita arungi?? Lalu apakah yang sudah kita peroleh saat ini?? Seberapa besarkah harapan dan usaha kita dalam menjalani hari-hari kita kedepan yang tentunya penuh tantangan pun penuh harapan??

Tidak ada satu mahluk hiduppun di dunia ini yang tidak akan mendapatkan masalah dalam hidupnya, Tuhan memberikan kita modal untuk mengarungi hidup, coba lihat panca indera kita, apakah kita sudah gunakan dengan optimal, buah pikiran dan kemampuan kita suah maksimalkah kita gunakan.

Tidaklah Tuhan menciptakan cumi-cumi atau gurita tanpa tinta begitu saja, atau tidaklah diciptakan seekor rusa dengan tanduk tanpa sebuah maksud. Tentu Yang Maha Pencipta sudah memperhitungkan dan memikirkan hal tersebut dengan sangat teliti dan Maha Mengerti. Kita semua diberikan Tuhan bekal untuk hidup dan menghadapi masalah yang sekiranya bakal terjadi. Namun seringkali kita sia-saiakan modal Illahiah tersebut.

Keberhasilan seringkali membutuhkan beberapa fase kegagalan dalam proses pencapaiannya

Lihatlah foto bayi tersebut, bukankah dengan susah payah