Tutorial Delphi

Pengambilan keputusan atau yang disebut juga Decision Making akan sangat kita perlukan dalam membangun aplikasi dengan bahasa pemrograman apapun. Saya sendiri sering menyebut istilah ini dengan penyeleksian kondisi. Jika ini maka itu, jika itu maka ini. kira kira begitulah logika dari Pengambilan keputusan ini yang dalam bahasa pemrograman pascal dikenal dengan istilah if then else.

Secara umum, Pascal mengenal dua buah metode decision making yang umum digunakan yaitu If then dan case of. Baiklah, Mari kita bahas satu persatu. Enjoy!

1. If Then

Adalah sebuah pengambilan keputusan dimana sebuah atau beberapa kondisi didefinisikan diawal pengecekan. sedangkan aksi akan dilakukan jika nilai return True. jika nilai False, maka aksi lain akan dieksekusi. Berikut adalah contohnya

program belajar;

var
nilaib : Integer;

begin
nilaib := 5;
if (nilaib<=10) then
writeln('Nilai B Lebih Kecil dari 10');
end.

Selain itu kita juga dapat menggunakan sub rutin percabangan dari If then else ini. berikut contohnya.

program belajar;

var
nilaib : Integer;

begin
nilaib := 12;
if (nilaib<=10) then
writeln('Nilai B Lebih Kecil dari 10') else
writeln('Nilai B Lebih Besar dari 10');
end.

Perlu diketahui bahwa jika ada lebih dari satu baris aksi (beberapa aksi/lebih dari 1) akan dilakukan jika kondisi terpenuhi maka harus diawali dengan begin dan diakhiri dengan end Jika tidak maka hanya aksi pertama yang akan dieksekusi. seperti contoh script berikut

program belajar;

var
nilaib : Integer;

begin
nilaib := 12;
if (nilaib<=10) then
 begin
 writeln('Nilai B Lebih Kecil dari 10'); 
 writeln('Ini Aksi Kedua');
 writeln('Ini Aksi Ketiga');
 end else
 begin
 writeln('Ini Aksi Pertama');
 writeln('Nilai B Lebih Besar dari 10');
 writeln('Ini Aksi Ketiga');
 end;
end.

2. Case Of

Berbeda dengan If then, Decision making jenis ini akan melakukan pengecekan terhadap suatu nilai dimana aksi akan diambil jika nilai tersebut sesuai dengan kondisi yang telah ditentukan. Berikut contohnya suatu misal dalam program sederhana untuk mengecek grade nilai.

program belajar;

var
nilaib : integer;

begin
nilaib := 20;

case (nilaib) of
1..20 : writeln('Nilai yang Buruk Sekali');
21..40 : writeln('Nilai yang Buruk');
41..50 : writeln('Nilai yang Memprihatinkan');
51..60 : writeln('Nilai yang Lumayan');
61..70 : writeln('Nilai yang Cukup Baik');
71..80 : writeln('Nilai yang Baik');
81..90 : writeln('Nilai yang Baik Sekali');
91..100 : writeln('Nilai yang Sangat Memuaskan');
end;
end.