Statemen IF akan bercabang sesuai
dengan hasil dari operasi boolean (true & false). Pertama-tama kita akan pelajari percabangan
satu arah :
if EkspresiBoolean then
StatemenTrue;
Bila ekspresi boolen bernilai benar
(true), maka statemen akan dieksekusi. Bila bernilai salah maka tidak akan
dieksekusi. Berikut contohnya :
uses wincrt;
var a :
integer;
begin
a := 1;
write('belajar');
if a = 1 then
write(' bersama');
end.
Hasil eksekusi:
belajar bersama
belajar bersama
Penjelasan:
Diawal diberikan nilai pada a yaitu 1. Setelah dilakukan output (‘belajar’), nilai a diuji, karena nilai a bernilai benar (a=1) maka dilakukan output (‘ bersama’).
Diawal diberikan nilai pada a yaitu 1. Setelah dilakukan output (‘belajar’), nilai a diuji, karena nilai a bernilai benar (a=1) maka dilakukan output (‘ bersama’).
uses wincrt;
var a :
integer;
begin
a := 0;
write('belajar');
if a = 1 then
write(' bersama');
end.
Hasil eksekusi:
belajar
belajar
Penjelasan:
Diawal diberikan nilai pada a yaitu 1. Setelah dilakukan output (‘belajar’), nilai a diuji, karena nilai a bernilai salah (a=0) maka program melewati statemen if dan selesai dieksekusi.
Diawal diberikan nilai pada a yaitu 1. Setelah dilakukan output (‘belajar’), nilai a diuji, karena nilai a bernilai salah (a=0) maka program melewati statemen if dan selesai dieksekusi.
Bila statemen IF hanya mempunyai
satu statemen saja, tidak diperlukan penanda (begin-end). Tapi bila lebih maka
harus menggunakan begin-end.
uses wincrt;
var a :
integer;
begin
a := 1;
write('belajar');
if a = 1 then begin
write(' bersama');
write(' sahabat');
end;
end.
Hasil eksekusi:
belajar bersama sahabat
belajar bersama sahabat
Penjelasan:
Diawal diberikan nilai pada a yaitu 1. Setelah dilakukan output (‘belajar’), nilai a diuji, karena nilai a bernilai benar (a=1) maka dilakukan output (‘ bersama’) dan output (‘ sahabat’).
Diawal diberikan nilai pada a yaitu 1. Setelah dilakukan output (‘belajar’), nilai a diuji, karena nilai a bernilai benar (a=1) maka dilakukan output (‘ bersama’) dan output (‘ sahabat’).
if EkspresiBoolean then
StatemenTrue
else
StatemenFalse;
Bila ekspresi boolean
menghasilkan nilai salah (false), maka akan dieksekusi statemen setelah else.
Harus diperhatikan bahwa tanda titik koma (;) sebelum else harus dihilangkan.
uses wincrt;
var a :
integer;
begin
a := 0;
write('belajar');
if a = 1 then begin
write(' bersama');
write(' sahabat');
end
else begin
write(' pascal');
write(' bersama keluarga');
end;
end.
