Kondisi dan Perulangan pada PL/ SQL

Laporan Akhir PL/ SQL

1. contoh sederhana Loop :
set serveroutput on
set verify off
declare
A Integer ;
begin
A := 1 ;
While (A < 3) LOOP
dbms_output.PUT_LINE(A);
A := A + 1 ;
END loop;
end;
/

A bernilai integer, Akan mengulang A < 3 dan Output yang akan di keluarkan dbms adalah ‘nilai A ‘.
Proses perulangan (A:=1 ) A kurang dari 3 maka akan mencetak 1 dan 2


2. contoh sederhana kondisi
// program membaca angka genap atau ganjil
set serveroutput on
set verify off

declare
bil integer := &bil;
begin
if mod (bil, 2) = 0 then
dbms_output.put_line (bil||' adalah bilangan genap');
else
dbms_output.put_line (bil||' adalah bilangan ganjil');
end if;
end;
/

bil bernilai integer, Output yang akan di keluarkan dbms adalah ‘hasil bilangan genap atau ganjil ‘ dan Proses perhitungannya jika (bilangan mod 2 ) = 0
bil adalah nilai yang telah di masukan sehingga akan memproses 2 mod 2 = 0
2 MOD 2 = 0 berarti 2 adalah bilangan genap.
3 MOD 2 = 1 berarti 3 adalah bilangan ganjil.

3. //program menghitung nilai Ujian
set serveroutput on
set verify off

declare
nama varchar2(20);
npm integer;
uts number;
uas number;
nilai number;
begin
nama := '&nama';
npm := &npm;
uts := &uts;
uas := &uas;
nilai := (uts + uas)/2 ;
if nilai >= 90 then
dbms_output.put_line(nama||' '||npm||' nilai anda A');
else if nilai >= 70 then
dbms_output.put_line(nama||' '||npm ||' nilai anda B');
else if nilai >= 50 then
dbms_output.put_line(nama||' '||npm ||' nilai anda c');
else
dbms_output.put_line(nama||' '||npm ||'nilai anda jelek');
end if;
end if;
end if;
end;
/


Nama bernilai karakter, Npm bernilai integer, UTS, UAS, nilai bernilai number dan Proses perhitungan nilai = uts + uas / 2
Jika nilai >= 90 maka akan mencetak nilai A
Jika nilai >= 70 maka akan mencetak nilai B
Jika nilai >= 50 maka akan mencetak C
Jika tidak maka akan mencetak nilai anda jelek