Pola Bintang dengan For-Looping pada PL/SQL Oracle

By: Unknown on 3/21/2013 01:07:00 AM

Share it Please

Tweet

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