Contoh Program PLSQL (Bag.5)

Function Tulis

Create or replace function tulis return varchar2 as

Z varchar2(20);

Begin

Z := ‘HALO SEMUA’;

Return Z;

End;

Set serveroutput on

Declare

Z varchar2(20);

Begin

Z := tulis;

Dbms_output.put_line(Z);

End;

Output :

HALO SEMUA

LOGIKA :

Program diatas adalah untuk membuat tulisan dengan menggunakan function. Dimana Z bertipe data varchar2. Fungsi pertama dibuat pada blok program pertama. Pada blok program kedua, tinggal memanggil fungsi yang telah dibuat pada blok pertama dengan menuliskan code Z:=tulis dan dbms_output,put_line(Z) sebagai outputnya.


Function Pangkat

Create or replace function pangkat (bil integer, n integer) return integer as

Hasil integer(10);

I integer;

Begin

Hasil = 1;

For I in 1..n loop

Hasil := hasil*bil;

End loop;

Return hasil;

End;

Set serveroutput on

Declare

H integer;

Begin

H := pangkat (2,3);

Dbms_output.put_line (‘Hasil : ‘ || to_char(H));

End;

Output :

Hasil : 8

LOGIKA :

Program diatas adalah untuk mencari pangkat dari suatu bilangan dengan menggunakan function dalam PL/SQL. Tipe data bil, n, Hasil dan H adalah integer. Pada blok program pertama dijelaskan tentang pembuatan rumus untuk bilangan berpangkat. Ditunjukkan dengan :

Hasil = 1;

For I in 1..n loop

Hasil := hasil*bil;

Sedangkan pada blok program yang kedua, dilakukan pemanggilan parameter pada blok pertama dan menentukan bilangan dan pangkatnya. Yaitu pada :

H := pangkat (2,3);

Dbms_output.put_line (‘Hasil : ‘ || to_char(H));

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.