Pascal‎ > ‎

Percabangan


Kodesumber

Perhatikan kode-sumber percabangan di bawah ini:


{
demo penggunaan begin didalam if,
perhatikan juga bahwa
sebelum else TIDAK ADA tanda titik_koma [;]
}
var
cinta:boolean;
begin
cinta:=true;

if(cinta) then
begin
writeln('''''''');
writeln('Alhamdulillah ...!!!');
end
else
writeln('dukun bertindak!');

end.

Penjelasan:

Kodesumber program pascal di atas berguna untuk menampilkan tulisan Alhamdulillah ... !!! di layar jika variable cinta bernilai TRUE dan menampilkan di layar tulisan dukun bertindak! jika variable cinta bernilai false.

Tugas:

  • Modifikasi kode di atas dengan mengubah nilai cinta menjadi false !
  • Modifikasi kode di atas sehingga jika cinta, tulisan di layar adalah membaca Al-Qur'an
  • Pelajari kode CASE..OF di bawah ini !
  • Pelajari kode mark_if.pas dan bandingkan dengan mark_co.pas !
  • (Advance) Pelajari mark_val.pas HANYA jika Anda telah mengerti konsep parameter ! Jika Anda baru belajar pascal, Anda wajar untuk tidak mengerti kodesumber ini.

Catatan Tambahan:

  • Perhatikan bahwa untuk menampilkan tanda kutip satu di layar, digunakan dua buah tanda kutip satu.


ċ
CASEOF1.PAS
(0k)
Muhammad Jazman,
5 Feb 2011, 09:47
ċ
IF_1.PAS
(0k)
Muhammad Jazman,
5 Feb 2011, 09:46
ċ
mark_co.pas
(0k)
Muhammad Jazman,
5 Feb 2011, 10:00
ċ
mark_if.pas
(0k)
Muhammad Jazman,
5 Feb 2011, 10:00
ċ
mark_val.pas
(0k)
Muhammad Jazman,
5 Feb 2011, 10:00
Comments