Raef - You are the one

I thought of this before over a million times
Who would’ve ever thought that it would be our time?
I just know it, ’cause you’re the one

It ain’t a selfish love, when I’m with you
You remind me of Allah, and so I know it’s true
I’ll just say it: you are the one

Reff :
Won’t you be my BFF (best friend forever) and ever?
Won’t you be my partner after this world?
We’ll see it, when we believe it together
Dreams are meant to be, ’cause you’re the one for me

I never thought that I would ever feel this way
I ask Allah to bless you every single day

I’ll just say it, ’cause you’re the one
And when times are tough, and we’ve got the world to see
Standing right beside you is where I want to be
I just know it: you are the one

Reff :
Won’t you be my BFF (best friend forever) and ever?
Won’t you be my partner after this world?
We’ll see it, when we believe it together
Dreams are meant to be, ’cause you’re the one for me

I prayed about this just over a million times
Who would ever thought that I could call you mine?
I just know it, ’cause you’re the one

And when there’s gray in our hair and we’ve not much to do
I want to spend the rest of my days with you…
Oh don’t you know it?
You are the one, you are the one

Oh won’t you be the one?

"You're My Only Exception" >,<

Celine Dion ft. Clive Griffon - When I Fall In Love

When I fall in love
It will be forever
Or I'll never fall in love

In a restless world
Like this is
Love is ended before it's begun
And too many
Moonlight kisses
Seem to cool in the warmth of the sun

When I give my heart
It will be completely
Or I'll never give my heart

And the moment I can feel that you feel that way too
Is when I fall in love with you

Untold Story

Dari judulnya aja udah untold.  Berarti, ini cerita yang udah kelewat gitu, mungkin sekian tahun lamanya.

haha *lebai -.-

Pertama masuk kuliah dulu, gue kan masih polos-polosnya gitu. Ya semacam anak SMA yang masih unyu dan yang cuma tau kalau kuliah itu lebih indah dibandingkan SMA. *Dasar korban FTV*

Terus biasalah namanya anak baru pasti ada ospek-ospekan. Nah, pas di akhir acara ospek itu kejadiannya. Malamnya gue lagi online fb, terus ada lah beberapa yang nge-add tapi yang gue accept  cuma yang tempat kuliahnya sama aja kayak gue.

Iseng-iseng, gue buka satu-satu yang ngeadd gue. Dari semua yang gue buka, ada satu yang buat penasaran karena foto fbnya gak pasang wajahnya dan dari hasil kepo, sepertinya orang ini suka banget sama bola. udah itu doang yang gue dapat karena dia gak ada update apa-apa di fbnya. jadi gue gak banyak tau lebih lanjut. Haha emang dasarnya aja sih gue kepoan -__-

kepo punya kepo ternyata orang tersebut sedang ON juga, yasudah gue chat dia cuma buat bilang makasih. Haha -_-

And then…gue kira kan yaudahlah cuma segitu aja, ternyata gak cuma sampai disitu aja. Ini masih berlanjut. Ya lumayan banyak juga sih yang kita sharing kan. Dari jaman SMA, masa-masa keterpurukkan gue, agama, apalagi ya. Pokoknya banyaklah maklum udah cukup lama juga. 
Ternyata beberapa kali juga sempat ikut kegiatan yang sama, tapi ya emang gak pernah tau juga sih orangya yang mana. ._.

Ngobrol sama dia emang nyambung sih, tapi ini orang entah kenapa kadang suka nyebelin gitu*ups :p 

Kenapa nyebelin?

Emang sih gue paling suka ngeledek temen-temen gue DULU, tapi guenya sendiri malah gak suka diledek.. 

and he did it. Tiada hari tanpa ngeledek~ kadang bete juga tapi berusah selowselow sok cool gitu haha

untung gue orangnya masi sabar dan selalu rendah hati >o<

yoweslah biarkan dia alami dengan sifatnya.wk Mungkin itu yang ngebedain dia dari orang lain kali ya.:3

