(c) Instytut Informatyki Politechniki
Poznańskiej
26
Przykład pętli WHILE
DECLARE
a
NUMBER := &pierwsza_liczba;
b
NUMBER := &druga_liczba;
BEGIN
WHILE
(a != b) LOOP
IF
(a > b) THEN
a
:= a - b;
ELSE
b
:= b - a;
END
IF;
END
LOOP;
DBMS_OUTPUT.PUT_LINE('
NWD = ' || a);
END;