Armada Band – Cinta Itu Buta

Salahkah bila aku mencintaimu
Dan berharap engkau ‘kan jadi milikku
Walau banyak yang bilang kau tak pantas untukku

*
Sayang ku mohon jangan tolak cintaku
Jiwa ragaku ini hanya untukkmu
Aku rela berkorban demi cintamu itu

**
Biarlah orang berkata apa
Manusia tiada yang sempurna
Ku terima kau apa adanya
Yang penting aku bahagia

Kembali ke * **

Kembali ke **

Manusia tiada yang sempurna
Ku terima kau apa adanya
Yang penting aku bahagia

Sayang.. cinta itu buta

Bondan Prakoso – Kita Selamanya (feat Fade 2 Black)

intro: C G/B Am G F Em Dm G

eiyo. . . . it’s not the end, it’s just beginning

C G/B Am G F Em Dm G
ok detak detik tirai mulai menutup panggung
tanda skenario… eyo… baru mulai diusung
lembaran kertas barupun terbuka
tinggalkan yang lama, biarkan sang pena berlaga
kita pernah sebut itu kenangan tempo dulu
pernah juga hilang atau takkan pernah berlalu
masa jaya putih biru atau abu-abu (hey)
memori crita cinta aku, dia dan kamu

C G/B Am G F Em Dm G
saat dia (dia) dia masuki alam pikiran
ilmu bumi dan sekitarnya jadi kudapan
cinta masa sekolah yang pernah terjadi
dat was the moment a part of sweet memory
kita membumi, melangkah berdua
kita ciptakan hangat sebuah cerita
mulai dewasa, cemburu dan bungah
finally now, its our time to make a history

chorus:
C G/B Am G
bergegaslah kawan tuk sambut masa depan
F Em Dm G
tetap berpegang tangan, saling berpelukan
C G/B Am G
berikan senyuman tuk sebuah perpisahan
F Em Dm G
kenanglah sahabat kita untuk slamanya

C G/B Am G F Em Dm G
satu alasan kenapa kau kurekam dalam memori
satu cerita teringat didalam hati
karena kau berharga dalam hidupku, teman
untuk satu pijakan menuju masa depan

saat duka bersama, tawa bersama
berpacu dalam prestasi (huh) hal yang biasa
satu persatu memori terekam
didalam api semangat yang tak mudah padam

kuyakin kau pasti sama dengan diriku
pernah berharap agar waktu ini tak berlalu
kawan kau tahu, kawan kau tahu kan?
beri pupuk terbaik untuk bunga yang kau simpan

chorus:
C G/B Am G
bergegaslah kawan tuk sambut masa depan
F Em Dm G
tetap berpegang tangan, saling berpelukan
C G/B Am G
berikan senyuman tuk sebuah perpisahan
F Em Dm G
kenanglah sahabat kita untuk slamanya

C G/B Am G F Em Dm G 2x

chorus:
C G/B Am G
bergegaslah kawan tuk sambut masa depan
F Em Dm G
tetap berpegang tangan, saling berpelukan
C G/B Am G
berikan senyuman tuk sebuah perpisahan
F Em Dm G
kenanglah sahabat

C G/B Am G
bergegaslah kawan tuk sambut masa depan
F Em Dm G
tetap berpegang tangan, saling berpelukan
C G/B Am G
berikan senyuman tuk sebuah perpisahan
F Em Dm G
kenanglah sahabat kita untuk slamanya

C G/B Am G
bergegaslah kawan tuk sambut masa depan
F Em Dm G
tetap berpegang tangan, saling berpelukan
C G/B Am G
berikan senyuman tuk sebuah perpisahan
F Em Dm G
kenanglah sahabat kita untuk slamanya

C G/B Am G F Em Dm G C

Smash – I Heart You

Kenapa hatiku cenat cenut tiap da kamu
Selalu peluhku menetes tiap dekat kamu
Kenapa salah tingkah tiap kau tatap aku
Selalu diriku malu tiap kau puji aku

Kenapa lidahku kelu tiap kau panggil aku
Selalu merindu romaku tiap kau sentuh aku
kenapa otakku beku tiap memikirkanmu
Selalu tubuhku lunglai tiap kau bisikan cinta

