LA Praktikum PL/SQL

Untuk LA terakhir PL/SQL

LA 1 .
create or replace procedure
hitung_luas_lingkaran as
jari number(5);
phi number(6);
luas number(7);
begin
jari := 4;
phi := 3.14;
luas := (jari*jari)*phi;
dbms_output.put_line('luas =' ||luas);
end;
/

>>> untuk run : ketik -> execute hitung_luas_lingkaran;

LA 2 .
create or replace function kuadrat(x number)
return number as
hasil number(10);
begin
hasil := x*x;
return hasil;
end;
/

create or replace function determinan
(a number, b number, c number)
return number as
y number(10);
begin
y := kuadrat(6)-(4*a*c);
return y;
end;
/

declare
y number(10);
begin
y := determinan (1,1,-6);
dbms_output.put_line('nilai determinan = ' ||y);
end;
/

:: Materi Ujian -> looping , procedure , function