Praktikum PL/SQL: Pertemuan Ke-1 Program Luas Lingkaran dan Tabel Mahasiswa

Laporan Akhir

Luas Lingkaran

set serveroutput on
declare
phi float(10);
jari float(10);
luas float(20);
begin
phi:=3.14;
jari:=&jari;
luas:=phi*jari*jari;
dbms_output.put_line('luas='||phi||'*'||jari||'*'||jari||'='||luas');
end;
/

Tabel Mahasiswa

set serveroutput on

declare

Npm char(8);

Nama varchar(20);

Kelas char(5);

begin

select Npm,Nama,Kelas into Npm,Nama,Kelas from mhs where Nama='indra';

dbms_output.put_line('Npm='||Npm);

dbms_output.put_line('Nama='||Nama);

dbms_output.put_line('Kelas='||Kelas);

end;

/

DOWNLOAD .DOC

LAPORAN PENDAHULUAN

Soal
1. Apa yang anda ketahui tentang kondisi dan perulangan?
2. Tuliskan bentuk umum dan contoh program untuk kondisi dan perulangan?

Jawaban
1. Sekumpulan perintah untuk melakukan perulangan dari suatu blok statement yang terdapat di dalam blok statement loop. Bentuk paling sederhana dari perintah LOOP adalah loop dasar (tak berhingga), yang mengapit rangkaian perintah-perintah diantara kata-kata kunci LOOP dan END LOOP.


2. Bentuk umum pada PL/SQL ada 3 jenis:
a. LOOP
LOOP
statement;
END LOOP;
b. WHILE LOOP
WHILE kondisi LOOP
statement;
END LOOP;
c. FOR LOOP
FOR counter IN [REVERSE] lower_bound..higher_bound LOOP
statements;
END LOOP;

Contoh program

declare
h integer;
hari varchar(6);
begin
h:=&h;
if h=1 then hari:='minggu';
elseif h=2 then hari:='senin';
elseif h=3 then hari:='selasa';
elseif h=4 then hari:='rabu';
elseif h=5 then hari:='kamis';
elseif h=6 then hari:='jumat';
else hari:='sabtu';
end if;
dbms_output.put_line('hari ke ='||h||'adalah hari '||hari);
end;
/