Reff:
You know me so well
Girl I need you
Girl I love you
Girl I heart you
I know you so well
Girl I need you
Girl I love you
Girl I heart you

Tahukah kamu saat kita pertama jumpa
Hatiku berkata padamu ada yang berbeda
Tahukah sejak kita sering jalan bersama
Tiap jam, menit, detik ku hanya ingin berdua

Tahukah kamu ku takkan pernah lupa
Saat kau bilang punya rasa yang sama
Ku tak menyangka aku bahagia, ingin ku peluk dunia
Kau izinkan aku tuk dapat rasakan cinta

Back to Reff:

Ketika diriku rasakan cintamu yang buat ku salah tingkah
you Know me so well
I Know you so well
You Heart me Girl
I heart You Back

Girl I need you
Girl I love you
Girl I heart you beibeh 2x

Back to Reff:

Tak ada bisa memisahkan kita
Waktupun takkan tega
Kau dan aku bersama selamanya

Lirik Malka – Beda

Katanya cinta
Katanya sayang
Bisa terima apa adanya
Kenyataanya tak sama

Janji setia
Takkan mendua
Bisa terima apa adanya
Kenyataanya tak sama

Yang kamu mau aku tak bisa
Yang kamu ingin aku tak punya
Yang kamu suka aku tak suka
Semua tak pernah sama

Janji setia
Takkan mendua
Bisa terima apa adanya
Kenyataanya tak sama

Yang kamu mau aku tak bisa
Yang kamu ingin aku tak punya
Yang kamu suka aku tak suka
Semua tak pernah sama

Yang kamu mau aku tak bisa
Yang kamu ingin aku tak punya
Yang kamu suka aku tak suka
Semua tak pernah sama

Lirik lagu Anang dan Aurel Tanpa Bintang

Sepi ini tak kan membunuh kita
Karna kita selalu bersama
Bersamanya kita harus bahagia
Melawan semua aral yang ada..bersama

Aku dan kamu selalu bersama
Habiskan malam walau tanpa bintang
Aku dan kamu saling berpelukan
Membunuh malam hingga pagi menjelang
Bersama selamanya

Sepi ini tak kan membunuh kita
Karna kita selalu bersama
Bersamanya kita harus bahagia
Melawan semua aral yang ada..bersama

Aku dan kamu selalu bersama
Habiskan malam walau tanpa bintang
Aku dan kamu saling berpelukan
Membunuh malam hingga pagi menjelang
Berdua selamanya

Cinta aku seluas samudera
Sayang aku tak akan pudar
Cinta aku
Aku dan kamu selamanya

Aku dan kamu selalu bersama
Habiskan malam walau tanpa bintang
Aku dan kamu saling berpelukan
Membunuh malam hingga pagi menjelang

Aku dan kamu selalu bersama
Habiskan malam walau tanpa bintang
Aku dan kamu saling berpelukan
Membunuh malam hingga pagi menjelang
Berdua selamanya
Selamanya

Lirik Lagu Justin Bieber – Love Me

oh oh its jb
My friends say I’m a fool to think
that you’re the one for me
I guess I’m just a sucker for love
‘Cuz honestly the truth is that
you know I’m never leavin’
‘Cuz you’re my angel sent from above

Baby you can do no wrong
My money is yours
Give you little more because I love ya,
love ya
With me, girl, is where you belong
Just stay right here
I promise my dear I’ll put nothin above ya
above ya

Love me, Love me
Say that you love me
Fool me, Fool me
Oh how you do me
Kiss me, Kiss me
Say that you miss me
Tell me what I wanna hear
Tell me you love me

Love me, Love me
Say that you love me
Fool me, Fool me
Oh how you do me
Kiss me, Kiss me
Say that you miss me
Tell me what I wanna hear
tell me u love me

People try to tell me
but I still refuse to listen
‘Cuz they don’t get to spend time with you
A minute with you is worth more than
a thousand days without your love,
oh your love
oh

