aahh!! finally!! i can write on my journal!
many times i tried but i just couldn't write in the box-thingy where you suppose to write..
i guess the lame internet has something to do with it =  =

so anyway, i know i said that i'm gonna write here more often..
and, as you can see, that's not happening hahaa..
blame the playfish for making such addictive games on facebook!!

well, nothing much really happened to my life..
interesting thing that is..
mid-term was hard -for me-, especially calculus
i can't afford to have another C on my report card this semester!
especially a 4 credits course! ( > ω <)
my parents gonna be sooo disappointed if that to be happen..
i don't want to let them down again!
I WON'T! that's a promise i made to myself!!
just hope i can keep that promise..

getting tired..

( ... )

 IS BACK BABY!!!

ahahhaa..
I'll try to post more often now..

gonna leave it likes this now,
gonna sleep
haa..


baibai~

program tugas;
uses crt;
type
    mhs=record
    nim: longint;
    nama, alamat: string;
    ipk: real;
    end;

    tab=array [1..99] of mhs;

var
   t: tab;
   i, j, p, n: integer;

procedure input (var a: tab; n: integer);
          var
             i: integer;
          begin
               for i:=1 to n do
               begin
                    write('NIM      : ');
                    readln(a[i].nim);

                    write('Nama     : ');
                    readln(a[i].nama);

                    write('Alamat   : ');
                    readln(a[i].alamat);

                    write('IPK      : ');
                    readln(a[i].ipk);
                    writeln;

               end;
          end;

procedure bubble_sort (var a: tab; n: integer);
          var
             i, j: integer;
             tmp: longint;
          begin
               for i:=n downto 2 do
                   for j:=2 to i do
                       if (a[j-1].nim > a[j].nim) then
                       begin
                            tmp:= a[j-1].nim;
                            a[j-1].nim:= a[j].nim;
                            a[j].nim:= tmp;
                       end;
          end;

procedure insertion_sort (var a: tab; n: integer);
          var
             i, j: integer;
             tmp: longint;
          begin
               for i:=2 to n do
               begin
                    tmp:= a[i].nim;
                    j:= i;
                    while (j > 1) and (tmp < a[j-1].nim) do
                    begin
                         a[j].nim:= a[j-1].nim;
                         j:= j-1;
                    end;
                    a[j].nim:= tmp;
               end;
          end;

procedure selection_sort (var a: tab; n: integer);
          var
             i, j, max: integer;
             tmp: longint;
          begin
               for i:=n downto 2 do
               begin
                    max:= 1;
                    for j:=2 to i do
                    begin
                        if a[max].nim < a[j].nim then
                           max:= j;
                    end;
                    tmp:= a[max].nim;
                    a[max].nim:= a[i].nim;
                    a[i].nim:= tmp;
               end;
          end;

procedure counting_sort (var a: tab; n: integer);
          var
             i, j, k: integer;
             b: array [1..99] of integer;
          begin
               for i:=1 to n do
                   b[a[i].nim]:=0;

               for i:=1 to n do
                   b[a[i].nim]:= b[a[i].nim]+1;

               k:=0;
               for i:=1 to n do
                   if b[i] <> 0 then
                      for j:=1 to b[i] do
                      begin
                           k:= k+1;
                           a[k].nim:= i;
                      end;
          end;

procedure sekuensial_search (var a: tab);
          var
              idx, i: integer;
          begin
               for idx:=1 to n do
               begin
                    if a[i].ipk > a[i+1].ipk then
                       idx:=i;
               end;
               writeln(a[idx].ipk:0:2);
               readln;
          end;
              { clrscr;
               writeln('Mahasiswa dengan IPK tertinggi adalah: ');
               writeln('NIM       : ',t[idx].nim);
               writeln('Nama      : ',t[idx].nama);
               writeln('Alamat    : ',t[idx].alamat);
               writeln('IPK       : ',t[idx].ipk:0:2);
               readln;
                    i:=1;
               while (i < n) and (a[i] <> x) do
                     i:= i+1;
               if a[i]=x then
                  idx:= i;
               else
                   idx:=-1;
          end;}

