Database PL/SQL Arrays dan Procedures
Ini adalah soal susah buat saya pribadi, akhirnya beberapa jam 6 sore salah satu dari teman berhasilil mendapatkan jawabannya. ternyata jawabannya sangat pendek, logika saya aja yang tidak sampai ke sana.
DECLARE
i number;
t number;
c varchar(35);
FUNCTION prime(n IN out number, m IN out number )
RETURN varchar
IS
g varchar(35);
BEGIN
m := 0;
for i in 1..n loop
if (mod (n,i) = 0) then
m := m+1;
END IF;
end loop;
if (m = 2) then
g := 'Adalah bilangan prima';
else
g := 'Bukan bilangan prima';
END IF;
RETURN g;
END;
BEGIN
i:=:i;
c:= prime(i, t);
dbms_output.put_line(' '|| i ||' '|| c);
END;