Rabu, 03 Juni 2009

StruktuR Data Modul 09

MODUL 9

TREE

 

Tree

          Merupakan salah satu bentuk struktur data tidak linear yang menggambarkan hubungan yang bersifat hirarkis (hubungan one to many) antara elemen-elemen. Tree bisa didefinisikan sebagai kumpulan simpul/node dengan satu elemen khusus yang disebut Root dan node lainnya terbagi menjadi himpunan-himpunan yang saling tak berhubungan satu sama lainnya (disebut subtree). Untuk jelasnya, di bawah akan diuraikan istilah-istilah umum dalam tree :

a)     Prodecessor : node yang berada diatas node tertentu.

b)    Successor    : node yang berada di bawah node tertentu.

c)      Ancestor     : seluruh node yang terletak sebelum node tertentu dan terletak pada jalur yang sama.

d)     Descendant : seluruh node yang terletak sesudah node tertentu dan terletak pada jalur yang sama.

e)      Parent                   : predecssor satu level di atas suatu node.

f)       Child           : successor satu level di bawah suatu node.

g)      Sibling         : node-node yang memiliki parent yang sama dengan suatu node.

h)      Subtree       : bagian dari tree yang berupa suatu node beserta descendantnya dan memiliki semua karakteristik dari tree tersebut.

i)         Size            : banyaknya node dalam suatu tree.

j)        Height                   : banyaknya tingkatan/level dalam suatu tree.

k)      Root           : satu-satunya node khusus dalam tree yang tak punya predecssor.

l)        Leaf            : node-node dalam tree yang tak memiliki seccessor.

m)   Degree        : banyaknya child yang dimiliki suatu node.

Contoh :



 

Ascestor (F)     = C,A

Descendant (C) = F,G

Parent (D)        = B

Child (A)          = B,C

Sibling (F)         = G

Size                  = 7

Height              = 3

Root                 = A

Leaf                 = D,E,F,G

Degree (C)       = 2


Beberapa jenis Tree yang memiliki sifat khusus :

1)    Binary Tree

Binary Tree adalah tree dengan syarat bahwa tiap node hanya boleh memiliki maksimal dua subtree dan kedua subtree tersebut harus terpisah. Sesuai dengan definisi tersebut, maka tiap node dalam binary tree hanya boleh memiliki paling banyak dua child











 

Jenis-jenis Binary Tree :

a)      Full Binary Tree

Binary Tree yang tiap nodenya (kecuali leaf) memiliki dua child dan tiap subtree harus mempunyai panjang path yang sama.






 

 


a)      Complete Binary Tree

Mirip dengan Full Binary Tree, namun tiap subtree boleh memiliki panjang path yang berbeda. Node kecuali leaf memiliki 0 atau 2 child.








 

a)      Skewed Binary Tree

akni Binary Tree yang semua nodenya (kecuali leaf) hanya memiliki satu child.






Implementasi Binary Tree

Binary Tree dapat diimplemntasikan dalam Pascal dengan menggunakan double Linked List. Untuk nodenya, bisa dideklarasikan sbb :

Type Tree    = ^node;

          Node = record

                           Isi        : TipeData;

                           Left,Right : Tree;

                       end;

Contoh ilustrasi Tree yang disusun dengan double linked list :































 

1)    Binary search Tree

Adalah Binary Tree dengan sifat bahwa semua left child harus lebih kecil daripada right child dan parentnya. Juga semua right child harus lebih besar dari left child serta parentnya. Binary seach tree dibuat untuk mengatasi kelemahan pada binary tree biasa, yaitu kesulitan dalam searching / pencarian node tertentu dalam binary tree. Contoh binary search tree umum :












Pada dasarnya operasi dalam binary search tree sama dengan Binary tree biasa, kecuali pada operasi insert, update, dan delete.

1.      Insert  : Pada Binary Search Tree, insert dilakukan setelah ditemukan lokasi yang tepat. (Lokasi tidak ditentukan oleh user sendiri).





























 

