source : http://dorkoinvasion.tumblr.com/post/1479129428

THE FOUNDER

twitter -> Jack Dorsey, Evan Williams, Biz Stone

facebook -> Mark Zuckerberg, Eduardo Saverin, Dustin Moskovitz, Chris Hughes

google -> Sergey Brin, Larry page

tumblr -> David Karp

yahoo! -> Jerry Yang, David Filo

friendster -> Jonathan Abrams

Sebenarnya saya tidak mengerti sedikitpun cara bermain gitar, tapi saya suka mendengarkan musik dari seorang pemusik yang dinyanyikan orang lain dengan versi yang berbeda (cover).

Beberapa hari yang lalu saya melihat video seorang guitaris dari yotube. Dia membawakan lagu-lagu penyanyi terkenal dengan cara bermain gitar hebat, Jung Sungha namanya dan Fingerstyle adalah gaya bermain gitarnya

JungSungha lahir di Korea Selatan 2 September 1996, saya lihat-lihat di youtube sepertinya dia bermain gitar sejak dia kecil.

Baru-baru ini pada Februari 2011 Sungha mengeluarkan sebuah album “Perfect Blue” yang berisi 18 lagu.

Untuk lebih jelasnya klik   http://www.sunghajung.com

Di bawah ini program perpustakaan dengan menggunakan double linked list yang saya buat. semoga bermanfaat.

program dls_perpustakaan;

uses crt;

type

perpus_pointer = ^simpul;

simpul = record

judulbuku : string;

jenisbuku : string;

penulisbuku : string;

next : perpus_pointer;

prev : perpus_pointer;

end;

var

awal,akhir : perpus_pointer;

judul,jenis,penulis : string;

menu,menusisip,menuhapus : integer;

procedure menuutama(var menu:integer);

begin

gotoxy(1,1);writeln(‘PROGRAM PERPUSTAKAAN’);

gotoxy(1,2);writeln(‘——————–’);

gotoxy(1,3);writeln(’1. Penyisipan Data Buku’);

gotoxy(1,4);writeln(’2. Penghapusan Data Buku’);

gotoxy(1,5);writeln(’3. Pencarian Data Buku’);

gotoxy(1,6);writeln(’4. Daftar Data Buku’);

gotoxy(1,7);writeln(’0. Hapus Daftar Buku’);

gotoxy(1,8);write(‘Pilih Menu Utama : ‘);readln(menu);

end;

procedure menupenyisipan(var menusisip:integer);

begin

writeln(‘PROGRAM PERPUSTAKAAN’);

writeln(‘——————–’);

writeln(‘Penyisipan Data Buku’);

writeln(’1. Penyisipan Depan’);

writeln(’2. Penyisipan Tengah’);

writeln(’3. Penyisipan Belakang’);

write();

write(‘Pilih Menu Penyisipan : ‘);readln(menusisip);

end;

procedure menupenghapusan(var menuhapus:integer);

begin

writeln(‘Penghapusan Data Buku’);

writeln(’1. Penghapusan Depan’);

writeln(’2. Penghapusan Tengah’);

writeln(’3. Penghapusan Belakang’);

write(‘Pilih Menu Penghapusan : ‘);readln(menuhapus);

end;

procedure inputdata(var judul,jenis,penulis : string);

begin

writeln(‘Masukan Data Buku’);

writeln(‘—————–’);

write(‘Judul Buku :’);readln(judul);

write(‘Jenis Buku :’);readln(jenis);

write(‘Penulis Buku :’);readln(penulis);

end;

{procedure penyisipan}

procedure sisipdepandouble(judul,jenis,penulis : string; var awal,akhir:perpus_pointer);

var

baru :perpus_pointer;

begin

new(baru);

baru^.judulbuku := judul;

baru^.jenisbuku := jenis;

baru^.penulisbuku := penulis;

if(awal = nil)

then

begin

baru^.next := nil;

baru^.prev := nil;

akhir := baru

end

else

begin

baru^.next := awal;

baru^.prev := nil;

awal^.prev := baru;

end;

awal := baru;

end;

procedure sisipbelakangdouble(judul,jenis,penulis : string; var awal,akhir:perpus_pointer);

var

baru :perpus_pointer;

begin

new(baru);

baru^.judulbuku := judul;

baru^.jenisbuku := jenis;

baru^.penulisbuku := penulis;