Baby you can do no wrong
My money is yours
Give you little more because I love ya
love ya
With me, girl, is where you belong
Just stay right here
I promise my dear I’ll put nothin above ya
above ya
jurug.blogspot.com
Love me, Love me
Say that you love me
Fool me, Fool me
Oh how you do me
kiss me , kiss me
say that u miss me
tell me what i wanna hear


tell me you love me.

Love me, Love me
Say that you love me
Fool me, Fool me
Oh how you do me
kiss me , kiss me
say that u miss me
tell me what i wanna hear
tell me you love me.

My heart is blind but I don’t care
‘Cuz when I’m with you everything has disappeared
And every time I hold you near
I never wanna let you go,
oh

Love me, Love me
Say that you love me
Fool me, Fool me
Oh how you do me
kiss me , kiss me
say that u miss me
tell me what i wanna hear
tell me you love me.

Love me, Love me
Say that you love me
Fool me, Fool me
Oh how you do me
kiss me , kiss me
say that u miss me
tell me what i wanna hear
tell me you love me.

Lirik Lagu Rama Band – Aku Ingin Kau Bahagia

Ku sadari ku tak bisa memberikan yang terbaik untukmu
Tapi aku ‘kan berusaha segenap raga ini

Mungkin aku saat ini tak berarti di matamu
Tapi aku ‘kan berjanji
Ku ‘kan berikan yang terbaik untukmu

Maafkan jika aku harus pergi
Dan meninggalkanmu untuk saat ini
Mencari sesuatu yang bisa membuatmu bahagia

Ku sadari ku tak bisa memberikan yang terbaik untukmu
Tapi aku ‘kan berusaha segenap raga ini

Mungkin aku saat ini tak berarti di matamu
Tapi aku ‘kan berjanji
Ku ‘kan berikan yang terbaik untukmu

Maafkan jika aku harus pergi
Dan meninggalkanmu untuk saat ini
Mencari sesuatu yang bisa membuatmu bahagia

Maafkan jika aku harus pergi
Dan meninggalkanmu untuk saat ini
Mencari sesuatu yang bisa membuatmu bahagia

Pengulangan For To Do

Pengulangan For To Do

Perulangan for dibagi menjadi dua, yaitu for…to…do dan for…downto…do. Format penulisan untuk fungsi pustaka for…to…do adalah sebagai berikut: for varibel_pengontrol := ekspresi1 to ekspresi2 do pernyataan
Variabel pengontrol adalah variabel yang dijadikan tempat menyimpan data untuk menentukan jumlah pengulangan. Ekspresi1 diisi dengan bilangan awal pengulangan dan ekspresi2 diisi dengan bilangan akhir. Ekspresi1 lebih kecil dari pada ekspresi2 (ekspresi1 <>). Dengan kata lain pengulangan for to do sama dengan prinsip kerja “up counter” pada pelajaran teknik digital. Amati listing program berikut:


Sintak program


Output

Program ContohFor_Do;

{mencetak bilangan secara menaik}

Uses Crt;

Var i:byte;
Begin

ClrScr;

FOR i:=1 to 5 DO

Writeln(i);

Writeln(‘Selesai’);

End.


Tampilan 1:

1

2

3

4

5

selesai

Perhatikan pada bagian listing program yang menyatakan pengulangan sintak :
FOR i:=1 to 5 DO Writeln(i); Pernyataan Writeln(i); akan diulang sebanyak lima kali sesuai dengan nilai, yaitu i:=1 to 5. Setelah nilai i mencapai lima, maka sintak Writeln(‘Selesai’); baru akan dieksekusi sehingga hasilnya akan seperti pada output tampilan 1.

Format penulisan untuk fungsi pustaka for…downto…do adalah sebagai berikut:
FOR varibel_pengontrol := ekspresi1 DOWNTO ekspresi2 DO
pernyataan

Variabel pengontrol adalah variabel yang dijadikan tempat menyimpan data untuk menentukan jumlah pengulangan. Ekspresi1 diisi dengan bilangan awal pengulangan dan ekspresi2 diisi dengan bilangan akhir. Ekspresi1 lebih besar dari pada ekspresi2 (ekspresi1 > ekspresi2). Dengan kata lain pengulangan for downto do sama dengan prinsip kerja “down counter” pada pelajaran teknik digital.
Amati listing program berikut:


