Jumat, 31 Desember 2010

Pascal Oh Pascal

Pertama kali mengenal pascal,, wow sangatlah memusingkan.
Tapi Alhamdulillah tidak untuk akhir-akhir ini.
Sedikit berbagi sajalah..
Kali ini saya akan bercerita tentang perulangan dalam Pascal.
Please, check it out!

Bentuk- bentuk perulangan 
Dalam hampir setiap program yang kompleks mutlak memerlukan suatu perulangan.
Tujuan perulangan ini yaitu untuk mengulang statement atau blok statement berulang kali sesuai yang diinginkan.

Perulangan For
Perulangan dengan statement For digunakan untuk mengulang statement atau blok statement berulang kali.
Perulangan dengan statement For dapat berupa perulangan positif dan perulangan negatif

Perulangan For Positif
contoh:
Perulangan positif untuk swatu statement:

Uses Wincrt;
Var i : integer
Begin
For i To 3 Writeln('I LOVE YOU ULLY');
End.

Maka apabila program tersebut dijalankan, hasilnya:

I LOVE YOU ULLY
I LOVE YOU ULLY
I LOVE YOU ULLY

*berarti statement I LOVE YOU ULLY akan diulang sebanyak 3 kali yaitu dengan menghitung nilai i ke i sampai nilai i terakhir yaitu i ke 3.

Perulangan For Negatif
Perulangan negatif adalah perulangan dengan menghitung (counter) dari besar ke kecil.
Perulangan yang digunakan yaitu For-DownTo-Do.

Contoh:

Uses Wincrt;
Var i : integer;
Begin
For i:=5 Down To 1 Do Write(i:3);
End

Hasil:
5 4 3 2 1

Perulangan While-Do
Penyeleksian kondisi digunakan agar program dapat menyeleksi kondisi, sehingga program dapat menetukan tindakan apa saja yang harus dikerjakan, bergantung dari kondisi yang diseleksi tersebut. Perulangan While-Do tidak dilakukan jika kondisi tidak terpenuhi.

Contoh:
Uses Wincrt;
Var i: integer;
Begin
i:=0;
While <7 Do
Begin
Write(i:3);
i:=i+1
End;
End.

Hasil:
0 1 2 3 4 5 6

Perulangan Repeat-Until 
Repeat-Until digunakan untuk mengulang statement-statement atau blok statement sampai(until) kondisi yang diseleksi di Until tidak terpenuhi.



Contoh:
Uses Wincrt;
Var i: integer;
Begin
i:=0;
Repeat i:=i+1;
writeln(i);
Until i:=10;
End;
End.

Hasil:
1
2
3
4
5
6
7
8
9
10



Ully pikir,segitu dulu ya..
Masih terbatas juga inputnya di otak saya... :)
Gud Luck..







Selasa, 31 Agustus 2010

sadar dalam kesadaran

sadar atau ga sadar sebuah karunia terbesar kita bernafas.
sadar atau ga sadar sebuah nikmat terindah kita mmpunyai raga.
semua orang sebenarnya tahu tapi tak tahu, apa itu hidup.