(c) Instytut Informatyki Politechniki
Poznańskiej
24
Przykład prostej
pętli
DECLARE
v_suma
NUMBER := 0;
v_i
INTEGER := 0;
c_koniec
CONSTANT INTEGER := &koniec;
BEGIN
LOOP
v_suma
:= v_suma + v_i;
EXIT
WHEN (v_i = c_koniec);
v_i
:= v_i + 1;
END
LOOP;
DBMS_OUTPUT.PUT_LINE('Suma
liczb od 0 do ' || c_koniec);
DBMS_OUTPUT.PUT_LINE(v_suma);
END;