PERNYATAAN IF:
Bentuk umum:
if
ekspresi/kondisi then pernyataan_1 else pernyataan_2;
Contoh pernyataan if:
if nilai >= 65
then writeln('Tuntas')
else
writeln('Tidak Tuntas');
nilai >= 65 adalah suatu ekspresi
aritmatik, jika ekspresi itu bernilai true maka ditampilkan Tuntas, tetapi jika bernilai false maka ditampilkan
Tidak Tuntas.
Perlu diperhatikan bahwa dalam Pascal, sebelum
else tidak perlu ditambahkan tanda ';'
Contoh dalam program:
Program ketuntasan_1;
uses crt;
Var nilai:real;
Begin
clrscr;
writeln('Masukkaan nilai Anda = ');readln(nilai);
if nilai >= 65 then
writeln('Tuntas')
else
writeln('Tidak Tuntas');
readln;
End.
Menampilkan lebih dari satu komentar/pernyatan dalam tampilan
Program ketuntasan_2;
uses crt;
Var nilai:real;
Begin
clrscr;
writeln('Masukkaan
nilai Anda = ');readln(nilai);
if nilai >= 65 then
Begin
writeln('Tuntas');
writeln('Selamat Anda
Berhasil')
End
else
Begin
writeln('Tidak Tuntas');
writeln('Selamat Menempuh Remidi');
End;
readln;
End.
IF Bersarang
Program di atas hanyalah untuk satu pernyataan if saja, artinya
jika ekspresi yang pertama bernilai True, maka hanya akan menghasilkan satu
konsekuensi lain saja. Pernyataan if
juga dapat digunakan untuk menghasilkan lebih dari satu konsekuensi.
Contoh:
if bil > 0 then writeln('Bilangan Positif')
else if bil < 0
then writeln('Bilangan Negatif')
else
writeln('Bilangan itu Nol');
Penyataan di atas sebenarnya juga dapat ditulis:
if bil > 0 then writeln('Bilangan Positif');
if bil < 0 then writeln('Bilangan Negatif');
if bil = 0 then writeln('Bilangan itu Nol');
Contoh dalam Program:
Program Bilangan;
uses crt;
Var bil:real;
Begin
clrscr;
writeln('Masukkan
sembarang bilangan = ‘);readln(bil);
if bil > 0 then
writeln('Bilangan Positif')
else if bil < 0 then
writeln('Bilangan Negatif')
else writeln('Bilangan itu Nol');
readln;
End.
Program GanjilGenap:
uses crt;
Var bil:integer;
Begin
clrscr;
writeln('Masukkan
bilangan bulat sembarang');readln(bil);
if bil mod 2 = 0 then
writeln('Bilangan ',bil,'bilangan
genap')
else
writeln('Bilangan
',bil,'bilangan ganjil');
readln;
End.
Latihan:
1. Buatlah program untuk menentukan
keadaan suhu, jika suhu lebih dari 24 maka suhu panas jika suhu kurang dari
atau sama dengan 24, maka suhu dingin
2. Buatlah program untuk menentukan apakah suatu
bilangan bulat itu habis dibagi 3 atau tidak.
Contoh tampilan:
Masukkan sembarang bilangan bulat = 9
Bilangan 9 habis dibagi 3.
3. Membandingkan buah bilangan, misal: a dan b jika a
< b, maka ditampilkan a kurang dari b,
jika a > b, maka ditampilkan
a lebih dari b, jika a = b, maka ditampilkan a sama dengan b.
4. Buatlah program untuk menentukan saluran televise,
jika Pilihan = 1 --> TVRI, jika Pilihan = 2 --> TV ONE, jika pilihan
= 3 --> TRANS TV, jika Pilihan = 4 --> TPI, dan jika dipilih tombol lain, maka
ditampilkan pesan: tidak ada siaran.