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;
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 b\perintah yang ada setelah THEN. Tapi jika kondisi tidaki 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.
Begin
Write('Masukkan bilangan antara 1-100: '); readln(i);
If i<=50 then
Write('bilangan kecil')
Else
Write('bilangan besar');
End.
Penggunaan CASE … OF: Penggunaan Case OF ini lkebih berguna jika kondisi yang dibandingkan berupa range. Lihat contoh berikut:
CASE nilai OF
80..100 : grade:='A';
70..79 : grade:='B';
55..69 : grade:='C';
45-54 : grade:='D';
ELSE grade:='E';
END;
0 comments:
Post a Comment