baru^.next := nil;

if(awal = nil)

then

begin

awal := baru;

baru^.prev := nil;

akhir := baru

end

else

begin

akhir^.next := baru;

baru^.prev := akhir;

end;

akhir := baru;

end;

procedure sisiptengahdouble(judul,jenis,penulis : string; var awal,akhir:perpus_pointer);

var

datasisip : string;

baru,bantu : perpus_pointer;

ketemu : boolean;

begin

new(baru);

baru^.judulbuku := judul;

baru^.jenisbuku := jenis;

baru^.penulisbuku := penulis;

if(awal = nil)

then

begin

awal := baru;

baru^.prev := nil;

baru^.next := nil;

akhir := baru

end

else

begin

writeln(‘Data Dimasukan Setelah (Judul Buku) ; ‘);readln(datasisip);

bantu := awal;

ketemu := false;

while(not ketemu)and(bantu<>nil)do

begin

if(bantu^.judulbuku = datasisip)

then

ketemu := true

else

bantu := bantu^.next;

end;

if(bantu=akhir)

then

sisipbelakangdouble(judul,jenis,penulis,awal,akhir)

else

begin

baru^.prev := bantu^.prev;

baru^.next := bantu;

baru^.prev^.next := baru;

bantu^.prev := baru;

end;

end;

end;

{procedure penghapusan}

procedure hapusdepandouble(var judul,jenis,penulis : string; var awal,akhir:perpus_pointer);

var

phapus : perpus_pointer;

begin

phapus := awal;

if(awal=akhir)

then

begin

awal := nil;

akhir := nil;

end

else

begin

awal := awal^.next;

awal^.prev := nil;

end;

judul := phapus^.judulbuku;

jenis := phapus^.jenisbuku;

penulis := phapus^.penulisbuku;

dispose(phapus);

end;

procedure hapusbelakangdouble(var judul,jenis,penulis:string; var awal,akhir:perpus_pointer);

var

phapus : perpus_pointer;

begin

if(awal=akhir)

then

begin

phapus := awal;

awal := nil;

akhir := nil;

end

else

begin

phapus := akhir;

akhir := phapus^.prev;

akhir^.next := nil;

end;

judul := phapus^.judulbuku;

jenis := phapus^.jenisbuku;

penulis := phapus^.penulisbuku;

dispose(phapus);

end;

procedure hapustengahdouble(var judul,jenis,penulis:string; var awal,akhir:perpus_pointer);

var

phapus : perpus_pointer;

datahapus : string;

ketemu : boolean;

begin

write(‘Masukan Judul Buku pada Data yang akan Dihapus : ‘);readln(datahapus);

phapus := awal;

ketemu := false;

while(not ketemu)and(phapus <> nil)do

begin

if(phapus^.judulbuku = datahapus)

then

ketemu := true

else

phapus := phapus^.next;

end;

if(ketemu)

then

begin

if(phapus=awal)

then

hapusdepandouble(judul,jenis,penulis,awal,akhir)

else

begin

if(phapus=akhir)

then

hapusbelakangdouble(judul,jenis,penulis,awal,akhir)

else

begin

phapus^.next^.prev := phapus^.prev;

phapus^.prev^.next := phapus^.next;

judul := phapus^.judulbuku;

jenis := phapus^.jenisbuku;

penulis := phapus^.penulisbuku;

dispose(phapus);

end;

end;

end

else

write(‘Data Tidak Ditemukan’);

end;

{procedure tampil data}

procedure Tampildata(var awal : perpus_pointer);

var

bantu : perpus_pointer;

x :integer;

begin

bantu := awal;

x := 13;

gotoxy(2,10);writeln(‘Daftar Buku’);

gotoxy(2,11);writeln(‘————————————————-’);

gotoxy(2,12);writeln(‘Judul’);

gotoxy(20,12);writeln(‘Jenis’);

gotoxy(35,12);writeln(‘Penulis’);

while (bantu <> nil) do

begin

gotoxy(2,x);writeln(bantu^.judulbuku);

gotoxy(20,x);writeln(bantu^.jenisbuku);

gotoxy(35,x);writeln(bantu^.penulisbuku);

bantu := bantu^.next;

x := x+1;

end;

end;

{procedure cari data}

procedure cari_data(var awal:perpus_pointer);

var

bantu : perpus_pointer;

datacari : string;

x : integer;

