MODUL 3: TEKNIK PERCABANGAN (BAGIAN 1)

Percabangan if merupakan sebuah blok program yang menyatakan bahwa sebuah aksi akan dijalankan jika kondisi percabangan dipenuhi, jika tidak dipenuhi maka aksi tidak akan dijalankan. Percabangan if biasa digunakan untuk mengerjakan aksi yang memilik syarat tertentu untuk menjalankannya. Pernyataan if diklasifikasikan ke dalam tiga bagian yaitu:

1. Pernyataan if dengan satu kondisi (if tunggal)
2. Pernyataan if dengan dua kondisi (if-else)
3. Pernyataan if bersarang (if di dalam if)

Pernyataan if tunggal hanya melibatkan satu kondisi yang akan diperiksa. Apabalia kondisi yang diperiksa bernilai benar, maka program akan mengeksekusi bagian yang berada dalam blok. Jika sebaliknya, maka program akan mengabaikan statemen di dalam blok dan langsung melanjutkan eksekusi berikutnya

Pernyataan if dengan dua kondisi (if-else) digunakan untuk menyatakan pernyataan percabangan dua kondisi dimana ada dua blok aksi yang dipilih untuk dikerjakan jika syarat kondisi aksi terpenuhi. Saat pembacaan program sampai pada blok if-else, maka akan dilakukan pemeriksaan terhadap syarat kondisi percabangan yang ada pada deklarasi if, jika syarat dipenuhi maka yang akan dijalankan adalah aksi yang ada di dalam blok if. Tapi jika syarat tidak dipenuhi maka aksi yang dikerjakan adalah yang ada di dlaam blok else

==================================================================

Ok, sebagai latihan di modul 2 ini, aku mau coba menyalin program coding yang ada di halaman 12 modul praktikum,"Menentukan Kubus dan Bukan Kubus dengan If"

==========================================================

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var s1,s2,s3:integer;
begin
write('Program Menentukan Kubus dan Bukan Kubus');
writeln;
writeln;
write('By: I Dewa Gde Ari Wahyudi');
writeln;
writeln;
write('==========================');
writeln;
writeln;
write('Masukkan sisi pertama  : '); readln(s1);
write('Masukkan sisi kedua    : '); readln(s2);
write('Masukkan sisi ketiga   : '); readln(s3);
writeln;
if (s1=s2) and (s2=s3)then
begin
writeln('Termasuk Kubus');
end
else
begin
writeln('Bukan Kubus');
end;
readln;
end.

=============================================================

Penampakan 1

Penampakan 2