Contoh Program PLSQL (Bag.4)

Procedure Tambah Dua

Create or replace procedure tambah_dua (a integer) as

Hasil integer(5);

Begin

Hasil := a+2;

Bdms_output.put_line (‘Hasil Akhir = ‘ || hasil);

End;

Execute tambah_dua(10);

Output :

Hasil Akhir = 12

LOGIKA :

Program diatas adalah untuk mencari nilai suatu bilangan setelah ditambah 2. a dan hasil bertipe data integer. Rumusnya adalah Hasil := a+2. Jika di execute dengan value 10, maka output yang akan tampil adalah 12. 

Procedure Luas Persegi Panjang

Create or replace procedure luas_persegi_panjang as

P number(5);

L number(5);

LUAS number(10);

Begin

P := 8;

L := 4;

LUAS := P*L;

Dbms_output.put_line (‘Luas Persegi Panjang = ‘ || LUAS);

End;

Execute luas_persegi_panjang;

Output :

Luas Persegi Panjang = 32

LOGIKA :

Program diatas adalah untuk mencari luas persegi panjang dengan menggunakan prosedur. P, L dan LUAS bertipe data number. P dan L merupakan nilai yang akan dihitung, sedangkan LUAS adalah rumusnya. Setelah programnya selesai, Run program dengan menggunakan Execute. Digunakan set serveroutput on untuk menampilkan output programnya.

Procedure Keliling Lingkaran

Create or replace procedure keliling_lingkaran as

R number(5);

K number(10);

Begin

R := 21;

K := 2*((22/7)*R);

Dbms_output.put_line (‘Keliling Lingkaran = ‘ || K);

End;

Execute keliling_lingkaran;

Output :

Keliling Lingkaran = 132

LOGIKA :

Program diatas adalah untuk mencari keliling lingkaran dengan menggunakan prosedur. R (jari-jari) dan K (keliling) bertipe data number. R merupakan nilai yang akan dihitung, sedangkan K adalah rumusnya. Setelah programnya selesai, Run program dengan menggunakan Execute. Digunakan set serveroutput on untuk menampilkan output programnya.