program pengulangan

ini adalah salah satu contoh pengulangan menggunakan pascal. silahkan mencoba :)


Program mengulang;
Uses crt;
Var
nilai, jml, bilangan, a, b : integer;
Begin
Clrscr;
Write(‘masukan banyaknya nilai yang ingin diiulang : ‘);readln(a);
Writeln;
For b := 1 to a do
Begin
Write(‘bilangan ke ‘,b,’ = ‘);readln(bilangan);
If bilangan >=10 then
begin
Nilai := nilai+1;
Jml := jml+bilangan;
End;
End;
Writeln;
Writeln(‘banyak bilangan yang >= 10 : ‘,nilai);
Writeln(‘jumlah bilangan yang >=10 : ‘,jml);
End.


variabel diatas bisa diganti menjadi apa saja. tetapi ingat, sesuaikan juga dengan proses didalamnya karna kalau tidak, program akan error.

hasilnya akan seperti ini :

kalau ada yang error atau yang ga ngerti bisa langsung tanya, bisa lewat facebook atau coment di postingan ini :)

Read More

tips untuk mengatasi mata lelah

Kali ini saya mau ngasi tau cara atau tips yang bisa digunakan kalo mata uda lelah banget.

Buat yang pada rajin natap layar komputer entah itu bekerja, maen game, browsing atau lain sebagainyalahh.. terlalu lama menatap layaar komputer atau fokus terhadap satu hal kadang bisa membuat mata cepat lelah.

Mata adalah salah satu indera yang memiliki fungsi yang sangat penting bagi manusia ataupun hewan. Jika eseorang sudah mengalami mata lelah maka akan mempengaruhi kemampuan penglihan serta menurunnya kinerja.

Mata lelah disebabkan oleh banyak hal, contohnya :
• Kurang tidur,
• terlalu lama didepan komputer ,
• suhu dilingkungan juga mempengaruhi, misalnya sekarang anda sedang dalam suatu ruangan berAC yang suhunya sangat dingin, lalu anda pergi keluar denagn cuaca yang panas. Ini dapat menimbulkan iritasi pada mata
• merokok, minum alkohol atau kopi, mengkonsumsi kelebihan lemak maupun garam
• bekerja terlalu berat yang dapat menimbulkan strees pun mempengaruhi, karena dapat menurunkan stamina tubuh
• buat para wannita yang suka memakai eyeliner, maskara. Mata alergi pada bahan tertentu.

Cara untuk mengatasi mata lelah :
• tidur cukup, 8 jam sehari,
• perbanyak memakan buah serta sayur.
• Mengkompres mata dengan handuk atau tisu dingin
• Mencuci mata dengan air dingin
• Menempatkan sendok dingin dimata
• Menempatkan irisan mentimun, kentang atau strawberry dimata
• Menggunakan kantong teh dingin
• Merendam kapas dengan susu dingin atau air mawar

begitulahh.. selamat mencoba :)


source :

Read More

buat yang lagi "waiting someone", "broken heart", or "fallin' in love"

- buat yang lagi ngerasa kesepian nungu seseorang baca ini ya. itung-itung ngehibur diri sendiri.ahhaha :D


" Somewhere there's someone who dreams of your smile, and finds in your presence that life is worth while, so when you are lonely, remember this is true: Somebody, somewhere is thinking of you."



- buat yang suka sama seseoranga tapi yaaa gt dehh


"How do I say goodbye to someone I never really had? Why do my tears fall so endlessly for someone who was never really mine? Why is it I miss someone I was never really with? And why do I love someone whose love was never really mine?"



- buat yang lagi falling in love nee


"If you live to be a hundred, I want to live to be a hundred minus one day so I never have to live without you."

alay ! ahhahaa



- buat yang lagi pengen move on. mungkin karna uda ga tahan kali yaa..

"I spent so many nights thinking about you,my heart spent to many hours missing you, I wasted my time being with you, and now it's time to move on."

"One day you'll love me, the way I loved you. One day you'll think of me the way I thought of you. One day you'll cry for me, the way I cried for you. One day you'll want me, but I won't want you. yam!"

“You have to forgive to forget, and forget, to feel again.”

"You either let go for two reasons.... you've learned enough to want to, or you've been hurt enough you have to."


- buat yang lagi broken heart nii

"I can't escape the thought of you. Even in my dreams you are there. It's not fair how your gone, and how you're moving on so fast, while I am still living in the past."

"just because one simple sentence.. u have already killed all d reason for me to care .. but I'm still standing here .. for one stupid reason that I still don't understand why, u can call it love.. But of course, something has changed!!"

"It's funny how the first time we were at this place, something between us was beginning.....but it breaks my heart to know that we are at this same place and that something between us is now ending."



- buat yang ga bisa berhenti mencintai seseorang


-"You taught me how to love, but not how to stop."

-"in every girls life there is a guy she will never forget, and the summer when it all began."

-"I hope that in the end, we can all laugh and say it was worth it."

-"Still I won't say goodbye, won't ever say goodbye. And know that I'll always be yours."

-"I don't wish to be everything to everyone, but I would like to be something to someone."

-"I reached for sleep and drew it round me like a blanket muffling pain and thought together in the merciful dark"



udaahh segitu dulu aja ah :p

Read More