{procedure binary_search (a: tab; n, x: integer; var idx:integer);
          var
             k, l, m: integer;
             found: boolean;
          begin
               readln(x);
               k:= a[n];
               l:= a[1];
               m:= n div 2;

               while x <> a[m] do
                     if x > a[m] then
                     begin
                          l:= a[m];
                          m:= (m+n+1) div 2;

          end;}


begin
     clrscr;
     write('Masukkan jumlah data mahasiswa yang akan di input: ');
     readln(n);
     writeln('Masukkan data mahasiswa');
     input(t,n);

     clrscr;
     writeln('Pilih procedure pengurutan');
     writeln('1. Bubble Sort');
     writeln('2. Counting Sort');
     writeln('3. Insertion Sort');
     writeln('4. Selection Sort');
     writeln;
     readln(p);

     case p of
          1: begin
                  bubble_sort(t,n);
                  writeln('Mengurutkan dengan Bubble Sort');
                  readln;
             end;
          2: begin
                  counting_sort(t,n);
                  writeln('Mengurutkan dengan Counting Sort');
                  readln;
             end;
          3: begin
                  insertion_sort(t,n);
                  writeln('Mengurutkan dengan Insertion Sort');
                  readln;
             end;
          4: begin
                  selection_sort(t,n);
                  writeln('Mengurutkan dengan Selection Sort');
                  readln;
             end;
     end;
     {pilih(p);}

     for i:=1 to n do
     begin
         writeln('NIM     : ',t[i].nim);
         writeln('Nama    : ',t[i].nama);
         writeln('Alamat  : ',t[i].alamat);
         writeln('IPK     : ',t[i].ipk:0:2);
         writeln;
     end;
     readln;
     clrscr;
     sekuensial_search(t);

     writeln;
end.

PRINT SCREEN

hmmm... it's been a month since my last post..
that's because when i open the internet, i rarely visit my lj, too addicted with dA and neopets lol.

sooo.. today i'm reaaaaaally happy!! don't know why. seriously.
maybe because i found out that si papan (pandora, not real name), the boy i have crush on, is somehow noticed my existence ROFL. really!!



and since then my heart start beating faster than before and feel super happy!

you guys probably know this anime because it's an old and one of the most awesome anime i ever watch!!

morning everyone! well, it's morning over here.

today, me and my friends are planning to go to a salon. they will come to my house because the salon we are going to is not so far from my house. i want to have a facial and a cream bath (b ingg krimbat apa sih?)
but by taking both is too expensive so i have to choose one. i don't know which one i'm gonna have >_<
ooh, i have to ask their opinion when they arrive!

it's been a long time since the last update.
it's because i'm too lazy to write although i open LJ everyday ^^'

today i don't go to school because i have diarrhea since monday. the last time i had it is when i was a baby.
i didn't go to school on monday, but because i was feeling better i went to scool yesterday.
at school i drank fanta which has soda, and then at  noon the diarrhea came back.

and today is suppose to be our try out for spmb, but since i'm sick i can't go to school.
oohh, how i wish this disease are gone!

like i post yesterday, my classmates ate lunch at my house.

after school finished, they went straight to my house to eat lunch.

my aunties were the chef. they made nasi goreng spesial (special fried rice)
with ayam gorend tepung (like fried chicken at fast food).

as for the drink, they made es cendol.

i'm so glad that my friends love the food.

while eating, my mom shot us with our camera.

and then my friend, pauline, said to a group of my friends that they're gonna sing a happy birthday song.

she said it while i was in that group. and i said "eh?? what for??"

and her expression were like "she's here??" and then she covered her face.

we all just laugh at her *mean us*. that's so funny *laugh*

and then here's come the cake!

it's so yummy! it's funny because normally i don't like birthday cake, especially the one with icing.

i blew the candle, sliced it, and gave the first bite to my mom.

the second to my friend, novy, and the third for me (you probably know why)

