PENGGUNAAN KONDISI (pascal bag:III)

Tutorial yang kedua ini akan dibahas mengenai pernyataan kondisi, if dan case.

1: Program Tutorial2_if;

2: var pilih: Integer;

3: Begin

4:   write(‘Pilih 1 atau 2’); readln(pilih);

5:   if pilih=1 then write(‘Anda memilih 1’)

6:   elseif pilih=2 then write(‘Pilihan anda 2’)

7:   else write(‘Anda memilih yang lain’)

8: End.

Perhatikan baris 5, 6 dan 7. Di situ ada 3 pernyataan kondisi if. Apabila pilihan yang kita ketik ada di satu kondisi, maka yang lain akan diabaikan. Bingung? gini maksudnya… Misal pada program di atas kita pilih 2. Pada saat program dijalankan, baris ke-5 akan di eksekusi. Berhubung pilihan kita 2 bukan 1, maka akan langsung pindah kebaris selanjutnya. Ternyata pada baris ke-6 kondisi itu terpenuhi, maka yang tercetak dilayar adalah “Pilihan anda 2”. Baris ke-7 tidak diperiksa lagi karena baris ke 6 sudah memenuhi syarat.

Bila kita memilih 3, maka baris ke-5 dan ke-6 tidak memenuhi konsisi tersebut, maka yang tercetak adalah “Anda memilih yang lain”.

Selain dengan if, pernyataan kondisi di atas bisa juga menggunakan case. Perhatikan contoh:

1: Program Tutorial2_case;

2: var pilih: char;

3: Begin

4:   write(‘Pilih 1 atau 2’); readln(pilih);

5:   case pilih of

6:     ‘1’: write(‘Anda memilih 1’);

7:     ‘2’: write(‘Pilihan anda 2’);

8:     else write(‘Anda memilih yang lain’);

9:   end;

10: End.

Keterangannya gak jauh beda dengan kondisi if kok. Coba amati pada baris ke 9, di sana ada pernyataan “end;”. Pernyataan itu berfungsi untuk menutup pernyataan case yang dimulai pada baris ke-5. Perlu diingat “end” disertai dengan titik hanya untuk diakhir program.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: