Catatan
CREATE OR REPLACE PROCEDURE luas_segitiga AS
alas Number(5);
tinggi Number(5);
luas Number (10);
Begin
alas :=3;
tinggi :=6;
luas :=(alas*tinggi)/2;
dbms_output.put_line('Luas='||luas);
end;
/
Jenis2 parameter:
1 paramater input
parameter masukan ditandai dengan kata IN
CREATE OR REPLACE PROCEDURE tambah_dua(a IN INTEGER)AS
hasil integer(5);
begin
hasil:=a+2;
dbms_output.put_line('hasil akhir'||hasil);
end;
CREATE OR REPLACE PROCEDURE cek_prima(bil IN INTEGER)AS
prima boolean :=true;
J Integer;
Begin
if bil<=1 then
prima :=False;
end if;
for J IN 2..(bil/2)LOOP
if mod(bil.2)=0 then
prima :=false;
exit;
end if;
end loop;
if prima then
dbms_output.put_line(bil ||'merupakan bilngan prima');
else
dbms_output.put_line(bil ||'bukan bilngan prima');
end if;
end;
/
2. Parameter keluaran
parameter keluaran ditandai dengan kata OUT
CREATE OR REPLACE PROCEDURE tambah10(bil IN INTEGER, x OUT INTEGER)AS
BEGIN
X:=bil+10;
end;
/
set serveroutput on
declare
hasil integer;
begin
tambah10(5, hasil);
dbms_output.put_line('hasilnya='||hasil);
end;
/
latihan
CREATE OR REPLACE PROCEDURE luassegitiga(x IN INTEGER, y IN INTERGER, Z OUT INTEGER)AS
Begin
Z:=(x*y)/2;
end;
/
set serveroutput on
declare
hasil integer;
BEGIN
luassegitiga(5,4,5)
dbms_output.put_line('hasil='||hasil);
END
/
CREATE OR REPLACE PROCEDURE KELLINGKARAN(R IN OUT INTEGER) AS
BEGIN
R:= 2*3.14*R;
END;
/
Function
CREATE OR REPLACE FUNCTION teks RETURN VARCHAR2 AS
S VARCHAR2(20);
BEGIN
S:='TEKS BIASA';
RETURN S
END;
/
SET SERVEROUTPUT ON
SELECT TEKS FROM DUAL;
TEKS
--------------------------
TEKS BIASA
CREATE OR REPLACE FUNCTION CHECK_PRIMA(BIL INTEGER)
RETURN BOOLEAN AS
PRIMA BOOLEAN:-TRUE;
J INTEGER
TUGAS
1. jelaskan perbedaan antara prosedure dengan fungsi
2. Buat fungsi/prosedur yang bisa menampilkan pesan bahwa bilangan genap atau ganjil
3. buat fungsi/prosedur untuk menghitung jumlah panjang karakter nama yang diinputkan!
Handle kesalahan jika yang dimasukkan bukan merupakan karakter
dikumpulkan : wagast85@yahoo.com
maks 4 oktober 2011
CREATE OR REPLACE PROCEDURE luas_segitiga AS
alas Number(5);
tinggi Number(5);
luas Number (10);
Begin
alas :=3;
tinggi :=6;
luas :=(alas*tinggi)/2;
dbms_output.put_line('Luas='||luas);
end;
/
Jenis2 parameter:
1 paramater input
parameter masukan ditandai dengan kata IN
CREATE OR REPLACE PROCEDURE tambah_dua(a IN INTEGER)AS
hasil integer(5);
begin
hasil:=a+2;
dbms_output.put_line('hasil akhir'||hasil);
end;
CREATE OR REPLACE PROCEDURE cek_prima(bil IN INTEGER)AS
prima boolean :=true;
J Integer;
Begin
if bil<=1 then
prima :=False;
end if;
for J IN 2..(bil/2)LOOP
if mod(bil.2)=0 then
prima :=false;
exit;
end if;
end loop;
if prima then
dbms_output.put_line(bil ||'merupakan bilngan prima');
else
dbms_output.put_line(bil ||'bukan bilngan prima');
end if;
end;
/
2. Parameter keluaran
parameter keluaran ditandai dengan kata OUT
CREATE OR REPLACE PROCEDURE tambah10(bil IN INTEGER, x OUT INTEGER)AS
BEGIN
X:=bil+10;
end;
/
set serveroutput on
declare
hasil integer;
begin
tambah10(5, hasil);
dbms_output.put_line('hasilnya='||hasil);
end;
/
latihan
CREATE OR REPLACE PROCEDURE luassegitiga(x IN INTEGER, y IN INTERGER, Z OUT INTEGER)AS
Begin
Z:=(x*y)/2;
end;
/
set serveroutput on
declare
hasil integer;
BEGIN
luassegitiga(5,4,5)
dbms_output.put_line('hasil='||hasil);
END
/
CREATE OR REPLACE PROCEDURE KELLINGKARAN(R IN OUT INTEGER) AS
BEGIN
R:= 2*3.14*R;
END;
/
Function
CREATE OR REPLACE FUNCTION teks RETURN VARCHAR2 AS
S VARCHAR2(20);
BEGIN
S:='TEKS BIASA';
RETURN S
END;
/
SET SERVEROUTPUT ON
SELECT TEKS FROM DUAL;
TEKS
--------------------------
TEKS BIASA
CREATE OR REPLACE FUNCTION CHECK_PRIMA(BIL INTEGER)
RETURN BOOLEAN AS
PRIMA BOOLEAN:-TRUE;
J INTEGER
TUGAS
1. jelaskan perbedaan antara prosedure dengan fungsi
2. Buat fungsi/prosedur yang bisa menampilkan pesan bahwa bilangan genap atau ganjil
3. buat fungsi/prosedur untuk menghitung jumlah panjang karakter nama yang diinputkan!
Handle kesalahan jika yang dimasukkan bukan merupakan karakter
dikumpulkan : wagast85@yahoo.com
maks 4 oktober 2011
0 Responses so far.
Post a Comment