TUGAS ORACLE PL/SQL
1. Buat program anonymous block PL/SQL untuk menginput tiga buah bilangan yang masing-masing menyatakan besar sudut dalam sebuah segitiga. Periksa ketiga buah bilangan tadi. Cetak perkataan "SEGITIGA SIKU-SIKU", bila salah satu bilangan yang nilainya sama dengan 90, bila tidak ada yang bernilai 90, maka cetak perkataan "SEGITIGA BUKAN SIKU-SIKU". Selain itu cetak “BUKAN SEGITIGA”
Declare
a number(4):= &a;
b number(4) := &b;
c number(4) := &c;
d varchar2(20);
Begin
d :=
case
when a = 90 then 'segitiga siku-siku '
when b = 90 then 'segitiga siku-siku '
when c = 90 then ' segitiga siku-siku '
Else
' bukan segitiga siku-siku '
End;
Dbms_output.put_line (' segitiga tersebut adalah : ' || d);
End;
/
2. Buat table “NILAI” dengan struktur sebagai berikut :
nilai1, nilai2, nilai3,rata2 ; tipe data : number
keterangan ; tipe data : varchar, panjang 15
Kemudian buat program anonymous block PL/SQL untuk menginput tiga buah bilangan yang menyatakan nilai ujian tiga buah mata kuliah. Spesifikasi program yang diinginkan :
a. Isikan perkataan "LULUS" dalam field keterangan di table NILAI, bila nilai rata-rata ketiga buah bilangan tersebut lebih besar atau sama dengan 60 dan ketiga buah bilangan tersebut tidak ada yang mendapat nilai mati (nilai dibawah 40).
b. Bila nilai dibawah 60 dan ada nilai yang mendapat nilai mati, maka isikan perkataan "TIDAK LULUS" pada field keterangan di table NILAI
c. Tiga nilai yang diinputkan masing-masing disimpan dalam field nilai1, nilai2 dan nilai3. Hasil perhitungan nilai rata-rata disimpan dalam field rata2.
Create table nilai (
Nilai1 number,
Nilai2 number,
Nilai3 number,
Keterangan varchar(15),
);
Declare
a number :=’&nilai1’;
b number :=’&nilai2’;
c number :=’&nilai3’;
d number;
begin
d := trunc(((a+b+c)/3),2);
if (d>=60) and (a>=40) and (b>=40) and (c>=)
then
insert into nilai values(a,b,c,’LULUS’);
else
insert into nilai values(a,b,c,,’TIDAK LULUS’);
end if;
end;
/
3. Buat program anonymous block PL/SQL untuk menginput tiga buah bilangan. Dari tiga buah bilangan yang diinput tersebut, tentukan bilangan yang terbesar.
Declare
a number(4):= &a;
b number(4) := &b;
c number(4) := &c;
Begin
if ( a > b ) then
dbms_output.put_line( ' bilangan yang terbesar = ' || a );
elsif ( b > c ) then
dbms_output.put_line( 'bilangan yang terbesar = ' || b );
else
dbms_output.put_line( 'bilangan yang terbesar = ' || c );
End if;
End;
/
Atau
Declare
a number(4):= &a;
b number(4) := &b;
c number(4) := &c;
if ( a > b and a > c ) then
dbms_output.put_line( ' bilangan yang terbesar = ' || a );
elsif ( b > c and b > a ) then
dbms_output.put_line( ' bilangan yang terbesar = ' || b );
else
dbms_output.put_line( ' bilangan yang terbesar = ' || c );
End if;
End;
/
4. Buat program PL/SQL untuk menginput tiga buah bilangan. Cetak perkataan "BENAR", bila salah satu bilangan merupakan jumlah dari dua buah bilangan yang lain, selainnya (bila tidak) cetak perkataan "SALAH"
Mungkin ini :
declare
a number(6) := &a;
b number(6) := &b;
c number(6) := &c;
hasil varchar2(70);
Begin
if (a = b+c) then
dbms_output.put_line(' ANDA BENAR ' || hasil);
elsif (b = c+a) then
dbms_output.put_line(' ANDA BENAR LAGI ' || hasil);
elsif (c = b+a) then
dbms_output.put_line(' SELAMAT ANDA BENAR LAGI ' || hasil);
else
dbms_output.put_line(' MAAF ANDA KURANG BERUNTUNG, SILAHKAN COBA LAGI !!!! ' || hasil);
end if;
end;
/
