Minggu, 08 Januari 2012

Program Procedure + Function

Posted by Alodia Pratama at 22.43 0 comments
-speechless- (‾~‾“)
Kyk judulnya, ini progragram pake Procedure, dan juga function. Apa perbedaan antara Procedure dan Function??

Klo Procedure, dy perlu variabel local didalamnya, sedangkan function gk perlu, karena function menyimpan dalam dirinya sendiri. well, kayanya makin ruwet ╥﹏╥
Cek this out aja deh..




uses wincrt;


var
nilai,i:integer;
ulang: char;
{procedur mulai}
procedure input;
var
nama,nim: array [1..3] of string;


begin
for i:=1 to 1 do begin

write('Nama : ');readln(nama[i]);
write('Nim : ');readln(nim[i]);
write('Nilai : ');readln(nilai);

end;
end;
{procedure end}
procedure output;
var
nama,nim : array [1..3] of string;


begin
for i:=1 to 1 do begin
writeln;
writeln('Nama : ',nama[i]);
writeln('Nim : ',nim[i]);
end;
end;
{end of procedure output}

function grade(nilai: integer): string;

begin

if nilai>=90 then grade:='A'
else
if nilai>=80 then grade:='B+'
else
if nilai>=70 then grade:='B'
else
if nilai>=60 then grade:='C'
else
grade:='D';

end;
begin

ulang:='y';
while ulang = 'y' do begin
input;
clrscr;

output;
writeln('Grade : ',grade(nilai));

writeln;
write('Input Lagi ? [y/t] ');readln(ulang);
clrscr;
end;
end.

Come Home - One Republic

Posted by Alodia Pratama at 22.30 0 comments
Lagu yang super duper daleeeeeeeem bangett.. (╥﹏╥)
berapa kalipun didenger gak bakal bosen-bosen. Hiiiiks... syaaaaang, come home quickly...

Hello world
Hope you're listenin'
Forgive me if I'm young
For speaking out of turn
There's someone I've been missing
And I think that they could be
The better half of me
They're in their wrong place trying to make it right
But I'm tired of justifying
So I say to you

Come home
Come home
Cause I've been waiting for you
For so long
For so long
And right now there's a war between the vanities
But all I see is you and me
The fight for you is all I've ever known
So come home
Oooh


I get lost in the beauty
Of everything I see
The world ain't half as bad
As they paint it to be
If all the sons
All the daughters
Stopped to take it in
Well hopefully the hate subsides and the love can begin
It might start now... Yeahh
Well maybe I'm just dreaming out loud
Until then


Come home
Come home
Cause I've been waiting for you
For so long
For so long
And right now there's a war between the vanities
But all I see is you and me
The fight for you is all I've ever known
Ever known
So come home
Oooh


Everything I can't be
Is everything you should be
And that's why I need you here
Everything I can't be
Is everything you should be
And that's why I need you here
So hear this now

Come home
Come home
Cause I've been waiting for you
For so long
For so long
And right now there's a war between the vanities
But all I see is you and me
The fight for you is all I've ever known
Ever known
So come home
Come home

Senin, 02 Januari 2012

inikah rasanya ??

Posted by Alodia Pratama at 05.34 0 comments
Gini kali yaq rasanya pengen bunuh orang. Otak nyut-nyut-an, tangan gatel pengen nampar.

cih.
kesel banget hari ini. kenapa? yg jelas kesel, kesel se kesel keselnya!
Klo sampe aku ketemu sama orang itu, bakal aku gampar ! serius !
klo bisa gk cuma gampar, tendang organ pentingnya mungkin bakal buat aku puas.

haaaa~
it's not enough ! i want more !
pengen banget teriak tepat didepan telinganya, klo perlu pake speaker biar sekalian tuli. bobrok bobrok tuh telinga !
apa lagi? rasanya belum puas. yaelah, jelas lah belum puas, wong ngelakuin aja belum !

Ya Rabb, kenapa coba mesti kenal orang macam gitu. baru bisa ngedit2 udah sok belagu, ngaku-ngaku punya dia, kyk orang pinter aja !
ah! go to hell ! hayakuuuu !!! You FUCKING BASTARD !
If someday i don't slap you, i'll haunt you till your grave ! (wiidiiiih)
haaa~
-pegang kepala, mijit-mijit pelipis-

awal tahun yang buruk, nyesel kenal tu *etan.
haaaa....
 

..in Fairy Tale world.. Template by Ipietoon Blogger Template | Gadget Review