Penjumlahan Matrix

Ini dia penjumlahan matrix, walopun belum gnerti bener tetep aja diposting -___- (bener-bener gk bertanggung jawab).
well minna, kali ini saya gk bakal banyak bekoar-koar (tenggorokan lagi sakit + gk enak badan ), so cek it out aja deh.



Program Matrix;
Uses wincrt;
Var
A,B,Hasil :Array [1..5,1..5] of integer;
m,n,i,j,k : integer;

Begin

writeln;
write('Banyak Baris Matrik: ');readln(m);
write('Banyak Kolom Matrik: ');readln(n);
writeln;

{input data nilai A}
writeln('MATRIX A');

for i:=1 to m do
begin
for j:=1 to n do
begin
write('A [ ',i,',',j, ' ] : ');readln (A[i,j]);
end;
end;
writeln;
begin
{input data nilai B}
writeln('MATRIX B');
for i:=1 to m do
begin
for j:=1 to n do
begin
write('B [ ',i,',',j, ' ] : ');readln (B[i,j]);
end;
end;
end;

writeln;
writeln('MATRIX A + B ');
for i:=1 to m do
begin
for j:=1 to n do
begin
Hasil[i,j]:=A[i,j]+B[i,j];

end;
end;
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
begin

write(Hasil[i,j]:2);


end;
end;
end.


maka output yang dihasilkan nanti

silent

Seperti biasa, aku diam tak bicara. Menangis dalam diam tampak lebih baik ketimbang mengeluarkan emosi yang tak seorang pun akan peduli.
Jangan salahkan aku jika aku bersikap kaku, aku hanya mencoba menahan semua emosi yang selama ini aku pendam...

Kau, Aku, dan Jalan Kita

Kita berdua telah beranjak dewasa, tak lagi seperti ketika kita masih SMA. Begitu juga dengan pola fikirmu dan fikirku. Karena perubahan itu, Kau dan aku memilih jalan yang berbeda.walaupun tujuan kita sama, tapi tetap saja jalan yang kita tempuh berbeda.

Jalan yang kau ambil terlalu berat bagiku, membebaniku, bahkan menyiksaku, dan kini menyisakan jarak antara kita. Aku disini dan kau disana, daratan dan lautan memisahkan kita, tepatnya memisahkan aku darimu. Tak pernah sekalipun aku meragukanmu, meragukan jalan yang kau pilih. Aku tak pernah ragu ! Aku hanya takut...aku takut...

Kita tak'kn pernah tau apa yang akan terjadi kedepannya, apa yang akan terjadi padaku, yang akan terjadi padamu, dan apa yang akan terjadi pada 'jalan kita'. Jarak antara dirimu dan diriku terlalu banyak menyimpan misteri, jalan-jalan yang akan kau dan aku lewati terlalu gelap. Siapa yang bisa menebak jika ditengah perjalanan nanti kau menemukan sebuah berlian indah yang akan menggantikan intan yang kau genggam.

unforgetable moment

with Maya, Razak, Fadli @1T waiting for Mr. Raisul

Lesehan @college with ya

bersama Mas Den, and Yaq @college

Rainy Day...ヽ｀、ヽ｀ヽ

too many words that I wanna say to you, but most importantly 'I LOVE YOU SO MUCH' and Thank you for always listening...

Special for Oni Pratama, who always be my side.
Whether someday you'll be mine or not.

Program PDAM

