Contoh Program PLSQL (Bag.2)

If .. Then .. Else Mencari Nilai

Set serveroutput on

Declare

Nilai integer;

Begin

Nilai := 55;

If nilai > 85 then

Dbms_output.put_line (‘Nilai anda ‘ || Nilai || ‘, anda mendapat A’);

Elsif nilai > 70 then

Dbms_output.put_line (‘Nilai anda ‘ || Nilai || ‘, anda mendapat B’);

Else

Dbms_output.put_line (‘Nilai anda ‘ || Nilai || ‘, anda mendapat C’);

End if;

End;

Output :

Nilai anda 55, anda mendapat C

LOGIKA :

Program diatas adalah untuk mencari bobot yang sesuai dengan nilai yang didapat dengan perintah kondisi. Nilai bertipe integer. Jika nilai lebih dari 85 maka mendapat A. Jika nilai lebih dari 70 maka mendapat B. Jika selain itu, maka mendapat C. Digunakan set serveroutput on untuk menampilkan output programnya.

IF .. Then .. Else Mencari Bilangan Ganjil / Genap

Set serveroutput on

Declare

BIL integer;

Begin

BIL := &BIL;

If mod (BIL, 2) = 0 then

Dbms_output.put_line (‘Bilangan ‘ || BIL || ‘ adalah bilangan genap’);

Else

Dbms_output.put_line (‘Bilangan ‘ || BIL || ‘ adalah bilangan ganjil’);

End if;

End;

Output :

Enter value for bil : 121

Old      4: BIL:=&BIL;

New    4: BIL:=121;

Bilangan 121 adalah bilangan ganjil

LOGIKA :

Program ini adalah untuk mencari bilangan itu bilangan genap atau ganjil dengan menggunakan perintah if. BIL bertipe data integer. Pada saat di run, user diminta memasukkan nilai dari BIL. Jika mod berkelipatan dua dari nilai awalnya (0), maka bilangan itu adalah bilangan genap, jika selain itu maka bilangan ganjil. Digunakan set serveroutput on untuk menampilkan output programnya.

If .. Then .. Else Mencari Bulan

Set serveroutput on

Declare

B integer;

BULAN varchar(9);

Begin

B := &B;

If B = 1 then

BULAN := ‘Januari’;

Elsif B = 2 then

BULAN := ‘Februari’;

Elsif B = 3 then

BULAN := ‘Maret’;

Elsif B = 4 then

BULAN := ‘April’;

Elsif B = 5 then

BULAN := ‘Mei’;

Elsif B = 6 then

BULAN := ‘Juni’;

Elsif B = 7 then

BULAN := ‘Juli’;

Elsif B = 8 then

BULAN := ‘Agustus’;

Elsif B = 9 then

BULAN := ‘September’;

Elsif B = 10 then

BULAN := ‘Oktober’;

Elsif B = 11 then

BULAN := ‘November’;

Else

BULAN := ‘Desember’;

End if;

Dbms_output.put_line (‘Bulan ke ‘ || B || ‘ adalah bulan ‘ || BULAN);

End;

Output :

Enter value for b: 9

Old      5: B:=&B;

New    5: B:=9;

Bulan ke 9 adalah bulan September

LOGIKA :

Program diatas adalah untuk mengetahui nama bulan berdasarkan urutan angka bulan tersebut. Dimulai dari Januari – Desember. B bertipe integer, BULAN bertipe varchar sebanyak 6 karakter. Pada saat di run, user diminta memasukkan angka antara 1-12. Jika B = 1 maka BULAN adalah Januari. Jika B = 2 maka BULAN adalah Februari. Begitu seterusnya hingga Desember. Digunakan set serveroutput on untuk menampilkan output programnya.