Contoh Program sederhana PL/SQL

Contoh Program Oracle PL/SQL

PROGRAM 1

Set serveroutput on

Declare

S int;

L int;

Begin

S := 6;

L:=s*s;

Dbms_output.put_line('sisi'||s);

Dbms_output.put_line('luas'||L);

End;

PROGRAM 2

Set serveroutput on

Declare

J int;

Begin

J:=0;

Loop;

J:=j+1;

Dbms_output.put_line('test looping');

exit when j = 10;

end loop;

end;

  

Logika Program :

PROGRAM 1

Set serveroutput on

è  berguna untuk menampilkan output. Jika kata ‘on’ digantikan dengan ‘off’ maka output tidak  akan muncul.

Declare

S int;

L int;

è  untuk mendeklarasikan variable S dan L yang bertipe data integer.

Begin

S:= 6;

L:=s*s;

è artinya variable S memiliki nilai 6 dan variable S diartikan sebagai rumus yang berisikan variable s dikali variable s.

Dbms_output.put_line (‘sisi ‘||s);

Dbms_output.put_line (‘luas ‘||L);

End;

è  perintah untuk mencetak output yang telah dijalankan oleh program. 

1. Menghitung Keliling Persegi Panjang.

declare

pertama float(5);

kedua float(5);

kel float(5);

luas float(5);

begin

pertama:=&masukkan_panjang;

kedua :=&masukkan_lebar;

kel :=(2*pertama) + (2*kedua);

luas :=pertama*kedua;
dbms_output.put_line(‘Persegi panjang ini kelilingnya ‘ || kel || ‘ cm ‘ || ‘dan Luasnya ‘ || luas || ‘ cm’);
end;

/

************************************************************************************************

2. Menentukan Jenis Kelamin Berdasarkan inputan nama.

declare

nama varchar(20);

jk char(2);

begin

nama:= ‘&inputnama’;

jk:=’&JK’;

if(jk=’p’ or jk=’P') then

dbms_output.put_line(‘Selamat Datang Neng ‘ || nama);

else if(jk=’l’ or jk=’L') then

dbms_output.put_line(‘Selamat Datang Kang ‘ || nama);

else

dbms_output.put_line(‘Maaf…., jenis kelamin anda tidak terdaftar dalam database. Anda BANCI yaahhh…’);

end if;

end if;

end;

/

************************************************************************************************

3. Menentukan Total Bayar

declare

nama varchar(25);

harga float(15);

diskon float(3);

total float(15);

begin

nama:=’&input_nama’;

harga:=&harga_buku;

diskon:=&diskon;
total:=harga -((diskon/100)*harga);

dbms_output.put_line(‘Selamat Datang ‘ || nama);

dbms_output.put_line(‘Harga yang harus dibayar ‘ || total);

if (diskon >=25) then

dbms_output.put_line(‘Wow baeee kalleeee’);

else

dbms_output.put_line(‘Beee… pelitnyaaaaaa’);

end if;
end;

/

************************************************************************************************

4. Menentukan Tanggal, Bulan, Dan Tahun saat ini / sekarang

declare

begin

dbms_output.put_line(‘Sekarang hari ‘ || to_char(sysdate, ‘DAY’)|| ’ Tanggal ‘ || to_char(sysdate,’DD’) ||  ’ Bulan ‘ || to_char(sysdate,’MONTH’) ||  ’ Tahun ‘ || to_char(sysdate,’YYYY’));

end;

/

************************************************************************************************

5. Membuat Deretan Fibbonacci

declare

x number(5);

y number(5);

fib number(5);

input number(5);
begin

x:=1;

y:=1;

input:=&masukkan_batas;

input:=input-2;

dbms_output.put_line(1);

dbms_output.put_line(1);

for i IN 1..input LOOP

fib:=x+y;

x:=y;

y:=fib;

dbms_output.put_line(fib);

END LOOP;

end;

/

************************************************************************************************

6. Membuat urutan bilangan, dimana jumlah bilangan yang nampil tidak lebih dari bilangan inputan.

declare

i number(5);

input number(5);

begini:=1;

input:=&masukkan_angka;

dbms_output.put_line(1);

LOOP
i:=i+3;

dbms_output.put_line(i);

exit when i > input;

end loop;

end;

/

referensi :
http://blog.politekniktelkom.ac.id/30109334/2012/06/14/contoh-sederhana-blok-plsql/
http://ameliabelindasilviana.blogspot.com/2012/03/contoh-program-oracle-plsql.html