Sebut saja dia anonim, karena gue gak cukup berani frontal untuk nyebut namanya disini. Haha dan sampai sekarang pun kita masih tetap sama.

Sebenarnya banyak sih yang mau gue tulis disini. Tapi gue tau, gak semua yang mau gue ceritain, orang lain juga mau tau. #keepblogging >,<

And he was the one of my reason why I have to feel comfort in this place ^^

Allah Placed Me Here

Duluuu pertama-pertama masuk kuliah, betapa inginnya gue pindah dari sini.

Gak tau kenapa,gue belum ‘srek’ aja sama jurusan yang gue ambil. Mungkin karena belum ada dasar ngoding atau karena pikiran gue aja yang ngehasut biar gue gak betah disini. haha

Yap, Informatika. Tiada hari tanpa mengoding bro. gue serasa lari-larian ngejar materi.. suram banget. :( 
Ngeluh sana-sini juga gak pernah ketemu jawaban. Bokap said “uni harus banyak nyoba, belajar sendiri buat program-program yang gampang dulu,  sering-sering searching di google gimana caranya”. I tried dad, but.…

 yaaa ini jurusan yang gue pilih  sendiri dan pastinya gue harus tanggung jawab sama pilihan gue. 
Agak nyesel juga sih, kenapa gue dulu gak ambil SMK aja. seenggaknya gue punya dasar. jadi, gak bengong-bengong amat pas disuruh ngoding. hehe

Ckck.. kalau dilihat sisi negatifnya terus pasti banyak banget yang mau gue tulis. Tapi tenang aja di tulisan kali ini, gue gak mau buat curhatan keluhan gue  yang bisa buat orang yang bacanya ikutan ngerasain kegalauan gue *eeaa.haha :p

Setelah 2 semester dilewati, masih belum juga gue nemuin apa yang bisa buat gue betah di jurusan ini. Di JURUSAN ini loh bukan di kampus ini..haha

And now di semester 3 ini, ada matkul ngoding yang bahasanya udah mulai mudah dimengerti. 
You know what? yap Basis data. Basis Data ini, ngodingnya pakai bahasa yang hampir mirip sama bahasa manusia. Logikanya juga gak seribet di c++ atau pascal. Yah, gue sedikit-dikit bisa lah. And I’m starting to love it.

Emang sih, gak selamanya gue bakal ngoding pakai bahasa yang mudah dipahami kayak begini. Tapi kenapa gue gak mulai mencintai ngoding dari sekarang, toh kita harus nyari zona nyaman dulu, baru deh mendaki yang lebih sulit. #apasih -_-

Sejak ketemu matkul ini,entah kenapa gue mulai merasa betah aja di jurusan ini. 
Ya bukan memaksa buat betah juga sih, tapi perlahan berusaha ikhlas sama pilihan yang udah diambil. Semester semakin tinggi, Matkul juga udah semakin berat, semakin fokus ke informatikanya itu sendiri.

Tenaang.. Pasti selalu ada alasan kenapa Allah menempatkan kita di suatu tempat. Kenapa Allah menempatkan gue di teknik informatika dan bukan lingkungan, kenapa kuliah di jawa dan bukan sumatera, tinggal kita nya aja yang lihat ini dari sisi positif atau negatifnya.

Dan pastinya ada satu alasan yang buat gue akan selalu betah disini . >.< ♡

Because I know that Allah is the best plan maker. #keepHAMASAH^^

The New Me

I'm back! Kali ini, gue mau nulis tentang gue yang baru *halaah

haha serius ini. -__-"

Dulu waktu gue masih SMA, liqo yang ngejar-ngejar gue. Tapi sekarang, gue loh yang ngejar-ngejar liqo..

hha ngerti kan maksudnya?

Dulu di SMA gue, liqo itu di wajibin, kalau gak ikut ya ngaruh ke nilai qur'an (kalau gak salah) tapi faktanya gue kadang tetep aja males liqo, sekalinya liqo maunya cepet selesai dan kadang yang dikejar cuma jajannya.. astaghfirullah cid -_-

but now, everything has changed. Gue yang dulu kaya gitu, sekarang malah semangat banget liqo.

You know why?

oh iya sebelum gue jawab, gue mau kasi tau dulu buat yang belum tau apa itu liqo.

Liqo itu semacam lingkaran kecil yang beranggotakan 3 sampai 15 orang yang dipimpin seorang pembina(murabbi) membahas tentang ilmu agama islam sama permasalahan yang lagi up-to-date juga.

kalau bagi gue, liqo itu tempat nambah temen, nambah ilmu, tapi gak cuma ilmu agama loh, liqo itu juga tempat curhat, dan pastinya liqo itu seru. Udah tau kan sekarang apa itu liqo ^^

ok lanjut lagi ke pertanyaan gue yang tadi.

You know why?

ya itu sebagian udah gue jawab di atas.. haha :p

Di kampus gue ini, juga ada liqoan. Gue tinggal bawa surat pindah liqo gue dari SMA, trus nanti di cariin deh murabbi baru buat gue.

Dan akhirnya gue dapet murabbi baru, udah beberapa bulan ini gue rutin liqo.. Gak cuma ilmu agama yang gue dapet dari liqo, tapi gue juga dapet ilmu dari orang-orang hebat di kelompok liqo gue. super sekaliii.

kalau liat perubahan gue ini, kadang terharu senang juga. Dari SMA, yang kadang semangat kadang engga buat liqo, dan liqonya dibuat wajib biar semua dateng.

Dan sekarang gue yang malah ngerasa butuh banget liqo, kayanya harus berterimakasih banget sama SMA gue yang udah ngenalin ke gue apa itu liqo, secara SMP gue gak pernah ikut kaya gini apalagi tau liqo itu apaan.

That's a new me. ya kasarnya bisa dibilang dari zaman jahil ke zaman terang-benderang lah.. hha lebai dikit :p

And I'm very glad with the new I am ^o^

Belajar contoh program pascal counting sort, selection sort, insertion sort, dan bubble sort.

Hari ini saya akan memberikan beberapa contoh source code sorting pada program pascal. Untuk keterangan dan teorinya tidak saya berikan karena sudah banyak di Google search. Bisa anda cari sendiri.  lihat tutorial dibawah ini.

1. Counting Sort

program counting_sort;
uses wincrt;
type
nilai = array[1..50] of integer;
var
nl : nilai;
mindata,maxdata: integer;
jumlah ,i:integer;
procedure isinilai(var nl:nilai; var n:integer);
var
j:integer;
begin
write('banyak data : ');
readln(n);
for j:=1 to n do
begin
write('data ke ',j,' : ');
readln(nl[j]);
end;
end;

procedure minmax(nl:nilai;n:integer;var mindata:integer;var maxdata:integer);
begin
mindata :=nl[1];
maxdata :=nl[1];
for i:=2 to n do
begin
if nl[i] < mindata then mindata :=nl[i];
if nl[i] > maxdata then maxdata :=nl[i];
end;
end;

procedure countsort(var tabint:nilai;n:integer;mindata:integer;maxdata:integer);
const min=1;max=100;
var
i,j,k:integer;
tabcount:array [min..max] of integer;
begin
for i:=mindata to maxdata do
tabcount[i]:=0;

for i:=1 to n do
tabcount[tabint[i]]:=tabcount[tabint[i]]+1;
k:=0;
for i :=mindata to maxdata do
if tabcount[i]<>0 then
for j:=1 to tabcount[i] do
begin
k:=k+1;
tabint[k]:=i;
end;
end;

procedure cetak(nl:nilai;n:integer);
begin
for i:=1 to n do
write(nl[i],' ');
writeln;
end;

begin
isinilai(nl,jumlah);
minmax(nl,jumlah,mindata,maxdata);
writeln('ini data sebelum diurutkan: ');
cetak(nl,jumlah);
countsort(nl,jumlah,mindata,maxdata);
writeln('ini data setelah diurutkan: ');
cetak(nl,jumlah);
readln;
end.

2. Insertion Sort

program insertion(input,output);

const

MAX = 100;

var

a : array[1..MAX] of integer;

i, n : integer;

procedure insertion_sort;

var

i, pos : integer;

nilai : integer;

tanda : boolean;

begin

for i := 2 to n do

begin

nilai := a[i];

pos := i;

tanda := false;

while not tanda do

begin

if pos <= 1 then

tanda := true

else if nilai >= a[pos-1] then

tanda := true

else

begin

a[pos] := a[pos-1];

pos := pos-1

end

end; {while}

a[pos] := nilai;

end {for}

end;

begin { main }

write('Masukkan banyak data (max=',MAX:2,') : ');

readln(n);

writeln('Masukkan Angka sebanyak ',n:1,' : ');

for i := 1 to n do

read(a[i]);

insertion_sort;

for i := 1 to n do

write(a[i]:1,' ');

readln;

writeln;

readln;

end.

3. Selection Sort

program selectionsort;

uses crt;

var

angka: array[1..5] of integer;

i,a,n,temp: integer;

begin

clrscr;

write('masukkan banyak data: ');

readln(n);

for i:=1 to n do

begin

write('masukkan angka ke',i,' = ');

readln(angka[i]);

end;

writeln;

{Tampilkan data sebelum diurutkan}

writeln('Sebelum diurutkan : ');

for i:=1 to n do

begin

writeln('angka ke-', i, ' : ', angka[i]);

end;

{Lakukan pengurutan/sorting}

for i:=1 to n-1 do

begin

for a:=i+1 to n do

begin

if(angka[a] < angka[i]) then

begin

temp := angka[a];

angka[a] := angka[i];

angka[i] := temp;

end;

end;

end;

{Tampilkan data setelah diurutkan}

writeln('Setelah diurutkan : ');

for i:=1 to n do

begin

writeln('angka ke-', i, ' : ', angka[i]);

readln;

end;

readln;

end.

4. Bubble Sort

Program Bubble_Sort;

Uses Crt;

const

max = 100;

type

Larik = array [1..max] of integer;

var

A: Larik;

I: integer;

N: integer;

pil:byte;

procedure Jumlah_Data;

begin

write('Masukkan banyaknya data = '); readln(N);

writeln;

end;

procedure Input;

var

I: integer;

begin

for I:=1 to N do

begin

write('Masukkan data ke- ', I, ' = '); readln(A[I]);

end;

end;

procedure Change(var A, B: integer);

var

T: integer;

begin

T:=A;

A:=B;

B:=T;

end;

procedure asc_buble;

var

p,q :INTEGER;

flag:boolean;

begin

flag:=false;

p:=2;

while (p

begin

flag:=true;

for q:=N downto p do

if A[q]

begin

change(A[q],A[q-1]);

flag:=false;

end;

inc(i);

end;

writeln;

write('Data Diurutkan Secara Ascending: ');

end;

procedure desc_buble;

var

p,q :byte;

flag:boolean;

begin

flag:=false;

p:=2;

while (p

begin

flag:=true;

for q:=max downto p do

if A[q]>A[q-1] then

begin

change(A[q],A[q-1]);

flag:=false;

end;

inc(i);

end;

writeln;

write('Data Diurutkan Secara Descending: ');

end;

procedure Output;

var

i: integer;

begin

for i:=1 to N do

write(A[i], '  ');

writeln;

end;

begin

Jumlah_Data;

input;

clrscr;

writeln('[1].pengurutan secara Ascending');

writeln('[2].pengurutan secara Descending');

write('Silahkan Masukkan Pilihan Anda = ');readln(pil);

case pil of

1:asc_buble;

2:desc_buble;

end;

output;

readln;

end.

Input

Output

Program Statistik dalam Pascal

1

2

3

4

5

Run Program