Contoh Program PLSQL (Bag.1)

Record Kata

Set serveroutput on

Declare

A varchar;

Begin

A := Test;

Dbms_output.put_line (to_char(A));

End;

Output :

Test

LOGIKA :

Program diatas adalah untuk membuat output program dengan menggunakan penyimpanan record. Dengan A bertipe varchar. Digunakan set serveroutput on untuk menampilkan output programnya.

Record Dengan Tambahan Kata Lain Pada Outputnya

Set serveroutput on

Declare

R integer;

S integer;

Begin

R := 112123;

S := 332321;

Dbms_output.put_line (‘Nilai R Adalah = ‘ || (to_char(R)));

Dbms_output.put_line (‘Nilai R Adalah = ‘ || (to_char(S)));

End;

Output :

Nilai R Adalah = 112123

Nilai S Adalah = 332321

LOGIKA :

Program diatas adalah untuk membuat output program dengan menggunakan penyimpanan record. Dengan R dan S bertipe integer. Outputnya ditambahkan dengan kata-kata lain dengan menggunakan tanda kutip di dalam kurung setelah dbms_output.put_line. Digunakan set serveroutput on untuk menampilkan output programnya.

Record Persegi Panjang

Set serveroutput on

Declare

P integer;

L integer;

K integer;

Begin

P := 8;

L := 5;

K := (P+L)*2;

Dbms_output.put_line (‘Keliling Persegi Panjang Dengan Panjang 8 dan Lebar 5 Adalah = ‘ || (to_char(K)));

End;

Output :

Keliling Persegi Panjang Dengan Panjang 8 dan Lebar 5 Adalah = 26

LOGIKA :

Program diatas adalah untuk memencari keliling persegi panjang  menggunakan penyimpanan record. Dengan P, L dan K bertipe integer. P dan L menunjukkan valuenya. Sedangkan K menunjukkan rumusnya. Digunakan set serveroutput on untuk menampilkan output programnya.