FOR (NESTED) - 2ND

P21.WRITE A PROGRAM TO PRINT THE FOLLOWING DESIGN:

~~~~1
~~~121
~~12321
~1234321
123454321

SQL> set serveroutput on;
SQL> Declare
i number;
j number;
n number;
k number;
m number;
Begin
n := #
for i in 1..n loop
for j in 1..n-i loop
dbms_output.put('~');
end loop;
for k in 1..i loop
dbms_output.put(k);
end loop;
for k in reverse 1..i-1 loop
dbms_output.put(k);
end loop;
dbms_output.put_line(' ');
end loop;
end;
/

Enter value for num: 6
old 8: n := #
new 8: n := 6;

~~~~~1
~~~~121
~~~12321
~~1234321
~123454321
12345654321

PL/SQL procedure successfully completed.

P22.WRITE A PROGRAM TO PRINT THE FOLLOWING DESIGN:

~~~~~~~~1
~~~~~~~121
~~~~~~12321
~~~~~1234321
~~~~123454321
~~~12345654321
~~1234567654321
~123456787654321
12345678987654321
~123456787654321
~~1234567654321
~~~12345654321
~~~~123454321
~~~~~1234321
~~~~~~12321
~~~~~~~121
~~~~~~~~1

Declare
i number ;
j number;
n number;
k number;
m number;
Begin
n := &n;
for i in 1..n loop
for j in 1..n-i loop
dbms_output.put('~');
end loop;
for k in 1..i loop
dbms_output.put(k);
end loop;
for k in reverse 1..i-1 loop
dbms_output.put(k);
end loop;
dbms_output.put_line(' ');
end loop;
for i in reverse 1..n-1 loop
for j in 1..n-i loop
dbms_output.put('~');
end loop;
for k in 1..i loop
dbms_output.put(k);
end loop;
for k in reverse 1..i-1 loop
dbms_output.put(k);
end loop;
dbms_output.put_line(' ');
end loop;
end;

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

~~~~~~~~1
~~~~~~~121
~~~~~~12321
~~~~~1234321
~~~~123454321
~~~12345654321
~~1234567654321
~123456787654321
12345678987654321
~123456787654321
~~1234567654321
~~~12345654321
~~~~123454321
~~~~~1234321
~~~~~~12321
~~~~~~~121
~~~~~~~~1

PL/SQL procedure successfully completed.

Download FOR_NESTED-2ND.pdf