Menampilkan Deret Bilangan Prima Dengan PL/SQL

Selamat pagi,,, ๐Ÿ˜‰
Kali ini aku mau berbagi satu hal baru (bagiku) tentang PL/SQL yang baru ku pelajari. Contoh source code berikut ini adalah untuk menampilkan deretan bilangan prima menggunakan PL/SQL Oracle. Oke, langsung saja lihat source code deretan bilangan prima denga PL/SQL Oracle berikut ini :

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
SET SERVEROUTPUT ON
DECLARE
K NUMBER(3);
I INTEGER;
BEGIN
K:=&input;
DBMS_OUTPUT.PUT('2 ');
FOR I IN 2..K LOOP
IF MOD(I,2)>0 THEN
IF I > 7 THEN
IF MOD(I,3)>0 AND MOD(I,5)>0 AND MOD(I,7)>0 THEN
DBMS_OUTPUT.PUT(TO_CHAR(I) || ' ');
END IF;
ELSE
DBMS_OUTPUT.PUT(TO_CHAR(I) || ' ');
END IF;
END IF;
END LOOP;
DBMS_OUTPUT.NEW_LINE;
END;
SET SERVEROUTPUT ON DECLARE K NUMBER(3); I INTEGER; BEGIN K:=&input; DBMS_OUTPUT.PUT('2 '); FOR I IN 2..K LOOP IF MOD(I,2)>0 THEN IF I > 7 THEN IF MOD(I,3)>0 AND MOD(I,5)>0 AND MOD(I,7)>0 THEN DBMS_OUTPUT.PUT(TO_CHAR(I) || ' '); END IF; ELSE DBMS_OUTPUT.PUT(TO_CHAR(I) || ' '); END IF; END IF; END LOOP; DBMS_OUTPUT.NEW_LINE; END;
SET SERVEROUTPUT ON
DECLARE
K NUMBER(3);
I INTEGER;
BEGIN
K:=&input;
DBMS_OUTPUT.PUT('2 ');
FOR I IN 2..K LOOP
	IF MOD(I,2)>0 THEN
		IF I > 7 THEN
			IF MOD(I,3)>0 AND MOD(I,5)>0 AND MOD(I,7)>0 THEN
				DBMS_OUTPUT.PUT(TO_CHAR(I) || ' ');
			END IF;
		ELSE
			DBMS_OUTPUT.PUT(TO_CHAR(I) || ' ');
		END IF;
	END IF;
END LOOP;
DBMS_OUTPUT.NEW_LINE;
END;

Sedikit keterangan mengenai kode diatas, untuk variabel K digunakan untuk menampung hasil input yang merupakan sampai angka berapa deretan bilangan prima ditampilkan.

Leave a Reply