ketemu : boolean;

begin

gotoxy(1,10);write(‘Masukan Data yang Dicari ; ‘);readln(datacari);

bantu := awal;

ketemu := false;

while (not ketemu)and(bantu <> nil)do

begin

if (bantu^.judulbuku = datacari)

then

ketemu := true

else

bantu := bantu^.next;

end;

x := 13;

gotoxy(2,11);writeln(‘————————————————-’);

gotoxy(2,12);writeln(‘Judul’);

gotoxy(20,12);writeln(‘Jenis’);

gotoxy(35,12);writeln(‘Penulis’);

if(ketemu)

then

begin

gotoxy(2,x);writeln(bantu^.judulbuku);

gotoxy(20,x);writeln(bantu^.jenisbuku);

gotoxy(35,x);writeln(bantu^.penulisbuku);

end

else

write(‘Data yang Anda cari Tidak Ditemukan’);

writeln;

writeln(‘Tekan Apa Saja Untuk Kembali ke Menu Utama’);

readkey;

clrscr;

end;

procedure penghancuran(var awal : perpus_pointer);

var

phapus : perpus_pointer;

begin

phapus := awal;

while (awal <> nil)do

begin

awal := awal^.next;

dispose(phapus);

phapus := awal;

end;

writeln(‘-Semua Data Dalam Daftar Buku Telah Dihapus-’);

writeln(‘Tekan Apa Saja Untuk ke Menu Utama’);

readkey;

clrscr;

end;

procedure urut_data(var awal: perpus_pointer);

var

min,p1,p2 : perpus_pointer;

temp : string;

begin

p1 := awal;

while(p1 <> akhir)do

begin

p2 := p1^.next;

min := p1;

while(p2 <> nil)do

begin

if(p2^.judulbuku < min^.judulbuku)

then

min := p2;

p2 := p2^.next;

end;

temp := min^.judulbuku;

min^.judulbuku := p1^.judulbuku;

p1^.judulbuku := temp;

temp := min^.jenisbuku;

min^.jenisbuku := p1^.jenisbuku;

p1^.jenisbuku := temp;

temp := min^.penulisbuku;

min^.penulisbuku := p1^.penulisbuku;

p1^.penulisbuku := temp;

p1 := p1^.next;

end;

end;

procedure program_perpustakaan();

begin

repeat

menuutama(menu);

case menu of

1 : begin

clrscr;

menupenyisipan(menusisip);

writeln;

if(menusisip=1)

then

begin

inputdata(judul,jenis,penulis);

sisipdepandouble(judul,jenis,penulis,awal,akhir);

clrscr;

end

else

begin

if(menusisip=2)

then

begin

inputdata(judul,jenis,penulis);

sisiptengahdouble(judul,jenis,penulis,awal,akhir);

clrscr;

end

else

begin

if(menusisip=3)

then

begin

inputdata(judul,jenis,penulis);

sisipbelakangdouble(judul,jenis,penulis,awal,akhir);

clrscr;

end

else

begin

clrscr;

write(‘Menu Yang Anda Masukan Salah’);

end;

end;

end;

end;

2 : begin

clrscr;

menupenghapusan(menuhapus);

if(menuhapus=1)

then

begin

hapusdepandouble(judul,jenis,penulis,awal,akhir);

clrscr;

end

else

begin

if(menuhapus=2)

then

begin

hapustengahdouble(judul,jenis,penulis,awal,akhir);

clrscr;

end

else

begin

if(menuhapus=3)

then

begin

hapusbelakangdouble(judul,jenis,penulis,awal,akhir);

clrscr;

end

else

write(‘Menu Yang Anda Masukan Salah’);

end;

end;

end;

3 : begin

clrscr;

cari_data(awal);

end;

4 : begin

clrscr;

urut_data(awal);

Tampildata(awal);

end;

0 : begin

clrscr;

penghancuran(awal);

end;

end;

until menu > 4;

end;

begin

awal := nil;

akhir := nil;

program_perpustakaan();

readkey;

end.

program linked_list;
uses crt;

type
perpus_pointer = ^simpul;
simpul = record
nama_buku : string;
next : perpus_pointer;
end;
var
menu,sisip: integer;
i : string;
awal,akhir : perpus_pointer;

procedure menu_pilihan(var menu:integer);
begin
write(‘Masukan Menu Pilihan : ‘);readln(menu);
end;
procedure input(var i:string);
begin
write(‘Masukan Data : ‘);readln(i);
end;

