Jumat, 20 Januari 2012

Penulisan String Kesamping (Membuat BIntang segitiga)

langsung aja scriptnya :
  • declare
  • i integer;
  • j integer;
  • begin
  • for i in 1..5
  •  loop
  •    for j in 1..i
  •       loop
  •          dbms_output.put('*');
  •       end loop;
  •  dbms_output.put_line('');
  • if i=5 then
  • for j in reverse 1..i
  •  loop
  •    for i in 1..j
  •       loop
  •          dbms_output.put('*');
  •       end loop;
  •  dbms_output.put_line('');
  •  end loop;
  • end if;
  •  end loop;
  • end;

Outputnya
 

Ada yang kurang jelas silahkan ditanyakan........
Diposting oleh di

4 komentar:

  1. Unknown3 Februari 2012 pukul 01.43

    10030008

    oo perulanganya kayak gini to mas...

    BalasHapus
  2. adefirman25 April 2012 pukul 02.46

    bro kalo output nya
    *
    **
    ***
    ****
    *****


    gimana coding nya ?

    BalasHapus
  3. adefirman25 April 2012 pukul 04.14

    trus kalo yang begini :
    *****
    ****
    ***
    **
    *

    gimana bro .. heheh mohon bimbingannya bro ^_^

    BalasHapus
  4. Belajar Bersama " Delphi "26 April 2012 pukul 00.22

    sory baru bisa koment
    untuk kodingnya itu kan hanya digabung antara
    2 perulangan
    yang pertama
    for i in 1..5
    loop
    for j in 1..i
    loop
    dbms_output.put('*');
    end loop;
    dbms_output.put_line('');

    itu untuk
    *
    **
    ***
    ****

    dan yang kedua
    for j in reverse 1..i
    loop
    for i in 1..j
    loop
    dbms_output.put('*');
    end loop;
    dbms_output.put_line('');
    end loop;

    itu untuk
    ****
    ***
    **
    *

    hanya saja itu dtambahkan percabangan agar
    klau perulangan pertama sudah sampai 5 maka akan di balik urutan perulangannya...
    sehingga hasilnya seperti diatas

    maksudnya seperti itu atau ada yg lain?

    BalasHapus

Langganan: Posting Komentar (Atom)