after we all finished eating, mulki, our class chairman (don't know what to called it in english),
gave a short speech. and so did nico, wakil ketua kelas.

and then when everyone was bloated and happy, we went back to our school
because we had like a course (bimbel) there (school i mean)

oh, yeah, rahmi, rujak, rezi and rian, didn't eat because they're fasting
rujak and rian didn't know i'm having a lunch party (if you could call it a party)
so they took the meal home and eat them for buka (don't know the english word for it).

and i also brought one for our teacher, mss. ezi, who teach us the biology course.

hm.. tomorrow i will bring the cake to school *cough..leftover .. cough*
and give it to my friends, especially putri and reyhan, who didn't come to the "party."

so today is my birthday!!! yippiiiee!!! lol

my friends smsed me while i was sleeping. and i read the messages at school
because i always turn off my phone when i sleep.

tomorrow, my classmates will have lunch at my house, my treat lol

even neopets celebrate my birthday with the birthday site theme lol



lol it looks like i said too much lol today lol xDDD

i have received my report card.

and the result was unexpected.

i couldn't believe what was written in there.

i'm very pleased with it.

and i think my dad is pleased with it too.

it makes me motivated to study more.

to make him more proud of me.


p.s. sorry for my lame english.

yesterday i got back from jakarta.
and im soopah happy!!! wanna know why?

im going on vacation ≧(´▽｀)≦

well, at 9am that is lol. me and my dad will go to jakarta to watch my bro's marching band competing at grand prix.
so won't be here till 2 jan.


have a nice weekend everyone o(゜∇゜*o)(o*゜∇゜)o～♪

looks like i'm addicted to neopets, again xD
i ALWAYS thinking about it. every time i plays computer, i couldn't stop myself to not to open neopets (is that the right sentence??) lol
i don't know what's great a about this site, but i just can't get enough of it.
and for those of you who have not join, JOIN NOW

here's a link to it

Copyright 2000-2007 Neopets, Inc. All Rights Reserved. Used With Permission.

today i watch a good bye concert by my school marching band.

and you know what?? THEY'RE AWESOME!!!

they played five songs, all of them by chrisye, a famous legend in indonesia. since the theme is tribute to chrisye xD

ohh.. i hope they win at the grand prix *cross fingers*

earlier i saw a news from australia about some anti-islam people. they're discussing something, i don't care
what i do care is they're ANTI-ISLAM!!! i felt offend!!
wanna know why? because I AM islam!
uuuugggghh.. i don't know what are they thinking =  ='
i mean, all this time what people know about islam is that they're terrorist or they kill people.
well yeah that's true, but not all of muslem people do that man!!!
i never hate any religion and i never will because i think that it's not fair!!
it's like racist!! i don't understand why people hate one religion or one country or or even one race!!! (*￣ー￣*)

aaaaaaaaahhhh... home at last! (o￣▽￣c)ノ


what a fun days we had!! let's do it again guys!

horreeeeeeeeeeeeeeeeeeeee!!!
tes hari ini gagal dengan sukses!!
from 60 questions i only answered around 20-25.. itupun g yakin bener semua.
the announcement about people who pass this round will be post on november 21th

after the test, me and classmate went to kasuarina park. we ate our lunch there.
after that we went to the book and electronic bazaar. bought some books. biology and physic ^ ^'
i loooove my class!! kami begitu kompak!

oia, yang lulus tes, harus traktir smua anak kelas lho xD

EDIT:
after i got home, my dad asked me if i could finish the test.
then i answered not really. and then i saw his disappointed face..
im sooooooooo sorry dad. i didnt mean to disappoint you (_A_)

long time since last update  ^ ^'
this morning, i took a test. a scholarship test.
and you know what?? the test was extremely hard!!!
especially the math one.. uuhhh.. i only know the answers for, around, 6 question (pleeease correct my english)
and there were 25 questions for math t__t

after that we ate the lunch provided by the committee..
well, i didnt eat it. i just ate a pear, and a bite of a cupcake and then prayed.
after the lunch break, there was another test. TOEFL.
Test Of English as a Foreign Language.
and yep you guessed it.. i found it difficult to finish. especially the reading section..
i never thought that we had to read a lot of very-long-but-not-interesting texts!
the model test was waaaaaay easier than the real one. = ='

as for tomorrow, well, there is another test. yipiiieee!!
im suck at physic/chemistry/biology.. *sigh*

huuuhh.. i dont think i will get the scholarship.
im not even sure if i pass to the next round.