Как да отпечатате 1 до 10, без да използвате цикъл в PL/SQL?

Тук давам пример за отпечатване на 1 до 10, без да използвам цикъла в PL/SQL. Можете да отпечатате до произволно число, като промените стойността 10 на произволно число, например 100.

PL/SQL програма за отпечатване от 1 до 10 без използване на цикъл

В програмата по-долу използвам PL/SQL етикети вместо цикъла за увеличаване на стойността и печат. В етикет с име (label_main) увеличавам стойността на променливата (i) и проверявам дали нейната стойност е по-голяма от 10, след което предавам контрола на етикет с име (label_end), иначе предавам контрола на етикет (label_main). Можете да промените стойността в условието IF от 10 на желаното число, за да отпечатате до това число.

SET SERVEROUTPUT ON;

DECLARE
   i   NUMBER;
BEGIN
   i := 0;

  <<label_main>>
   i := i + 1;

   IF i > 10
   THEN
      GOTO label_end;
   END IF;

  <<label_print>>
   DBMS_OUTPUT.put_line (i);
   GOTO label_main;

  <<label_end>>
   NULL;
END;
/

Изход

1
2
3
4
5
6
7
8
9
10
PL/SQL procedure successfully completed.