FOR (NESTED)

P18.WRITE A PROGRAM TO PRINT THE FOLLOWING DESIGN.

1
12
123
1234
12345

Declare
i number ;
j number;
n number;
Begin
n := &n;
for i in 1..n loop
for j in 1..i loop
dbms_output.put(j);
end loop;
dbms_output.put_line(' ');
end loop;
end;
/

Enter value for n: 5
old 6: n:=&n;
new 6: n:=5;

P19. WRITE A PROGRAM TO DISPLAY NUMBERS OF THE FORM

0 0 0 0 0
1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25

SQL> SET SERVEROUTPUT ON;
SQL> DECLARE
I NUMBER;
J NUMBER ;
K NUMBER;
BEGIN
FOR I IN 0 .. 5 LOOP
FOR J IN 1..5 LOOP
K := I*J;
DBMS_OUTPUT.PUT(K || ' ');
END LOOP;
DBMS_OUTPUT. PUT_LINE (' ');
END LOOP;
END;
/

0 0 0 0 0
1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25

PL/SQL procedure successfully completed.

P20. WRITE A PL/SQL CODE TO ACCEPT THE TEXT AND
REVERSE THE GIVEN TEXT. AND CHECK THE TEXT IS PALINDROME OR NOT.

SQL> DECLARE
G varchar(20);
R varchar(20);
Begin
G := '&g';
dbms_output.put_line('THE GIVEN TEXT : '|| G);
for i in REVERSE 1.. Length (G) loop
R := R || substr(G,i,1);
end loop;
dbms_output.put_line('THE REVERSED TEXT : '||R);
IF R=G THEN
dbms_output.put_line('THE GIVEN TEXT IS PALINDROME ');
ELSE
dbms_output.put_line('THE GIVEN TEXT IS NOT PALINDROME ');
END IF;
end;
/

Enter value for g: hello
old 5: G := '&g';
new 5: G := 'hello';
THE GIVEN TEXT : hello
THE REVERSED TEXT : olleh
THE GIVEN TEXT IS NOT PALINDROME
PL/SQL procedure successfully completed.

SQL> /

Enter value for g: malayalam
old 5: G := '&g';
new 5: G := 'malayalam';
THE GIVEN TEXT : malayalam
THE REVERSED TEXT : malayalam
THE GIVEN TEXT IS PALINDROME
PL/SQL procedure successfully completed.

Download FOR_NESTED.pdf