Bintang dengan For-Looping pada PL/SQL Oracle

a. segitiga a
*
**
***
****
*****

b. segitiga b
*****
****
***
**
*

c. segitiga c
*
**
***
****
*****
****
***
**
*

a. segitiga a
declare
begin
FOR x IN 1..5 LOOP
FOR y IN 1..x LOOP
DBMS_OUTPUT.PUT('*');
END LOOP;
DBMS_OUTPUT.NEW_LINE();
DBMS_OUTPUT.PUT_LINE('');
END LOOP;
end;
/

b. segitiga b
declare
begin
FOR x IN REVERSE 1..5 LOOP
FOR y IN 1..x LOOP
DBMS_OUTPUT.PUT('*');
END LOOP;
DBMS_OUTPUT.NEW_LINE();
DBMS_OUTPUT.PUT_LINE('');
END LOOP;
end;
/

c. segitiga c
declare
begin
FOR x IN 1..5 LOOP
FOR y IN 1..x LOOP
DBMS_OUTPUT.PUT('*');
END LOOP;
DBMS_OUTPUT.NEW_LINE();
DBMS_OUTPUT.PUT_LINE('');
END LOOP;

FOR x IN REVERSE 1..4 LOOP
FOR y IN 1..x LOOP
DBMS_OUTPUT.PUT('*');
END LOOP;
DBMS_OUTPUT.NEW_LINE();
DBMS_OUTPUT.PUT_LINE('');
END LOOP;
end;
/

1. Contoh percabangan dengan satu kondisi
- Menentukan sebuah bilangan Bulat apakah termasuk kedalam bilangan 
Genap atau Ganjil
-----------------------------------------------------------------------
SET SERVEROUTPUT ON
DECLARE
BIL INTEGER := 100;
BEGIN
IF MOD(BIL,2)=0 THEN
DBMS_OUTPUT.PUT_LINE(TO_CHAR(BIL)|| ' adalah bilangan Genap');
END IF;
END;

- Menentukan bilangan terbesar dan terkecil dari sebuah bilangan bulat 
----------------------------------------------------------------------- 
SET SERVEROUTPUT ON
DECLARE
bil_1 INTEGER;
bil_2 INTEGER;
BEGIN
bil_1 := 300;
bil_2 := 200;

IF bil_1 > bil_2 THEN
DBMS_OUTPUT.PUT_LINE('Bilangan tebesar adalah : '|| TO_CHAR(bil_1) 
||', terkecil adalah : ' || TO_CHAR(bil_2)); 
END IF;
END;

2. Contoh percabangan dengan dua kondisi
- Menentukan sebuah bilangan Bulat apakah termasuk kedalam bilangan 
Genap atau Ganjil
-----------------------------------------------------------------------
SET SERVEROUTPUT ON
DECLARE
bil INTEGER := 99;
BEGIN
IF MOD(bil,2)=0 THEN
DBMS_OUTPUT.PUT_LINE(TO_CHAR(bil)|| ' adalah bilangan Genap');
ELSE
DBMS_OUTPUT.PUT_LINE(TO_CHAR(bil)|| ' adalah bilangan Ganjil');
END IF;
END;

- Menentukan bilangan terbesar dan terkecil dari sebuah bilangan bulat 
-----------------------------------------------------------------------
SET SERVEROUTPUT ON
DECLARE
bil_1 INTEGER;
bil_2 INTEGER;
BEGIN
bil_1 := 300;
bil_2 := 200;

IF bil_1 > bil_2 THEN
DBMS_OUTPUT.PUT_LINE('Bilangan tebesar adalah : ' || TO_CHAR(bil_1) 
||', terkecil adalah : ' || TO_CHAR(bil_2)); 
ELSE
DBMS_OUTPUT.PUT_LINE('Bilangan tebesar adalah : ' || TO_CHAR(bil_2) 
||', terkecil adalah : ' || TO_CHAR(bil_1)); 
END IF;
END;

3. Contoh percabangan dengan Tiga kondisi
- Menentukan sebuah bilangan Bulat apakah termasuk kedalam bilangan 
Genap atau Ganjil
-----------------------------------------------------------------------
SET SERVEROUTPUT ON
DECLARE
bil INTEGER := -9;
BEGIN
IF MOD(bil,2)=0 THEN
DBMS_OUTPUT.PUT_LINE(TO_CHAR(bil)|| ' adalah bilangan Genap');
ELSIF MOD(bil,2)=1 THEN
DBMS_OUTPUT.PUT_LINE(TO_CHAR(bil)|| ' adalah bilangan Ganjil'); 
ELSE
DBMS_OUTPUT.PUT_LINE('Bilangan tsb adalah Bilangan negatif');
END IF;
END;

- Menentukan bilangan terbesar dan terkecil dari sebuah bilangan bulat 
-----------------------------------------------------------------------
SET SERVEROUTPUT ON
DECLARE
bil_1 INTEGER;
bil_2 INTEGER;
BEGIN
bil_1 := 300;
bil_2 := 200;

IF bil_1 > bil_2 THEN
DBMS_OUTPUT.PUT_LINE('Bilangan tebesar adalah : ' || TO_CHAR(bil_1) 
||', terkecil adalah : ' || TO_CHAR(bil_2)); 
ELSIF bil_1 > bil_2 THEN
DBMS_OUTPUT.PUT_LINE('Bilangan tebesar adalah : ' || TO_CHAR(bil_2) 
||', terkecil adalah : ' || TO_CHAR(bil_1)); 
ELSE
DBMS_OUTPUT.PUT_LINE('Bilangan ke-1 dan 2 adlh sama yaitu : '||bil_1);
END IF;
END;