Pelajaran kali ini akan membahas:
- Statement if
- if ... then ... else
- if bersarang
- Perulangan Repeat – Until
- Perulangan For
- for bersarang
- Perulangan While – do
Statement if
statement if mengeksekusi sebuah pengkondisian. Maksudnya adalah jika sebuah aksi bernilai true, maka instruksi-instruksi yang ada di dalam badan if akan dieksekusi, jika tidak maka instruksi-instruksi akan dilewatkan saja. Untuk lebih jelasnya perhatikan yang dibawah ini:
if ini terjadi (aksi), then lakukan ini (reaksi, jika kondisi bernilai true/ benar).
Atau:
if ini terjadi (aksi), then lakukan ini (reaksi, jika kondisi true/ benar), else lakukan yang ini (reaksi, jika kondisi false/ salah).
di dalam pascal, 'statement if' harus ditulis seperti berikut:
If ekspresi kondisional then kode ..... ; {jika satu aksi}
Atau:
If ekspresi kondisional then Begin instruksi-instruksi ... end; (jika ada lebih dari satu aksi)
Sebagai catatan bahwa anda tidak boleh menggunakan operator assignment ('=') di dalam ekspresi kondisional, jika iya maka compiler akan menampilkan pesan error. Contoh:
Salah:
If x := 20 then x := x + 1; {karakter yang digarisbawahi adalah yang salah.}
Benar:
If x = 20 then x:= x + 1; {tanda sama dengan hanya dipakai pada kondisi}
Program dibawah ini adalah contoh bagaimana statement if bekerja:
Pada program diatas, statement 'goto' digunakan. Sejauh ini, ini adalah sebuah kerusakan yang nyata pada program dan ini membuat kebingungan yang tak diinginkan. Saya menganjurkan anda untuk tidak menggunakannya berulang-ulang.
>>If ... Then ... Else
Di dalam statement normal, 'reaksi' tidak bisa dilakukan jika kondisi tidak bernilai true. Tapi di dalam sebuah statement if ... then ... else, setidaknya ada satu statement yang dikerjakan. Mari lihat contoh di bawah ini:
writeln('Siapa yang menjadi presiden pertama indonesia?');
readln(ans);
if (ans = 'Soekarno') then
score := score + 1 {jika benar}
ELSE
writeln('maaf, jawaban anda salah'); {jika salah}
Perhatikan bahwa 'else' termasuk di dalam statement if, sehingga tidak ada tanda semi-colon (';') sebelum else; lihat saja pada contoh di atas
>>Statement if bersarang
Program diatas sudah menunjukkan sebuah contoh statement if bersarang.
if sel = '3' then
Begin
clrscr;
write('Anda Yakin? (Y/N)');
YN := readkey;
if YN = 'y' then HALT; {pernyataan if bersarang}
if YN = 'n' then goto 1; {pernyataan if bersarang yang lain}
End.
Sebuah pernyataan if bersrang ada pada form:
if (ini terjadi) then {if 1}
if (ini terjadi) then {if 2}
(lakukan ini) dll...
Else (lakukan ini) {if 2}
Else (lakukan ini) dll.. {if 1}
Sebuah pernyataan if bersarang adalah pernyataan if di dalam pernyataan if yang lain seperti tulisan diatas.
Pengulangan Repeat – Until
Perulangan ini digunakan untuk mengulang-ulang eksekusi dari satu set instruksi, minimal satu kali. Set Instruksi diulangi sampai kondisi ekspresi salah. Contoh dibawah ini menunjukkan model perulangan 'repeat-until':
Repeat
... (code)
... (code)
... (code)
Until pernyataan kondisi;
berikut contohnya:
Sangat mudah kan! Dalam program di atas, ada Ekspresi Boolean di baris ke-sepuluh (or) akan dijelaskan pada pelajaran berikutnya.
Perulangan For
Perulangan for mengulang satu set instruksi sebanyak jumlah yang ditentukan. Bentuk penulisan perulangan for:
- Jika untuk satu aksi/ instruksi:
for {variable}*:={nilai awal} to/downto {nilai akhir} do
{code.. (untuk satu aksi)}
- Jika untuk lebih dari satu aksi
for {variable}* := {nilai awal} to/downto {nilai akhir} do begin
{code..}
{code..}
End;
*Biasanya, variabel ini disebut 'loop counter'
Sekarang, sebagai contoh dari perulangan for, diperlihatkan dibawah ini, tapi pertama kali, anda harus mengerti penggunaan for loop yang efektif. Seperti contoh dibawah ini:
Tanpa for loop:
Dengan for loop:
Perhatikan bahwa kedua program diatas menghasilkan fungsi yang sama, tapi gaya pemrograman mana yang lebih luar biasa?
- For loop bersarang
Sebuah perulangan for bersarang mirip dengan pernyataan if bersarang. Penulisan for loop bersarang:
for {loop counter} := {nilai awal} to {nilai akhir} do {Begin-if required}
{code jika banyak, perlu menggunakan begin (i.e lebih dari satu aksi)}
for {loop counter} := {nilai awal} to {nilai akhir} do {Begin-if required}
{code..jika lebih dari satu aksi, gunakan begin pada for loop kedua}
{End; – jika begin digunakan pada for loop kedua)}
{code if any..begin should be included in the first for loop}
{End; - if begin is included in the first for loop)}
While-Do loop
Loop tipe ini dieksekusi ketika kondisi bernilai benar. ini berbeda dari 'Repeat-Until' loop yang dieksekusi minimal satu kali. Code bekerja seperti ini:
While <kondisi benar> lakukan berikut ini:
instruksi 1;
Instruksi 2;
Instruksi 3;
dll..
End; {jika While-do loops dimulai dengan pernyataan begin}
Contoh program While-do loop:
