Bagaimana Cara Mencetak 1 hingga 10 Tanpa Menggunakan Loop di PL/SQL?

Di sini saya memberikan contoh untuk mencetak 1 sampai 10 tanpa menggunakan loop di PL/SQL. Anda dapat mencetak hingga angka berapa pun dengan mengubah nilai 10 menjadi angka apa saja, misalnya 100.

Program PL/SQL untuk Mencetak 1 sampai 10 Tanpa Menggunakan Loop

Dalam program di bawah ini, saya menggunakan label PL/SQL alih-alih loop untuk menambah nilai dan mencetak. Dalam label bernama (label_main), saya menambah nilai variabel (i) dan memeriksa apakah nilainya lebih besar dari 10 kemudian meneruskan kontrol ke label bernama (label_end) selain itu meneruskan kontrol ke label (label_main). Anda dapat mengubah nilai pada kondisi IF dari 10 ke angka yang diinginkan untuk mencetak hingga angka tersebut.

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;
/

Keluaran

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