Percabangan dengan PL/SQL

Hello Everyone, pembahasan selanjutnya mengenai PL/SQL. Jenis percabangan yang digunakan adalah IF..ELSE dan berikut adalah contohnya.

SET SERVEROUTPUT ON

DECLARE

awal INTEGER;

mulai INTEGER;

akhir INTEGER;

BEGIN

awal:=0;

mulai:=&mulai;

akhir:=&akhir;

IF mulai > akhir THEN

awal:=akhir;

akhir:=mulai;

mulai:=awal;

awal:=0;

END IF;

FOR awal IN mulai..akhir LOOP

IF MOD(awal,2)=0 THEN

DBMS_OUTPUT.PUT_LINE(awal || ' Bilangan Genap');

ELSE

DBMS_OUTPUT.PUT_LINE(awal || ' Bilangan Ganjil');

END IF;

END LOOP;

END;

Kemudian berikut adalah penjelasan program di atas.

SET SERVEROUTPUT ON

Mengatur library ServerOutput menjadi On atau siap untuk digunakan.

DECLARE

awal INTEGER;

mulai INTEGER;

akhir INTEGER;

Mendeklarasikan variable awal, mulai, akhir dengan tipe integer.

BEGIN

awal:=0;

Mengisi variable result sama dengan 0(nol).

mulai:=&mulai;

akhir:=&akhir;

Mendeklarasikan perintah untuk input variable mulai dan akhir.

IF mulai > akhir THEN

awal:=akhir;

akhir:=mulai;

mulai:=awal;

awal:=0;

END IF;

Melakukan pengecekan apakah terjadi kesalahan input yaitu nilai mulai lebih besar dari nilai akhir, maka akan ditukar kedua nilai dari variable mulai dan akhir.

FOR awal IN mulai..akhir LOOP

IF MOD(awal,2)=0 THEN

DBMS_OUTPUT.PUT_LINE(awal || ' Bilangan Genap');

ELSE

DBMS_OUTPUT.PUT_LINE(awal || ' Bilangan Ganjil');

END IF;

END LOOP;

END;

Melakukan perulangan dari nilai variable mulai sampai nilai variable akhir. Didalam perulangan dilakukan pengecekan apakah nilai tersebut adalah bilangan genap yang dimana hasil bagi nilai tersebut dengan bilangan dua adalah sama dengan 0(nol), sedangkan jika tidak sama dengan 0(nol), maka bilangan tersebut adalah bilangan ganjil.

Hasilnya seperti gambar di bawah ini.