36211426-extra.sql

PL-SQL编程源码

DECLARE
TEMP1 INT;
TEMP2 NUMBER;
START_NO NUMBER;
END_NO NUMBER;
V_FLAG BOOLEAN;
BEGIN
DBMS_OUTPUT.ENABLE(100000);
START_NO:=&START_NO;
END_NO:=&END_NO;
FOR I IN START_NO .. END_NO LOOP
IF I<2 THEN
V_FLAG :=FALSE;
ELSIF I=4 THEN
V_FLAG :=FALSE;
ELSE
V_FLAG := TRUE;
END IF;
FOR J IN 2 .. TRUNC(POWER(I, 0.5)) LOOP
TEMP1:=I/J;
TEMP2:=I/J;
IF TEMP1=TEMP2 THEN
V_FLAG := FALSE;
EXIT;
END IF;
END LOOP;
IF V_FLAG = TRUE THEN
DBMS_OUTPUT.PUT_LINE(I);
NULL;
END IF;
END LOOP;
END;
/