1.      Update   : Seperti pada Binary Tree biasa, namun disini uapte akan berpengaruh pada posisi node tersebut selanjutnya. Bila setelah diupdate mengakibatkan tree tersebut bukan Binary Search Tree lagi, maka harus dilakukan perubahan pada tree dengan melakukan perubahan pada tree dengan melakukan rotasi supaya tetap menjadi Binary Search Tree.

2.      Delete : Seperti halnya update, delete dalam  Binary Search Tree juga turut mempengaruhi struktur dari tree tersebut.

 



StruktuR Data Modul 10

MODUL 10 SORT Definisi Sort Sort adalah proses pengurutan data yang sebelumnya disusun secara acak sehingga menjadi tersusun secara teratur menurut suatu aturan tertentu. Pada umumnya terdapat 2 jenis pengurutan :  Ascending (Naik)v  Descending (Turun)v Contoh : Data Acak : 5 6 8 1 3 25 10 Terurut Ascending : 1 3 5 6 8 10 25 Terurut Descending : 25 10 8 6 5 3 1 Untuk melakukan proses pengurutan tersebut dapat digunakan berbagai macam cara / metoda. Beberapa metoda diantaranya : a) Buble / Exchange Sort b) Selection Sort c) Insertion Sort d) Quick Sort Bubble / Exchange Sort Memindahkan elemen yang sekanag dengan elemen yang berikutnya, jika elemen sekarang > elemen berikutnya, maka tukar Proses : Langkah 1 :
Pengecekan dapat dimulai dari data paling awal atau paling akhir. Pada contoh di samping ini pengecekan di mulai dari data yang paling akhir. Data paling akhir dibandingkan dengan data di depannya, jika ternyata lebih kecil maka tukar. Dan pengecekan yang sama dilakukan terhadap data yang selanjutnya sampai dengan data yang paling awal. 
Proses di atas adalah pengurutan data dengan metoda bubble ascending. Untuk yang descending adalah kebalikan dari proses diatas. Berikut penggalan listing program Procedure TukarData dan Procedure Bubble Sort. Procedure TukarData Procedure TukarData(var a,b : word); Var c : word; Begin c:=a; a:=b; b:=c; end; Procedure Bubble Sort Ascending Procedure Asc_Bubble(var data:array; jmldata:integer); Var i,j : integer; Begin For i:= 2 to jmldata do For j:= jmldata downto I do If data[j] <> data[j-1] then Selection Sort Membandingkan elemen yang sekarang dengan elemen yang berikutnya sampai dengan elemen yang terakhir. Jika ditemukan elemen lain yang lebih kecil dari elemen sekarang maka dicatat posisinya dan kemudian ditukar. Dan begitu seterusnya. Proses : 
Proses pengurutan di atas adalah dengan metoda selection Ascending. Untuk descending hanyalah kebalikan dari proses di atas. Berikut penggalan listing program Procedure Selection Sort secara ascending Procedure Selection Sort Ascending Procedure Asc_Selection; Var min, pos : byte; Begin For i:= 1 to max-1 do Begin Pos:=i; For j:= i+1 to max do If data[j] <> pos then tukardata(data[i],data[pos]); end; end; untuk pngurutan secara desending, anda hanya perlu mengganti baris ke-8 sbb : if data[pos] < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh2vduIt_OatJU9KmnmCJoky9xGsQEhOnt4TifKsAYInUJM00ALlYI0vFkhnoV3dOkhiVxdGN9myIGLxUi4wYtab4Mltz0WmGEoOFdhI8fAzuqgX3lHEjhdFGfw6ex_t3Y2z9UDsAxVj2A2/s1600-h/modul+10+gb4.JPG">
Procedure Insertion Sort Ascending Procedure Asc_Insert; Var i , j , temp : byte; Begin For i := 2 to max do Begin Temp :=data[i]; j := i-1; while (data[j] > temp) and (j>0) do begin data[j+1] := data[j]; dec(j); end; data[j+1]:=temp; end; end; Untuk pengurutan secara descending anda tinggal mengganti baris ke 8 dengan baris berikut ini : While(data[j]0)do QUICK SORT Membandingkan suatu elemen (disebut pivot) dengan elemen yang lain dan menyusunnya sedemikian rupa sehingga elemen- elemen lain yang lebih kecil daripada pivot tersebut terletak di sebelah kirinya dan elemen-elemen lain yang lebih besar daripada pivot tersebut terletak di sebelah kanannya. Sehingga dengan demikian telah terbntuk dua sublist, yang terletak di sebelah kiri dan kanan dari pivot. Lalu pada sublist kiri dan sublist kanan kita anggap sebuah list baru dan kita kerjakan proses yang sama seperti sebelumnya. Demikian seterusnya sampai tidak terdapat sublist lagi. Sehingga didalamnya telah terjadi proses Rekursif. Proses : Bilangan yang di dalam kurung merupakan pivot Persegi panjang yang digambarkan dengan garis terputus-putus menunjukkan sublist. i bergerak dari sudut kiri ke kanan sampai mendapatkan nilai yang >= pivot. j bergerak dari sudut kanan ke kiri sampai menemukan nilai yang < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJRKIT0SUzR-2fcaVIo9ZeKo9hbk10R6hQPsQFIeu1kiRbca5yzICWl3L4NU4hWZXOjJPuTRi4DSbzDgFRhrdFGic8JUQC1Ig7HCRFC_ivoVZVbtjSOVuMoIPzICMs7mu0Ma27MHeUjm2d/s1600-h/modul+10+gb5.JPG">
i berhenti pada index ke-1 karena langsung mendapatkan nilai yang > dari pivot (15). j Berhenti pada index ke-6 karena juga langsung mendapatkan nilai yang < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJaxdCM79nXRyaHCvzq1mpmAgowSNCf9KpmY8hS_gGM1elPs6SsaaUSaVWDl3whJh-7rWWHJDSiBTtaxE5vAqoY3tDoOY8uCq_tSa2tvTysrlsxTVjjMTIlBPVSJf_e6EA6qgMdQUyCXPp/s1600-h/modul+10+gb6.JPG">
i berhenti pada index ke-3 (pivot) karena tidak menemukan bilangan yang > dari pivot. j berhenti pada index k-5 menunjuk pada nilai yang < onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}" href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuT-gCEqHukcX66Fen_Mi-aO2j00DbA1mkbfl9wrWZfd_2HpekXAVsruadGybfw06jkNxK79GiuPekBtc59QrmPAqIACXBZgnWUqABybL8yiT46rsdxAG2u9eibH00XyJLT-lQPVn3RaBh/s1600-h/modul+10+gb7.JPG">
Procedure Quisort dengan nilai paling kiri sebagai pembanding (pivot). Procedure Asc_Quick(L,R : Integer); Var i, j:integer; Begin If L= data[1]; repeat dec(j) until data[j] <= data[1]; if i <> j; tukardata (data[1], data[j]); Asc_Quick(L,j-1); Asc_Quick(j+1,R); End; End; Untuk pengurutan secara descending anda tinggal mengganti tanda aritmatik pada baris k 8 dan 9 sehingga menjadi seperti baris berikut : repeat inc(i) until data[i] >= data[l]; repeat dec(j) until data[j] <= data[l]; Procedure Quick Sort dengan nilai tengah sebagai pembanding (pivot). Procedure Asc_Quick(L,R : Integer); Var mid, i, j : integer; begin i:= L; j:=R mid := data[(L+R) div 2]; repeat while data[i] <> mid do dec(j); if i <> j; if L <> R then Asc_Quick(i , R); end; Untuk pengurutan secara descending, anda hanya perlu mengganti baris ke-6 & 7 sbb : while data[j] <> mid do dec(k); Latihan Soal beserta jawaban (Listing program) dan penjelasan. Anda diminta membuat sbuah program sorting dengan metode bubl sort. Mintalah user untuk memasukkan 10 angka. Lalu tampilkan angka-angka trsebut setelah disort baik secara ascending maupun descendeing 
jawaban : uses crt; const max = 10; Type arr = array[1..max] of byte; Var i : byte; Data : arr; Procedure Input; begin Clrscr; Writeln (‘Masukkan 10 data’); Writeln (‘= = = = = = = = = =’); For i := 1 to max do {input 10 data} begin write(‘Data ke-‘, i ,’=’); readln(data[i]); end; Clrscr; For i := 1 to max do Write(data[i],’ ‘); Writeln; Writeln (‘ * * * * * * * * * * * * * * *); Writeln (‘Data yang telah diurutkan :’); end; Procedure Change (var a,b :byte); {procedure untuk menukar data} Var c : byte; Begin c := a; a := b; b := c; end; Procedure Asc_Buble; {pengurutan secara ascending} Var p,q : byte; flaq : boolean; begin flaq:=false; p:=2; while (p

Jumat, 29 Mei 2009

TERMINATOR SALVATION

TERMINATOR SALVATION', Saat Robot Ingin Menguasai Dunia

CETAK ARTIKEL INI
DAFTAR MAILING LIST
KIRIM KE TEMAN
KOMENTAR FANS CHRISTIAN BALE
Lihat TrailerKamis, 28 Mei 2009 09:13KapanLagi.com - Pemain: James Cameron, Gale Anne Hurd, Christian Bale, Sam Worthington, Anton Yelchin, Bryce Dallas Howard, Moon Bloodgood, Common, Helena Bonham Carter
Oleh: Fatchur Rochim
John Connor (
Christian Bale) adalah manusia yang ditakdirkan untuk memimpin sisa-sisa manusia yang memberontak terhadap Skynet dan pasukan Terminator-nya. John bersama para kaum Resistance kemudian merencanakan untuk menghancurkan Skynet dalam usaha mengembalikan manusia sebagai pemimpin di muka bumi.

Dalam persiapan penghancuran Skynet inilah kemudian muncul seorang pria bernama Marcus Wright. Marcus kehilangan ingatannya dan tak tahu dari mana ia berasal. Yang ada dalam ingatannya hanyalah saat dirinya berada dalam eksekusi. Sebenarnya Marcus adalah manusia yang telah diubah menjadi robot setelah ia sendiri dieksekusi satu tahun sebelumnya.
Di saat yang hampir bersamaan dengan rencana kaum Resistance untuk meruntuhkan Skynet, para robot ternyata juga punya rencana untuk membunuh para pemimpin Resistance. Nama John Connor ada dalam daftar Skynet namun John tak mengerti kenapa nama Kyle Reese (Anton Yelchin) juga ada dalam daftar eksekusi tersebut. Menurut John, Kyle terlalu muda untuk dianggap sebagai ancaman buat Skynet.

Hanya gara-gara Christian Bale menolak peran utama dan bersikeras hanya mau memerankan karakter John Connor maka naskah film yang sudah jadi terpaksa harus disusun ulang. Untungnya kerja keras ini tak terlalu buruk karena tak terlihat kesan bahwa Bale hanya sekedar 'tempelan' dalam film ini. Namun kabarnya McG, sang sutradara harus memangkas sekitar 40 menit durasi film sebelum akhirnya TERMINATOR SALVATION bisa disajikan sebagai sebuah tontonan.
Pemotongan ini bisa dimaksudkan sebagai 'penyesuaian' namun bisa juga dilihat sebagai pertanda ketidakpuasan sang sutradara pada hasil akhir syuting. Yang jelas pada beberapa bagian memang terlihat bahwa ritme film secara keseluruhan sepertinya tak tertata rapi. Ini diperburuk lagi dengan beberapa special effect yang berkesan cheap. Tapi secara keseluruhan dari keempat film TERMINATOR yang satu ini lebih berkesan kelam.

Soal akting, nama Christian Bale mungkin tak perlu lagi diragukan apalagi setelah menonton akting Bale dalam THE DARK KNIGHT. Tapi ada satu fakta menarik yang terjadi pada dua film ini. Seperti juga pada THE DARK KNIGHT, Bale dalam film ini kembali kecolongan. Meski namanya dipasang paling atas namun justru Sam Worthington dan Anton Yelchin yang terlihat lebih bersinar.

Senin, 30 Maret 2009

MISSCOMUNICATION

MIsscomunication



Alkisah ada seorang Cina dengan orang Inggris yang saling tak memahami bahasa mereka masing-masing. Mereka berdua memutuskan pergi ke restoran dan makan bersama.

Dengan bahasa Inggris seadanya mereka sepakat dengan makanan yang dipesan dan saat makanan mulai diantar mereka mulai menyantapnya.

Setiap kali orang Cina tersebut mengangkat gelasnya, ia berkata kepada kawan Inggrisnya, Gan bei! (baca: kan pei !; artinya: "bersulang!")

Orang Inggrisnya semula tertegun, namun ia kemudian melanjutkan makannya. Hal ini terulang lagi setiap kali orang Cina tersebut hendak minum, ia mengucapkan Gan bei! (baca: kan pei).

Si orang Inggris ini hanya mengangguk, diam sebentar kemudian melanjutkan
makannya.

Tak lama kemudian orang Cina itu kembali meneriakkan Gan bei! sambil
mengangkat gelas. Kali ini orang Inggris itu meletakkan alat makannya lalu
berkata lantang kepada kawan Cina nya: "It's all right if you CAN'T PAY! I will pay!".

Si orang Cina hanya bisa melongo dengan reaksi kawan Inggrisnya

humor lawliet

artikel nie gue ambil dari KapanLagi.com yach sedikit buwad hiburan buad pengunjung ...


Kapan Belajarnya....??????????
by: Kapanlagi.com

Tahu kan Pa... Ma..., setahun itu 365 hari. Ada 52 hari minggu setahun di mana kita tahu ini adalah hari istirahat. Sehingga hari yang tersisa 313 hari.

Setahun ada 13 hari libur nasional. Berarti tinggal 300 hari. Liburan sekolah setahun paling sedikit 30 hari (bulan puasa kadang-kadang libur), maka hari yang tersisa hanya 270 hari.

Ke sekolah bisa menghabiskan waktu 1 jam pergi 1 jam pulang, ini sama dengan 30 hari setahun. Sisa hari menjadi 240 hari. Umumnya orang perlu 8 jam untuk tidur, berarti 120 hari setahun. Tinggal 120 hari lagi.

Anak yang baik pastilah tidak lupa beribadah. Anggaplah 1 – 1 ½ jam sehari berarti setahunnya 25 hari. Hari yang tersisa 95 hari. Bermain juga baik untuk kesegaran dan kesehatan, sebutlah 1 jam sehari berarti 15 hari setahun. Tinggal 80 hari lagi.

Makan, minum, jajan katakanlah 1 jam sehari sehingga menjadi 15 hari setahun. Tersisa 65 hari. Setiap orang pastilah perlu mandi, buang air dan ganti pakaian dan minimal menghabiskan 1 jam sehari berarti 15 hari lagi. Masih ada 50 hari lagi.

Jangan lupa, manusia butuh bersosialisasi dengan orang lain katakanlah sehari hanya bicara 1 jam sehingga perlu 15 hari lagi. Tinggal 35 hari lagi. Masak sih ga nonton TV sebutlah 1 jam sehari ini juga berarti 15 hari setahun. Tinggal 20 hari.

Biasanya ujian 6 hari per semester, berarti 12 hari setahun. Tersisa 8 hari lagi. Setiap orang pasti bisa sakit. Katakanlah 7 hari sakit setahun cukup masuk akal. Tinggallah 1 hari lagi.

Satu hari itu HARI ULANG TAHUNKU Pa.., masak sih belajar?

Senin, 16 Maret 2009

Alamat blog baruw

oi....oi....
mua na...
untuk mempermudah para pembaca blog lawliet,
sekarang blog na Lawliet bisa juga d akses melalui alamat nhe http://lawlietsan.co.cc/ atau juga
click jha di
SINI

Sabtu, 14 Maret 2009

Bagi loe yang maw download buku tamu , silahkan click link berikut


Download buku tamu.doc

untitle

Satu kata yang terucap Mengguncang gelora hati Satu Kata yang kau ucap Gemuruh hati tanpa henti Kau ucap kata perih untukku Tak dapat...