ALoKi Blogger's

                            PEMILIHAN DAN PERULANGAN

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');

untuk Modul Lebih Lengkapnya Kamu Bisa download dibawah ini:

Modul Pemrograman Pascal Lengkap

Semoga bermanfaat.................  ^_^