konnichiwa minnaa-saaan \(´▽`)/
genki desuka? ah, hope ya'll okey (‎◦'ںˉ◦)

well..langsung aja minna-san, dibawah ini ↓ adalah kodingan campuran :p
hehehehe...maksudnya kodingan dibawah ini memuat unsur berurutan, kondisi (lebih dari satu) dan perulangan, see ? campuran kn ? :p :p
hehehe..
-take deep breathe- ˘•˘
oke minna-san cekitout langsung !
feel free to ask kalo ada yang gk dimengerti ~(‾▿‾~)~(‾▿‾)~(~‾▿‾)~
jyaa ~ naa...



program PDAM;
uses wincrt;


const
tarif_pakai=100;


var
kelas,ulang:char;
tot_bayar,biaya_beban, biaya_pakai,jumlah_pakai:real;
No_langganan, Nama, Alamat :string;


begin
ulang:='y';
while ulang = 'y' do begin {ini bagian perulangan}

gotoxy(30,1);write('PDAM MENANG MATARAM ');
writeln;
writeln;

write('No. Langganan : ');readln(no_langganan);
write('Nama : ');readln(nama);
write('Alamat : ');readln(alamat);
write('Kelas : ');readln(kelas);
write('Jumlah Pemakaian : ');readln(jumlah_pakai);

{ini bagian kondisi}
if kelas = 'a' then biaya_beban:=100000
else
if kelas = 'b' then biaya_beban:=50000
else
if kelas = 'c' then biaya_beban:=40000
else
biaya_beban:=0;
{end bagian kondisi}


{ini bagian berurutan}
biaya_pakai:=Jumlah_pakai*tarif_pakai;
tot_bayar:=biaya_pakai+biaya_beban;
{end of bagian berurutan}

clrscr;
writeln('No. Langganan : ',no_langganan);
writeln('Nama : ',nama);
writeln('Alamat : ',alamat);
writeln('Kelas : ',kelas);
writeln('Total Pembayaran : ',tot_bayar:0:0);

writeln;
write('Input data Lagi? ');readln(ulang);
clrscr;
end;
end.

waiting...

the hardest thing is, waiting for someone that you don't even know will be yours or not.
it's just like waiting for a boat at an airport.
but i'm still here, waiting for you.
i'm right here, just waiting for you.
can't you feel it?
Maybe, i'm the most stupid freaky girl in the world but It's all because of you, if it's not you, it wouldn't become like this.
I'm right here, waiting for you...

My Only Hope

i just feel like, there's nothing I can do. you're my only hope, when nobody accept me just the way I'm..

Only Hope - Mandy Moore

There's a song that's inside of my soul
It's the one that I've tried to write over and over again
I'm awake in the infinite cold
But you sing to be over and over and over again

So I lay my head back down
And I lift my hands and pray
To be only yours, I pray
To be only yours I know now...
You're my only hope

Sing to me the song of the stars
Of your galaxy dancing and laughing and laughing again
When it feels like my dreams are so far
Sing to me of the plans that you have for me over again

So I lay my head back down
And I lift my hands and pray
To be only yours, I pray
To be only yours I know now...
You're my only hope

I give you my destiny
I'm givin' you all of me
I want your symphony singing in all that I am
At the top of lungs
I'm givin' it back

So I lay my head back down
And I lift my hands and pray
To be only yours, I pray
To be only yours, I pray
To be only yours I know now...
You're my only hope

Little Promise

"Benarkah tak ada yang akan memisahkan kita ? " aku memandangnya dengan tatapan sayu.
"Benar sayang, aku berjanji, aku tak'kan pernah meninggalkanmu..."

Aku terseyum, laki-laki itu memandangku dan menyodorkan jari kelingkingnya. "Janji ? "
aku mengaitkan jari kelingkingku dan mengangguk...
"janji.."

I LOVE YOU in Many Language..

There're so many ways to say I Love You..

Afrikaans - Ek het jou lief

Albanian - Te dua

Arabic - Ana behibak (to male)

Arabic - Ana behibek (to female)

Armenian - Yes kez sirumen

Bambara - M'bi fe

Bangla - Aamee tuma ke bhalo baashi

Belarusian - Ya tabe kahayu

Bisaya - Nahigugma ako kanimo

Bosnian - Volim te

Bulgarian - Obicham te

Cambodian - Bung Srorlagn Oun (to female)

Cambodian - Oun Srorlagn Bung (to male)

Chinese - Ngo oiy ney a

Catalan - T'estimo

Cheyenne - Ne mohotatse

Chichewa - Ndimakukonda

Corsican - Ti tengu caru (to male)

Creol - Mi aime jou

Croatian - Volim te

Czech - Miluji te

Danish - Jeg Elsker Dig

Dutch - Ik hou van jou

Elmer Fudd - I wove you

English - I love you

Esperanto - Mi amas vin

Estonian - Ma armastan sind

Ethiopian - Ewedishalehu (male/female to female )

Ethiopian - Ewedihalehu (male/female to male)

Faroese - Eg elski teg

Farsi - Doset daram

Filipino - Mahal kita

Finnish - Mina rakastan sinua

French - Je t'aime, Je t'adore

Gaelic - Ta gra agam ort

Georgian - Mikvarhar

German - Ich liebe dich

Greek - S'agapo

Gujarati - Hu tumney prem karu chu

Hiligaynon - Palangga ko ikaw

Hawaiian - Aloha wau ia oi

Hebrew - Ani ohev otah (to female)

Hebrew - Ani ohev et otha (to male)

Hiligaynon - Guina higugma ko ikaw

Hindi - Hum Tumhe Pyar Karte hai

Hmong - Kuv hlub koj

Hopi - Nu' umi unangwa'ta

Hungarian - Szeretlek

Icelandic - Ég elska þig

Ilonggo - Palangga ko ikaw

Indonesian - Saya cinta padamu

Inuit - Negligevapse

Irish - Taim i' ngra leat

Italian - Ti amo

Japanese - Aishiteru

Kannada - Naa ninna preetisuve

Kapampangan - Kaluguran daka

Kikongo - Muke zolaka nge

Kiswahili - Nakupenda

Konkani - Tu magel moga cho

Korean - Sarang Heyo

Latin - Te amo

Latvian - Es tevi miilu

Lebanese - Bahibak

Lingala - Nalingi yo

Lithuanian - Tave myliu

Malay - Saya cinta mu

Malayalam - Njan Ninne Premikunnu

Maltese - Inhobbok

Mandarin - Wo ai ni

Marathi - Me tula prem karto

Mohawk - Kanbhik

Moroccan - Ana moajaba bik

Nahuatl - Ni mits neki

Navaho - Ayor anosh'ni

Nepali - Ma Timilai Maya Garchhu

Norwegian - Jeg Elsker Deg

Pandacan - Syota na kita!!

Pangasinan - Inaru Taka

Papiamento - Mi ta stimabo

Persian - Doo-set daaram

Pig Latin - Iay ovlay ouyay

Polish - Kocham Cie

Portuguese - Amo-te

Romanian - TE IUBESC

Russian - Ya tebya liubliu

Rwanda - Ndagukunda

Scot Gaelic - Tha gra\dh agam ort

Serbian - Volim te

Setswana - Ke a go rata

Sindhi - Maa tokhe pyar kendo ahyan

Sioux - Techihhila

Slovak - Lu`bim ta

Slovenian - Ljubim te

Spanish - Te quiero / Te amo

Surinam - Mi lobi joe

Swahili - Ninapenda wewe

Swedish - Jag alskar dig

Swiss - Tajik Man turo Dust Doram

Tagalog - Mahal kita

Taiwanese - Wa ga ei li

Tahitian - Ua Here Vau Ia Oe

Tamil - Naan unnai kathalikiraen

Telugu - Nenu ninnu premistunnanu

Thai - Chan rak khun (to male)

Thai - Phom rak khun (to female)

Turkish - Seni Seviyorum

Ukrainian - Ya tebe kahayu

Urdu - mai aap say pyaar karta hoo

Vietnamese - Anh ye^u em (to female)

Vietnamese - Em ye^u anh (to male)

Welsh - 'Rwy'n dy garu

Yiddish - Ikh hob dikh

Yoruba - Mo ni fe

Zimbabwe - Ndinokuda


aaah~ finally, jya ne minna-san \(^o^)/

Nested IF dalam Pascal

Moshi-moshi Minna-san.

stelah contoh coding Case OF, sekarang contoh coding IF bersarang atau Nested IF.
Nested IF atau biasa dikenal IF bersarang adalah statement IF yang berada di dalam Statement IF lainnya.

contoh:

uses wincrt;
var
merk: string;
berat:integer;

begin
write('Merk Detergent : ');readln(merk);
write('Berat (kg) : ');readln(berat);

if merk='Rinso' then begin
if berat = 5 then harga:=50000
else
if berat = 1 then harga:=15000
end;
if merk='Daia' then begin
if berat = 5 then harga:=30000
else
if berat = 1 then harga:=10000
end;
writeln('Harga : Rp.',harga:0:0);

end.

jya nee minna, hope this will help..

Case of dalam Pascal

minna-san, genki deska?
dibawah ini adalah contoh penggunaan struktur Case Of dalam bahasa pemrograman Pascal, hope this can help you guys.. :* :*

uses wincrt;

var
angka:char;
hari:string;

begin
write('Masukkan Inisialisasi hari : '); readln(angka);

case angka of
'1':hari:='Senin';
'2':hari:='Selasa';
'3':hari:='Rabu';
'4':hari:='Kamis';
'5':hari:='Jumat';
'6':hari:='Sabtu';
'7':hari:='Minggu'

else write('Tadi masukin angka berapa? Pikir dong!! ');
end;
writeln('Hari : ',hari);
end.

jika kita meng-inputkan angka 6 maka outputnya:
Hari : Sabtu

begitulah minna-san. it's easy isn't it?

D.M.Y - ost. Crazy Little Thing Called Love (translation)

Monday, I'm waiting
Tuesday, I'm still waiting to see you
to see, see how you're doing

Wednesday you still don't come
nothing in the late morning
Thursday is empty

whether it's Friday, Saturday or Sunday
there isn't a day i don't think of you
there wont be a day when you'll come back
to revisit our past

the day i met you
the day we became close
the day we held hands

the day i fell in love with you
the day i confessed it
the day that you heard it

will it be much longer? i just don't know
will it be several months or another year?
of the tens of thousands, countless memories we shared
I've never not thought of you

January is endless
February is dull
march is also vague
April I'm restless
May is painful
June is empty

will it be much longer? i just don't know
will it be several months or another year?
of the tens of thousands, countless memories we shared
I've never not thought of you

will it be much longer? i just don't know
of the tens of thousands, countless memories we shared
I've never not thought of you..

Someday I'll be Good enough - ost. Crazy little thing Called Love (traslate)

I don't know how much longer that I have to put up with you
I've been hiding everything in my heart
Everytime we meet each other, Everytime we face each other
Though I am indifferent.. Do you know how much have I have to force myself?

Can't you hear my heart calling for you, loving you
But I can't release my heart out for anyone to know
Can't you hear my heart's waiting there for you
Waiting for you to feel it. I was hoping that you will realize someday

Though I love you, though I feel (your love)
But deep down inside, I can't dare to tell you
Everytime we meet each other, Everytime we face each other
Though I am indifferent. Do you know how much have I have to force myself?

Can't you hear my heart calling for you, loving you
But I can't release my heart out for anyone to know
Can't you hear my heart's waiting there for you
Waiting for you to feel it. I was hoping that you will realize someday

Can't you hear my heart calling for you, loving you
But I can't release my heart out for anyone to know

Can't you hear my heart waiting there for you, waiting for you to feel it
And I was hoping that you will realize that this woman still love you
Any way, some day, you will know..

Because of My Heart - ost. Crazy Little Thing Called Love (translation)

i may not understood it as well...
as to why must i choose you to be in my heart?...
i may have mets a lots of people but in the end it's you..
who's my soul mate

love is not just a coincidence..
love can connect you with me...
only my heart knows who's in my dream...
you are that someone i'm waiting for
its because my heart asked....it’s because my heart cried out
i'm borne to be your always
its because my heart has never waver
whatever it is, i'm certain that it's you
i don’t have that many reasons, just that i love you in my heart

the one who still stands beside me
during the time I’m happy or sad
the one who still understand
is none other than the one i know already

love is not just a coincidence..
love can connect you with me...
only my heart knows who's in my dream...
you are that someone I’m waiting for
its because my heart asked....it’s because my heart cried out
I’m borne to be your always
its because my heart has never waver
whatever it is, I’m certain that it's you
i don’t have that many reasons, just that i love you in my heart
i don’t have that many reasons, just that i love you in my heart