(c) Instytut Informatyki Politechniki
Poznańskiej
28
Przykład pętli FOR
DECLARE
a
NUMBER := &koniec;
is_prime
BOOLEAN;
BEGIN
FOR
i IN 1 .. a LOOP
is_prime
:= TRUE;
FOR
j IN 2 .. i/2 LOOP
IF
(MOD(i,j) = 0) THEN
is_prime
:= FALSE;
END
IF;
END
LOOP;
IF
(is_prime) THEN
DBMS_OUTPUT.PUT_LINE(i
|| ' jest liczba pierwsza');
END
IF;
END
LOOP;
END;