Monday, October 29, 2012

Perintah Perulangan pada PL/SQL

Posted by Irpan Ramdani On Monday, October 29, 2012 No comments
Pada PL/SQL ada 3 jenis perulangan yaitu :

1. LOOP

Perulangan LOOP adalah perintah untuk melakukan perulangan dari suatu block statement yang terdapat di dalam block statement loop.
Bentuk umum dari perulangan LOOP pada PL/SQL ini adalah :
LOOP
statement;
END LOOP;

Contoh program perulangan LOOP pada PL/SQL

1:  declare  
2:  k integer;  
3:  jumlah integer:=0;  
4:  begin  
5:  k:=2;  
6:  loop  
7:  jumlah:=jumlah+k;  
8:  k:=k+2;  
9:  exit when k>18;  
10:  end loop;  
11:  dbms_output.put_line('jumlah :'||jumlah);  
12:  end;  
13:  /  

2. WHILE LOOP

Perulangan WHILE LOOP adalah perintah untuk melakukan perulangan dari suatu block statement yang terdapat di dalam block statement loop dengan kondisi yang terdapata pada kluasa WHILE. Jadi klausa WHILE ini berfungsi sebagai pembatas dari looping atau pengulangan yang dilakukan.
Bentuk umum dari perulangan WHILE LOOPpada PL/SQL ini adalah :
WHILE kondisi LOOP
statement;
END LOOP;

Contoh program perulangan WHILE LOOP pada PL/SQL

1:  declare  
2:  hitung number := 0;  
3:  begin  
4:  while hitung < 5  
5:  loop  
6:  dbms_output.put_line('No ke: '||hitung);  
7:  hitung := hitung + 1;  
8:  end loop;  
9:  dbms_output.put_line('no terakhir adalah: '||hitung);  
10:  end;  


3. FOR LOOP

Perulangan FOR LOOP adalah perintah untuk melakukan perulangan dari suatu block statement yang terdapat di dalam block statement loop dengan kondisi atau perhitungan yang ada pada klausa FOR. Jadi klausa FOR ini berfungsi sebagai pembatas dari looping atau pengulangan yang dilakukan.
Bentuk umum dari perulangan FOR LOOP pada PL/SQL ini adalah :
FOR counter IN [REVERSE] lower_bound..higher_bound LOOP
statements;
END LOOP;

Contoh program perulangan FOR LOOP pada PL/SQL


1:  declare  
2:  hitung number := 0;  
3:  begin  
4:  for hitung IN 1..15  
5:  loop  
6:  hitung := hitung * 31;  
7:  end loop;  
8:  dbms_output.put_line('no terakhir adalah: '||hitung);  
9:  end;  

0 comments:

Post a Comment