IF – THEN
declare
pharga number(5);
begin
pharga := 500;
if (pharga >
100) then
dbms_output.put_line('pharga
diatas 100');
end if;
end;
IF – THEN – ELSE
set serveroutput
on
declare
n_times number;
begin
n_times :=
&masukkan_banyak_deret;
for n_1 in
1..n_times loop
for m_1 in 1..n_1
loop
if m_1 mod 2 = 0
then
dbms_output.put('*');
else
dbms_output.put(m_1);
end if;
end loop;
dbms_output.put_line('
');
end loop;
end;
IF – THEN – ELSIF
set serveroutput
on
accept nilai
prompt 'Masukkan nilai: ';
declare
nilai number(5);
begin
nilai :=
&nilai;
if (nilai>85)
then
dbms_output.put_line('Anda
mendapat grade A');
elsif
(nilai>=76) and (nilai<=85) then
dbms_output.put_line('Anda
mendapat grade B');
elsif
(nilai>=66) and (nilai<=75) then
dbms_output.put_line('Anda
mendapat grade C');
elsif
(nilai>=46) and (nilai<=65) then
dbms_output.put_line('Anda
mendapat grade D');
else
dbms_output.put_line('Anda
mendapat grade E');
end if;
end;
CASE
set setveroutput
on
declare
j number;
jum varchar(20);
begin
select count(*) into j from tab;
jum := case j
when 1 then ’satu’
when 2 then ’dua’
when 3 then ’tiga’
when 4 then ’empat’
when 5 then ’lima’
end;
dbms_output.put_line(’jumlah tabel = ’||j||’ (’||jum||’)’);
end;
/
declare
j number;
jum varchar(20);
begin
select count(*) into j from tab;
jum := case j
when 1 then ’satu’
when 2 then ’dua’
when 3 then ’tiga’
when 4 then ’empat’
when 5 then ’lima’
end;
dbms_output.put_line(’jumlah tabel = ’||j||’ (’||jum||’)’);
end;
/
Tidak ada komentar:
Posting Komentar