Percabangan Pada Bahasa Pemrograman Delphi

Assalamu'alaikum Wr Wb

Selamat datang di web Sibukngoding.com. Pada kesempatan kali ini saya akan menjelaskan tentang fungsi percabangan pada bahasa pemrograman Delphi. Fungsi percabangan sering di pakai dalam bahasa pemrograman manapun tak terkecuali Delphi. Percabangan sendiri merupakan operator yang digunakan untuk menentukan pilihan terhadap beberapa pilihan yang ada. 

Dalam bahasa pemograman Delphi mengenal dua operator per cabangan :

1. Percabangan If

Merupakan operator percabangan yang digunakan untuk menentukan pilihan atas beberapa kondisi yang merupakan syarat terhadap pilihan yang sudah ditentukan.

Ada dua model percabangan if

a. Percabangan Untuk Kondisi Pilihan Tunggal

Merupakan operator percabangan yang digunakan untuk menentukan sebuah pilihan dengan kondisi tunggal

Bentuk Umum

If Syarat then hasil;

Contoh

If Nilai > 80 then keterangan := 'Lulus';

b. Percabangan Untuk Kondisi Majemuk

Merupakan operator percabangan yang digunakan untuk menentukan pilihan dengan kondisi yang harus dipenuhi lebih dari satu.

Bentuk Umum

If Syarat1 then

Hasil1

Else If syarat2 then

Hasil2

Else

……………

……………

end;

Contoh

If  nilai > 80 then Grade := 'A' Else

if nilai > 70  then Grade: = 'B' else

if nilai > 60 then Grade := 'C' else

Grade := 'E'

2. Percabangan Case

Case of adalah merupakan metode lain dari sebuah percabangan, berfungsi sama seperti fungsi if yaitu untuk melakukan seleksi atas beberapa pilihan dengan kondisi sebagai syarat yang harus terpenuhi. Secara fungsi case dan if tidak ada perbedaan tetapi untuk penulisan fungsi case lebih mudah diterapkn untuk pilihan atau kondisi lebih dari satu.

Bentuk Umum fungsi Case OF

Case <variabel> of

<pilihan ke 1> ; hasil 1; <pilihan ke 2>; hasil2; <pilihan ke 3>;hasil3;

<pilihan ke n>; hasiln;

end;

atau fungsi case of bisa juga diberikan else untuk pilihan terakhir. Bentuk Umum

Case <variabel> of

<pilihan ke 1> ; hasil 1; <pilihan ke 2>; hasil2; <pilihan ke 3>;hasil3;

else hasiln;

end;

Contoh :

Case Bilangan of

1 : showmessage('Angka 1');

2: showmessage( 'Angka 2');

3: showmessage( 'Angka 3');

end;

Demikian sedikit penjelasan tentang fungsi Percabangan pada bahasa pemrograman Delphi dan semoga bermanfaat, jika ada pertanyaan bisa ditanyakan lewat kolom komentar. Untuk contoh percabangan pada insya Allah akan saya post pada postingan selanjutnya.

Terimakasih atas kunjungannya, Selamat belajar dan jangan mudah menyerah.

Wassalamu'alaikum Wr Wb