-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.
hey, it's me !
- Alodia Pratama
- I'm Just an ordinary girl, born 17 June. ^^ Like anime, manga and I'm egoist,childish, nijikon and.....(silence-deep breath).. wanna be a good mother and wife someday. :D
Labels
#FatwaRindu
(3)
Coding-Pascal
(5)
Curhat
(6)
dheiiapratama..^^
(4)
Fairy Tail
(2)
Lirik Lagu
(7)
mindless
(3)
MySQL
(2)
nijikon
(2)
sad story
(3)
Minggu, 08 Januari 2012
Come Home - One Republic
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
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
Categories
Lirik Lagu
Senin, 02 Januari 2012
inikah rasanya ??
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....
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....
Categories
Curhat
Langganan:
Komentar (Atom)