procedure penyisipan_depan(i : string; var awal,akhir:perpus_pointer);
var
baru : perpus_pointer;
begin
new(baru);
baru^.nama_buku := i;
if (awal=nil)
then
begin
baru^.next := nil;
akhir := baru;
end
else
baru^.next := awal;
awal := baru;

end;

procedure penyisipan_belakang(i : string; var awal,akhir:perpus_pointer);
var
baru : perpus_pointer;
begin
new(baru);
baru^.nama_buku := i;
baru^.next := nil;
if (awal=nil)
then
awal := baru
else
akhir^.next := baru;
akhir := baru;
end;

procedure penyisipan_tengah(i : string; var awal,akhir:perpus_pointer);
var
baru,bantu : perpus_pointer;
datasisip : string;
ketemu : boolean;
begin
new(baru);
baru^.nama_buku := i;
if (awal = nil)
then
begin
baru^.next := nil;
awal := baru;
akhir := baru;
end
else
begin
write(‘Data Dimasukan Setelah : ‘);readln(datasisip);
bantu := awal;
ketemu := false;
while (not ketemu) and (bantu <> nil) do
begin
if(bantu^.nama_buku = datasisip)
then
ketemu := true
else
bantu := bantu^.next;

end;
if(bantu=akhir)
then
begin
new(baru);
baru^.nama_buku := i;
baru^.next := nil;
if (awal=nil)
then
awal := baru
else
akhir^.next := baru;
akhir := baru;
end;
end;
end;

procedure tampil_data(awal:perpus_pointer);
var
bantu : perpus_pointer;
begin
bantu := awal;
while (bantu <> nil) do
begin
writeln(bantu^.nama_buku);
bantu := bantu^.next;
end;
end;

begin

repeat
menu_pilihan(menu);
case menu of
1 : begin
clrscr;
writeln(’1. Penyisipan Depan’);
writeln(’2. Penyisipan Tengah’);
writeln(’3. Penyisipan Belakang’);
write(‘Masukan Menu Sisip : ‘);readln(sisip);
if sisip = 1
then
begin
input(i);
penyisipan_depan(i,awal,akhir);
end
else
begin
if sisip = 2
then
begin
input(i);
penyisipan_tengah(i,awal,akhir);
end
else
begin
if sisip = 3
then
begin
input(i);
penyisipan_belakang(i,awal,akhir);
end
end;
end;
end;
2 : begin
clrscr;
tampil_data(awal);
end;

end;
until (menu > 2);
readkey;
end.

procedure InputData(var d: Array100; var c: Integer);
var
Code, k,n: Integer;
i: String;
begin
k := 1;
readln(n);
Writeln(‘Quick Sort’);
Writeln(‘———–’);
Writeln;

repeat
Write(‘Masukkan angka ke-’,k,’ : ‘);readln(i);
if(i <> ”) then
begin
Val(i,d[k],Code);
if(Code <> 0) then
d[k] := 0;
end;
Inc(k);
until (k > n) or (i = ”);
c := k – 2;
end;

procedure Swap(var a,b: Integer);
var
t: Integer;
begin
t := a;
a := b;
b := t;
end;

procedure Tampil(d: Array100; c: Integer);
var
i: Integer;
begin
for i:=1 to c do
Write(d[i]:5);
Writeln;
end;

procedure Sorting(var d: Array100; a,b: Integer);
var
a1, b1, pivot: Integer;
begin
a1:=a;
b1:=b;
pivot:= d[(a+b) div 2];

repeat
while(d[a1] < pivot) do
Inc(a1);
while(d[b1] > pivot) do
Dec(b1);
if (a1<=b1) then
begin
Swap(d[a1], d[b1]); Inc(a1); Dec(b1);
end;
until (a1 > b1);

Tampil(d,b);

if (a < b1) then
Sorting(d,a,b1);
if (a1 < b) then
Sorting(d,a1,b);
end;

begin
InputData(Data, DataCount);
Writeln;
Writeln(‘Sebelum diurutkan’);
Tampil(Data,DataCount);
Sorting(Data,1,DataCount);
{data, index terkecil, index terbesar/banyak data}
Writeln;
Writeln(‘Sesudah diurutkan’);
Tampil(Data,DataCount);
readkey;
end.