About m3

Tampilkan postingan dengan label Percabangan. Tampilkan semua postingan
Tampilkan postingan dengan label Percabangan. Tampilkan semua postingan

Minggu, 06 Desember 2009

Percabangan

Percabangan


Salah satu dari tiga konstruksi fundamental adalah percabangan/branching. Dalam pascal, percabagan menggunakan syntax if then else dan case of.

Syntax:
IF kondisi THEN
BEGIN
...
END;
Dengan ELSE:
IF kondisi [and] kondisi [or] kondisi THEN
BEGIN
...
END {memang tanpa titik koma di sini; sebelum ELSE tidak perlu titik koma!!!}
ELSE
BEGIN
...
END;

Apabila kondisi terpenuhi, maka program akan menjalankan perintah yang ada setelah THEN. Tapi jika kondisi tidak terpenuhi, maka program akan menjalankan program setelah ELSE.

Contoh penggunaan:
Var i: integer;
Begin
Write('Masukkan bilangan antara 1-100: '); readln(i);
If i<=50 then
Write('bilangan kecil')
Else
Write('bilangan besar');
End