Sintak program


Output

Program ContohFor_Do;

{mencetak bilangan secara menaik}

Uses Crt;

Var i:byte;

Begin

ClrScr;

FOR i:=5 to 1 DO

Writeln(i);

Writeln(‘Hasil perhitungan mundur’);

End.


Tampilan 1:

5

4

3

2

1

Hasil perhitungan mundur

Dari listing tersebut tentunya sudah cukup jelas, perbedaan antara for to do dan for downto do.

Case Of Condition

Case Of Condition

Pada posting sebelumnya telah dibahas mengenai if then else yang memiliki dua pilihan kondisi. Bagaimana seandainya jumlah pilihannya tidak hanya dua pilihan? Misalnya untuk pilihan nilai dengan alpabet A untuk baik, B untuk sedang, dan C untuk kurang.
Kasus tersebut bisa saja kita selesaikan dengan menggunaan fungsi kondisi if, tapi akan terlihat lebih sulit. Solusi lain dapat kita pergunakan fungsi kondis case of. Silahkan amati list program berikut:


Sintak program


Output

program caseof;

uses crt;

var nilai:char;

begin

clrscr;

write(‘ketik nilai Anda A/B/C: ’);

readln(nilai);

{bagian seleksi kondisi}

case nilai of

‘A’:write(‘Baik’)

‘B’:write(‘Cukup’)

‘C’:write(‘Kurang’)

else write(‘Input anda salah’)

end;

end.


Tampilan 1:

Ketik nilai Anda A/B/C : B

Tampilan 2:

Ketik nilai Anda : B

Cukup

Ketika program dieksekusi tampil seperti pada output tampilan 1 dan user mengetikkan nilai B, kemudian tampil output seperti pada output tampilan 2. Keterangan nilai yang diberikan adalah ‘Cukup’. Apabila dimasukkan nilai selain dari nilai ‘A’, ‘B’, dan ‘C’, maka pernyataan yang akan dieksekusi adalah bagian else.
Jadi dapat disimpulkan bahwa variabel untuk kondisi case of adalah bertipe char dan format penulisan untuk fungsi pustaka case of adalah seperti berikut :

Case kondisi of
label : pernyataan 1
label : pernyataan 2
label : pernyataan 3
.
.
else pernyataan n
end;

pada variabel nilai diberikan tipe data char, karena variabel nilai digunakan sebagai varibel kondisi untuk fungsi pustaka case of.

PERNYATAAN KONDISI DALAM TURBO PASCAL

PERNYATAAN KONDISI DALAM TURBO PASCAL

Percabangan I : If ….. Then …. Else …..
Pernyataan percabangan/kendali/bersyarat merupakan pernyataan yang akan mengeksekusi suatu pernyataan yang mengikutinya bila suatu persyaratan dipenuhi. Salah satu pernyataan kendali untuk pengambilan keputusan dalam Pascal adalah pernyataan If … Then … Else …

Bentuk umum :

IF kondisi THEN
Statemen 1
ELSE
Statemen 2

dimana :

kondisi : ungkapan boolen yang menghasilkan nilai benar atau salah
statemen 1, statemen 2 : pernyataan-pernyataan tunggal/majemuk. Dalam Pascal, pernyataan majemuk adalah kumpulan dari beberapa pernyataan yang diawali dengan kata baku BEGIN dan diakhiri oleh kata baku END, yang dianggap sebagai sebuah pernyataan tunggal.
Maksudnya : bila kondisi bernilai TRUE (benar) maka akan dikerjakan statemen 1 dan statemen 2 dilewati, sedangkan jika kondisi bernilai FALSE (salah) maka akan dikerjakan statemen 2 dan statemen 1 dilewati.
Untuk pernyataan IF yang berkalang (ada pernyataan IF yang lain dalam pernyataan IF), ELSE selalu berpasangan dengan dengan IF yang terletak sebelum dan yang paling dekat dengan ELSE tersebut, serta terletak dalam blok pernyataan yang sama.

Contoh 1 : Program untuk mencari akar persamaan kuadrat di bawah ini
Program PersamaanKuadrat;
uses crt;
var a,b,c,d,x1,x2 :real;
begin
clrscr;
writeln('Menghitung akar-akar persamaan kuadrat');
writeln('Nilai a,b,c dimasukkan dengan jeda spasi');
write('Masukkan nilai a,b,c:');
readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then writeln('tidak ada akar real')
else
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1 =',x1:6:2);
writeln('x2 =',x2:6:2);
end;
readln;
end.

Contoh Hasil Eksekusi :

- jika d = 0
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 4 2
x1 = -0.59
x2 = -3.41

- jika d < 0 :
Menghitung akar-akar persamaan kuadrat
Nilai a,b,c dimasukkan dengan jeda spasi
Masukkan nilai a,b,c:1 2 6
tidak ada akar real

Catatan :
1. Di dalam IF boleh ada IF (pernyataan IF yang berkalang)
2. Jika diinginkan kondisi = FALSE tidak mengerjakan apa-apa, maka ELSE tidak perlu dituliskan.
3. Pernyataan ELSE tidak diakhri dengan ; (titik koma) begitu pula baris pernyataan sebelum ELSE.


Percabangan II : Case ….. Of …..
Pernyataan CASE …. OF …. Digunakan untuk pengambilan keputusan jika terdapat lebih dari dua alternatif jawaban yang tersedia.

Bentuk umum :
CASE ungkapan OF
Label 1 : Statemen 1
Label 2 : Statemen 1
………..
………..
………..
Label n : Statemen n
END;

dimana :
ungkapan : dapat berupa sembarang ungkapan yang memberikan hasil integer, char, boolean atau tipe terbilang (kecuali real).
Label : konstanta yang mempunyai tipe yang sama dengan ungkapan Statemen : pernyataan yang mengikuti berupa rangkaian instruksi yang harus dikerjakan jika nilai konstanta dalam label sama dengan nilai variable Maksudnya jika ungkapan bernilai label 1, maka dikerjakan statemen1, jika bernilai label 2 akan dikerjakan statemen 2 dan seterusnya.
Pernyataan CASE …. OF …. boleh diikuti ELSE. Perlu diketahui, ELSE dalam pernyataan CASE …. OF …. Hanya bersifat pilihan, dalam artian boleh disertakan boleh tidak. Jika ELSE disertakan, pernyataan yang mengikuti ELSE akan dieksekusi hanya bila nilai dari syarat-pemilih tidak ada dalam semua label.

Contoh 1 :
Program nilai_ujian;
uses crt;
var nama : string[25];
nim : string[8];
nilai: integer;
begin
clrscr;
write('Masukkan nama mahasiswa : ');
readln(nama);
write('Masukkan nomor induk mahasiswa : ');
readln(nim);
write('Masukkan nilai ujian : ');
readln(nilai);
writeln;
case nilai div 10 of
10,9 : writeln('Nilai huruf = A');
8 : writeln('Nilai huruf = B');
7 : writeln('Nilai huruf = C');
6 : writeln('Nilai huruf = D');
5,4,3,2,1,0 : writeln('Nilai huruf = E');
end;
readln;
end.

Contoh 2 :
Program konversi;
uses crt;
var
menit, jam, kaki, meter, fahrenheit, celcius : real;
pilihan :char;
begin
clrscr;
writeln('Pilihan konversi:');
writeln('1) Menit ke jam');
writeln('2) Kaki ke meter');
writeln('3) Derajat Fahrenheit ke Celcius');
write('pilihan ? ');
readln(pilihan);
case pilihan of
'1' : begin
write('menit= ');
readln(menit);
jam:=menit/60;
writeln('nilai ini sama dengan ',jam:4:1,'
jam');
readln;
end;
'2' : begin
write('kaki= ');
readln(kaki);
meter:=0.3048*kaki;
writeln('nilai ini sama dengan ',meter:4:1,'
meter');
readln;
end;
'3' : begin
write('Derajat Fahrenheit = ');
readln(fahrenheit);
celcius:=5/9*(fahrenheit-32);
writeln('nilai ini sama dengan ',Celcius:4
:1,' Celcius');
readln;
end;
else writeln('Tidak melakukan konversi');
end;
end.

KalanG I : For … To … Do… dan For ... Downto ... Do…
Salah satu ciri bahasa pemrograman adalah adanya perintah-perintah yang harus dikerjakan berulang-ulang. Pengulangan ini sering disebut dengan kalang. Dalam bahasa Pascal ada beberapa perintah untuk membuat kalang, yaitu:

FOR … TO … DO… dan FOR … DOWNTO … DO…

Bentuk umum :
FOR pengubah:=ungkapan1 TO ungkapan2 DO Statemen; dan FOR pengubah:=ungkapan1 DOWNTO ungkapan2 DO Statemen;

dimana,

pengubah : suatu pengubah yang disebut pengubah kendali, dapat berupa pengenal dari tipe integer, char, boolean atau tipe terbilang.
ungkapan1 : nilai awal pengubah
ungkapan2 : nilai akhir pengubah
Beberapa aturan yang harus dipenuhi :
- Pengubah, ungkapan1 dan ungkapan2 harus mempunyai tipe data yang sama
- Pada kalang TO ungkapan1
- Pada kalang DOWNTO ungkapan1>ungkapan2

Contoh 1 : Program untuk menghitung jumlah n bilangan pertama dan jumlah
kuadrat n bilangan pertama
Program jumlahKuadrat;
Uses crt;
Var jumlah, jmlkuadrat,i,n : integer;
begin
clrscr;
Write('Banyak n bilangan yang akan diproses');
readln(n);
jumlah:=0;
jmlkuadrat:=0;
for i:=1 to n do
begin
jumlah:=jumlah+i;
jmlkuadrat:=jmlkuadrat + i*i;
writeln('Jumlah ',i:2,' bilangan pertama
= ',jumlah:5);
writeln('Jumlah Kuadrat ',i:2,' bilangan pertama
= ',jmlkuadrat:5);
end;
readln;
end.

Contoh 2 : Mencetak abjad dengan urutan terbalik dari z…a
Program tulisabjad;
Uses crt;
Var karakter : char;
Bahasa Pemrograman Pascal
Diktat Dasar Komputer dan Pemrograman T. Elektro FTI UAD
64
begin
clrscr;
for karakter:= 'z' downto 'a' do
write(karakter:2);
readln;
end.

Contoh 4 :
Bilangan Fibonacci memiliki rumusan : Fi = Fi-1 + Fi-2 Suku ke-1 merupakan penjumlahan bilangan Fibonacci suku ke-(i-1) dan suku ke- (i-2), dengan bilangan pada suku pertama dan suku kedua didefinisikan sama dengan satu.
Program Fibonacci;
Uses crt;
Var i,n,f,f1,f2 : integer;
begin
clrscr;
writeln('Ingin mencetak bilangan Fibonacci');
write('sampai suku ke-');
readln(n);
writeln;
writeln('Suku ke- 1 = ',1);
writeln('Suku ke- 2 = ',1);
f1 :=1; f2:=1;
for i:=3 to n do
begin
f:=f1+f2;
writeln('Suku ke- ',i:2,' = ',F:3);
f2:=f1; f1:=f;
end;
readln;
end.

Kalang II : While .… Do…. dan Repeat .... Until ….

Selain membuat kalang dengan FOR….TO.…DO.… dan FOR..… DOWNTO … DO … ada bentuk kalang yang lebih umum yaitu : WHILE … DO …. yang bentuk umumnya adalah sebagai berikut :

WHILE kondisi DO
Statemen

dimana,

kondisi : adalah ungkapan boolean yang digunakan sebagai syarat agar statemen dikerjakan berulang kali
statemen : adalah pernyataan tunggal atau pernyataan majemuk yang akan diproses ulang.

Contoh 1 : Jumlah deret n bilangan asli pertama
Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin
clrscr;
Writeln('Menghitung jumlah 1 + 2 + 3 + ... + n');
write('n = ? ');
readln(n);
pencacah:=1;
jumlah:=0;
while pencacah <= n do
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
writeln;
writeln('Jumlah deret = ',jumlah:5);
readln;
end.

Selain membuat kalang dengan 3 cara di atas masih ada cara lain untuk membuat kalang, yaitu dengan perintah REPEAT …. UNTIL yang bentuk umumnya adalah sebagai berikut :

REPEAT
…………
Statemen
………….
UNTIL kondisi

dimana,

statemen : adalah pernyataan tunggal atau pernyataan majemuk yang akan diproses ulang.
Kondisi : adalah ungkapan boolen sebagai syarat agar pernyataan diproses ulang.
Catatan : Salah satu statemen diantara repeat dan until harus ada yang bias merubah nilai kondisi sehingga kalang bisa berhenti

Contoh 2 :
Mengganti kalang WHILE … DO …. Dari contoh 1 dengan kalang REPEAT …. UNTIL …..
Program Jumlah_Deret;
Uses crt;
Var n, jumlah, pencacah : integer;
begin
clrscr;
Writeln('Menghitung jumlah 1 + 2 + 3 + ... + n');
write('n = ? ');
readln(n);
pencacah:=0;
jumlah:=0;
repeat
begin
jumlah:=jumlah+pencacah;
pencacah:=pencacah + 1;
end;
until pencacah = n+1;
writeln;
writeln('Jumlah deret = ',jumlah);
readln;
end.

Contoh 3 :
Program untuk menghitung mean dan standar deviasi dari sejumlah data masukkan non negatif dan berhenti apabila masukkan data adalah -1.
Program Mean_StdDev;
Uses crt;
Const neg=-1;
Var bilangan, total1, total2, mean, std : real;
n : integer;
begin
clrscr;
total1:=0.0;
total2:=0.0;
n:=0;
writeln('Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1');
readln(bilangan);
repeat
n:=n+1;
total1:=total1+bilangan;
total2:=total2+bilangan*bilangan;
writeln('Masukkan data non negatif, dan untuk
mengakhiri masukkan angka -1');
readln(bilangan);
until bilangan=neg;
mean:= total1/n;
std:=sqrt(total2/(n-1)-sqr(total1)/(n*(n-1)));
writeln('Mean = ',mean:7:2);
writeln('Deviasi Standar = ',std:8:3);
readln;
end.

Ungu - Percaya Padaku

Aku tak tahu apa yang kurasakan

Dalam hatiku saat pertama kaliLihat dirimu melihatmu

Seluruh tubuhku terpaku dan membisu

Detak jantungku berdetak tak menentu

Sepertinya aku tak ingin berlalu

[*]Berikan cintamu juga sayangmu

Percaya padaku ku ‘kan menjagamu

Hingga akhir waktu menjemputku

[**]Ku berikan cintaku juga sayangku

Percaya padaku ku ‘kan menjagamu

Hingga akhir waktu menjemputku

Saat ku tahu kau akan pergi jauh

Izinkan aku ‘tuk selalu menatimu

Untuk katakan ku ingin dirimu

Agar kau tahu betapa ku terlalu

Mencintaimu aku akan menunggu

Hingga dirimu kembali untukku

Tolonglah aku bagaimana diriku

Ungkapkan itu rasa yang membelenggu

Dalam hatiku ku cinta padamu

Cukuplah Allah yang Menilai sahabat...

Apabila sahabat berbuat baik, orang lain mungkin akan berprasangka bahwa ada maksud-maksud buruk dibalik perbuatan baik yang sahabat lakukan itu.

Tetapi, tetaplah berbuat baik selalu.

Apabila sahabat sukses, sahabat mungkin akan mempunyai musuh dan juga teman-teman yang iri hati atau cemburu.

Tetapi,.. teruskanlah kesuksesan itu.

Apabila sahabat jujur dan terbuka, orang lain mungkin akan menipu.

Tetapi,.. tetaplah bersikap jujur dan terbuka setiap saat.

Apa yang sahabat bangun bertahun-tahun lamanya, dapat dihancurkan orang dalam satu malam saja.

Tetapi,..janganlah berhenti, tetaplah membangun.

Apabila sahabat menemukan kebahagiaan dan kedamaian di dalam hati, orang lain mungkin akan iri hati.

Tetapi,..tetaplah berbahagia.

Kebaikan yang sahabat lakukan hari ini, mungkin besok akan dilupakan orang.

Tetapi,..teruslah berbuat baik.

Berikan yang terbaik dari apa yang sahabat miliki, dan mungkin itu tidak akan pernah cukup.

Tetapi,..tetap berikanlah yang terbaik.

Apabila sahabat mencintai seseorang dengan ikhlas dan tanpa pamrih, mungkin ia tidak akan berbuat seperti apa yang sahabat lakukan.

Tetapi tetaplah mencintainya tanpa pamrih, karena Allah Swt. Maha Mengetahui dan Maha Adil, lagi Maha Bijaksana, Hakim dari segala hakim.

Sadarilah bahwa semua yang sahabat katakan, dan lakukan itu ada diantara sahabat dan Tuhan. Tidak akan pernah ada antara sahabat dan orang lain. Jangan pikir dan pedulikan apa yang sahabat lakukan atas orang lain, dimana orang lain akan berfikir atas perbuatan baik yang sahabat lakukan.

Tetapi percayalah bahwa, Mata Tuhan tertuju pada orang-orang yang jujur, dan berbuat baik. Dan Dia dapat melihat ketulusan hati sahabat.

"Yang dinamakan Muslim itu, adalah apabila muslim lainnya selamat dari keburukan lidah dan tangannya". (Al Hadist)

"Takwalah kamu pada Allah dimana saja kamu berada, dan lakukanlah perbuatan baik, untuk menipiskan perbuatan burukmu, yang akan menghapuskannya, dan pergaulilah manusia dengan pergaulan yang baik. (Al Hadits)

"Barang siapa yang bertaqwa pada Allah, Allah akan memberikannya jalan keluar yang terbaik, dan akan memberikan rezeki padanya dari sumber yang tidak ia sangka-sangka". (Al Qur'an, surat ke 65. Ath Thalaaq ayat 2-3).

ST 12 - Terjatuh Lagi

Aku terjatuh
Aku terjatuh lagi di pelukanmu
Aku terjatuh
Aku terjatuh lagi di pelukanmu

Ku sadar dirimu tak pernah dalam jiwa
Ku bosan menunggu dirimu yang tak bisa

[*]
Aku terjatuh
Aku terjatuh lagi di pelukanmu (dipelukanmu)
Aku terjatuh
Aku terjatuh lagi di pelukanmu

[**]
Sudah ku bilang hapus airmata
Cinta ku hilang meninggalkanmu
Kamu tlah berbeda setengah gila
Hidupku terasa terasa mimpi

Sudah ku bilang hapus airmata
Cinta ku hilang meninggalkanmu
Kamu tlah berbeda setengah gila
Hidupku terasa terasa hampa

Back to [*]

Back to [**] 2x

Membuat Gumpalan Air ( WaterDrop) di Foto

Ini tutorial photoshop dasar juga … efek waterdrop buat foto biar foto keliatan ada gumpalan air nya..

Buka file gambar nya, saya pake gambar teman saya yang diam – diam saya ambil dari Facebooknya.. hhehehe

Buat ellips dengan elliptical marquee tool

Beri gradient di ellips.

Klik kanan lalu klik blending option di layer elips tadi.. Klik di Drop shadow

Lalu Klik Inner Shadow

kemudian kalian juga dapat mengatur Inner Glow nya kenudian

Klik Ok.. Klik filter > blur> gaussian blur

Ubah layer efek menjadi softlight.. lalu

buat layer baru, kemudian dengan menggunakan brush tool gambar titik sebagai efek light di atas air tadi..

Buat titik tersebut agak blur .. Klik filter > blur > gaussian blur

Hingga menghasilkan seperti ini ...

Nah kawan – kawan mudah bukan membuatnya... ayo kalian juga mencobanya juga yah.. kereasikan pake bentuk yang lain juga yah.. jangan hanya menggunakan ellips .. tapi gunakan juga yang lain ... ^.^

~ Salam @ eZawa ~

Advertisement

coming soon....

Rumah dengan view pemandangan dan udara sejuk di daerah Bogor...

ini adalah salah satu tipe yang akan kami buat...