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

Maher Zain - The Chosen One

In the time of darkness and greedIt is your light that we needYou came to teach us how to liveMuhammad Ya Rasool Allah
You were so caring and kindYour soul was full of lightYou are the best of mankindMuhammad Khairu KhalqillahSallu 'ala Rasulillah, Habibil MustafaPeace be upon The MessengerThe Chosen One
From luxury you turned awayAnd all night you would prayTruthful in every word you sayMuhammad Ya Rasul Allah
Your face was brighter than the sunYour beauty equalled by noneYou are Allah's Chosen OneMuhammad Khairu KhalqillahSallu 'ala Rasulillah, Habibil MustafaPeace be upon The MessengerThe Chosen One
I will try to follow your wayAnd do my best to live my lifeAs you taught meI pray to be close to you
On that day and see you smileWhen you see meSallu 'ala Rasulillah, Habibil MustafaPeace be upon The MessengerThe Chosen OneSallu 'ala Rasulillah, Habibil MustafaPeace be upon The MessengerThe chosen one

Maher Zain - Awaken

We were given so many prizesWe changed the desert into oasisWe built buildings of different lengths and sizesAnd we felt so very satisfiedWe bought and boughtWe couldn't stop buyingWe gave charity to the poor 'causeWe couldn't stand their cryingWe thought we paid our duesBut in factTo ourselves we're just lying
Chorus :OhI'm walking with my head lowered in shame from my placeI'm walking with my head lowered from my raceYes it's easy to blame everything on the westWhen in fact all focus should be on ourselves
We were told what to buy and we'd boughtWe went to London, Paris andWe made show we were seen in the most exlcusive shopsYes we felt so very satisfied
We felt our money gave us infinite power
We forgot to teach our children about history and honorWe didn't have any time to loseWhen we were.. (were)So busy feeling so satisfied
Chorus :I'm walking with my head lowered in shame from my placeI'm walking with my head lowered from my raceYes it's easy to blame everything on the westWhen in fact all focus should be on ourselves
We became the visuals without a souldespite the heatOur homes felt so empty and coldTo fill the emptinessWe bought and boughtMaybe all the fancy carsAnd bling will make us feel satisfiedMy dear brother and sisterIt's time to change insideOpen your eyesDon't throw away what's right asideBefore the day comesWhen there's nowhere to run and hideNow ask yourself 'cause Allah's watching you
Is He satisfied?Is Allah satisfied?Is Allah satisfied?Is Allah satisfied?
Chorus :OhI'm walking with my head lowered in shame from my placeI'm walking with my head lowered from my raceYes it's easy to blame everything on the westWhen in fact all focus should be on ourselves