- LOOP
strukutur simpel loop digunakan bila diinginkan minimal iterasi dijalankan satu kali. dalam struktur ini harus ditambahkan statement exit when untuk menghindari eksekusi tak terbatas (infinitif).
contoh program yang memakai loop:
DECLAREtotal number(9);
counter number(6);
BEGIN
total:=0;
counter:=10;
LOOP
total:=total+counter;
EXIT WHEN total > 50;
END LOOP;
DBMS_OUTPUT.PUT_LINE('Counter: ' || counter);
DBMS_OUTPUT.PUT_LINE('Total: ' || total);
END;
/
- FOR
Struktur ini tidak memiliki kondisi, sehingga perlu didefinisikan indeks minimal dan maksimal sebagai batas iterasi. umumnya struktur ini digunakan untuk iterasi yang banyaknya sudah diketahui dengan pasti.
contoh program yang memakai for:
contoh 1:
DECLAREx number(3);
BEGIN
x:=berapa;
for i IN 1..x LOOP
DBMS_OUTPUT.PUT_LINE('Ini angka ' || i);
END LOOP;
END;
/
contoh 2 (memakai IF)
Declare
x number(3);
BEGIN
X:=&berapa;
FOR i IN 1..x LOOP
if mod(i,2) = 1 then
DBMS_OUTPUT.PUT_LINE('Ini angka ' || i );
else
DBMS_OUTPUT.PUT_LINE('Ini angka ' || ‘i’ );
end if;
END LOOP;
END;
/
- Statemen WHILE
Struktur ini selalu memeriksa kebenaran kondisi di awal blok iterasi. Bila kondisi bernilai FALSE, maka statemen-
statemen dalam blok iterasi tidak akan dieksekusi.
contoh program yang memakai WHILE:
DECLARE
i NUMBER(3);
hasil NUMBER(5);
BEGIN
i:=1;
WHILE i <= 10 LOOP
hasil := i**3;
DBMS_OUTPUT.PUT_LINE(i ||' pangkat 3 = '|| hasil );
i := i + 1;
END LOOP;
END;
/
0 komentar:
Posting Komentar