MODUL 4: TEKNIK PERCABANGAN

Selain pernyataan if dengan dua kondisi, suatu pernyataan if dapat mengandung pernyataan if yang lain. Bentuk seperti ini biasa disebut if bersarang. Sebah program mengijinkan blok percabangan if di dalam blok percabangan lainnya, dan tidak membatasi jenis percabangan apa yang boleh berada dalam percabangan lainnya

Pernyataan case merupakan alternatif dari pernyataan if untuk masalah dengan pilihan berganda. pada masalah tertentu, case lebih memberikan kejelasan daripada if, namun perlu diketahui bahwa semua persoalan yang dapat ditangani dengan case bisa ditangani oleh if, tetapi tidak sebaliknya, Case biasanya digunakan untuk memilih diantara lebih dari 2 pilihan. Case digunakan untuk menggantikan struktur if-else-if dimana kondisinya mengacu pada variabel yang sama.

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

Jadi yang diatas itu adalah dasar teori mengenai Teknik Percabangan. OK lanjut sekarang saatnya praktek. Disini aku merasa tertantang untuk membuat program setelah membaca soal Tugas no 2 halaman 15 di modul praktikum. Soalnya kayak gini:

"Buatlah program penentuan bonus bagi pembeli berdasarkan total pembelian yang dimasukkan. Dimana kriterianya adalah jika total pembelian lebih dari 100.000 maka pembeli mendapatkan diskon 10%. Jika total pembelian kurang dari 100.000 dan lebih dari 50.000 maka pembeli mendapatkan sebuah piring cantik. Jika total pembelian kurang dari 50.000 dan lebih dari 10.000 maka pembeli mendapatakan sebuah gelas cantik. Selanjutnya jika total pembelian kurang dari 10.000 maka pembeli tidak akan mendapatkan bonus".

Sudahkah anda terbayang pemirsa???? hehehehe,, 

Langsung aja deh, ini code yang udah aku buat:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a: integer;

begin
  write('PROGRAM PENENTUAN BONUS');
  writeln;
  writeln;
  write('By: Dewa Gde Ari Wahyudi');
  writeln;
  writeln;
  write('========================');
  writeln;
  writeln;
  write('Tekan ENTER untuk melanjutkan');  readln;
  writeln;
  write('Masukkan Total Harga Pembelian: '); readln(a);
  if a >= 100000 then
  begin
  Writeln;
  write('Anda Mendapatkan Diskon 10%')
  end
  else if (a <= 100000)and (a >= 50000)
  then
  begin
  writeln;
  write('Anda Mendapatkan Sebuah Piring Cantik')
  end
  else if (a >= 10000) and (a <=50000)
  then
  begin
  writeln;
  write('Anda Mendapatkan Sebuah Gelas Cantik')
  end
  else
  begin
  writeln;
  write('Anda Tidak Mendapatkan Bonus');
end;
readln;
end.

Ini penampakannya pemirsahhhh...

Kalau mau contoh program yang menggunakan teknik percabangan lainnya bisa dilihat disini