LAPORAN PRAKTIKUM SQL

SQL>set serveroutput on
SQL>create or replace procedure prima(a in integer) as
2 cek boolean :=true;
3 j integer(3);
4 begin
5 if a <= 1 then 6 cek := false; 7 end if; 8 for j in 2..(a / 2) loop 9 if mod(a,2) = 0 then 10 cek := false; 11 exit; 12 end if; 13 end loop; 14 if cek then 15 dbms_output.put_line(a || ‘ merupakan bilangan prima ‘); 16 else 17 dbms_output.put_line(a || ‘ bukan bilangan prima ‘); 18 end if; 19 end; 20 / Procedure created. SQL>execute prima(5);
5 merupakan bilangan prima

PL/SQL procedure successfully completed.



SQL>create or replace function jumlah return integer as
2 jml integer;
3 i integer;
4 begin
5 jml := 0;
6 for i in 1..15 loop
7 jml := jml + 1;
8 end loop;
9 return jml;
10 end;
11 /


Function created.



SQL>declare
2 y integer;
3 begin
4 y := jumlah;
5 dbms_output.put_line(‘ Hasil = ‘|| to_char(y));
6 end;
7 /

Hasil = 120

PL/SQL procedure successfully completed.



LOGIKA :
Program pertama membuat program prosedur dengan nama prosedur prima, pada prosedur diketahui variabel cek bertipe data boolean dengan nilai true dan j integer. Apabila prosedur it dijalankan dan di input nilai 5 maka akan mencetak 5 merupakan bilangan prima. Hasil tersebut dari , kondisi yang diketahui dan perulangan yang dijalankan, apabila nilai tersebut salah ketika sisa hasil bagi =0 maka akan mencetak yang tadi.
Program kedua membuat program function, program ini sama dengan prosedur, tetapi pada function dapat mengembalikan nilai. Pada function diketahui perulangan dari 0 sampai 15 dan dengan perintah bilangan tersebut ditambah setiap looping. Maka apabila kita panggil functionnya akan menghasilkan hasil = 120, dari hasil looping yang ditambah dengan bilangan itu sendiri.