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));