PROGRAM 1
Set serveroutput on
Declare
S int;
L int;
Begin
S := 6;
L:=s*s;
Dbms_output.put_line('sisi'||s);
Dbms_output.put_line('luas'||L);
End;
PROGRAM 2
Set serveroutput on
Declare
J int;
Begin
J:=0;
Loop;
J:=j+1;
Dbms_output.put_line('test looping');
exit when j = 10;
end loop;
end;
Logika Program :
PROGRAM 1
Set serveroutput on
è berguna untuk menampilkan output. Jika kata ‘on’ digantikan dengan ‘off’ maka output tidak akan muncul.
Declare
S int;
L int;
è untuk mendeklarasikan variable S dan L yang bertipe data integer.
Begin
S:= 6;
L:=s*s;
è artinya variable S memiliki nilai 6 dan variable S diartikan sebagai rumus yang berisikan variable s dikali variable s.
Dbms_output.put_line (‘sisi ‘||s);
Dbms_output.put_line (‘luas ‘||L);
End;
è perintah untuk mencetak output yang telah dijalankan oleh program.
1.
Menghitung Keliling Persegi Panjang.
declare
pertama float(5);
kedua float(5);
kel float(5);
luas float(5);
begin
pertama:=&masukkan_panjang;
kedua :=&masukkan_lebar;
kel :=(2*pertama) + (2*kedua);
luas :=pertama*kedua;
dbms_output.put_line(‘Persegi panjang ini kelilingnya ‘ || kel || ‘ cm ‘ || ‘dan Luasnya ‘ || luas || ‘ cm’);
end;
dbms_output.put_line(‘Persegi panjang ini kelilingnya ‘ || kel || ‘ cm ‘ || ‘dan Luasnya ‘ || luas || ‘ cm’);
end;
/
************************************************************************************************
2. Menentukan Jenis Kelamin
Berdasarkan inputan nama.
declare
nama varchar(20);
jk char(2);
begin
nama:= ‘&inputnama’;
jk:=’&JK’;
if(jk=’p’ or jk=’P') then
dbms_output.put_line(‘Selamat
Datang Neng ‘ || nama);
else if(jk=’l’ or jk=’L') then
dbms_output.put_line(‘Selamat
Datang Kang ‘ || nama);
else
dbms_output.put_line(‘Maaf….,
jenis kelamin anda tidak terdaftar dalam database. Anda BANCI yaahhh…’);
end if;
end if;
end;
/
************************************************************************************************
3. Menentukan Total Bayar
declare
nama varchar(25);
harga float(15);
diskon float(3);
total float(15);
begin
nama:=’&input_nama’;
harga:=&harga_buku;
diskon:=&diskon;
total:=harga -((diskon/100)*harga);
total:=harga -((diskon/100)*harga);
dbms_output.put_line(‘Selamat
Datang ‘ || nama);
dbms_output.put_line(‘Harga
yang harus dibayar ‘ || total);
if (diskon >=25) then
dbms_output.put_line(‘Wow baeee
kalleeee’);
else
dbms_output.put_line(‘Beee…
pelitnyaaaaaa’);
end if;
end;
end;
/
************************************************************************************************
4. Menentukan Tanggal, Bulan,
Dan Tahun saat ini / sekarang
declare
begin
dbms_output.put_line(‘Sekarang
hari ‘ || to_char(sysdate, ‘DAY’)|| ’ Tanggal ‘ || to_char(sysdate,’DD’)
|| ’ Bulan ‘ || to_char(sysdate,’MONTH’) || ’ Tahun ‘ ||
to_char(sysdate,’YYYY’));
end;
/
************************************************************************************************
5. Membuat Deretan Fibbonacci
declare
x number(5);
y number(5);
fib number(5);
input number(5);
begin
begin
x:=1;
y:=1;
input:=&masukkan_batas;
input:=input-2;
dbms_output.put_line(1);
dbms_output.put_line(1);
for i IN 1..input LOOP
fib:=x+y;
x:=y;
y:=fib;
dbms_output.put_line(fib);
END LOOP;
end;
/
************************************************************************************************
6. Membuat urutan bilangan,
dimana jumlah bilangan yang nampil tidak lebih dari bilangan inputan.
declare
i number(5);
input number(5);
begini:=1;
input:=&masukkan_angka;
dbms_output.put_line(1);
LOOP
i:=i+3;
i:=i+3;
dbms_output.put_line(i);
exit when i > input;
end loop;
end;
/
