set serveroutput on
declare
nilai integer;
begin
nilai:=90;
if nilai = 90 then
dbms_output.put_line('lulus');
end if;
end;
declare
nilai integer;
begin
nilai:=90;
if nilai >= 90 then
dbms_output.put_line('lulus');
else
dbms_output.put_line('tidak lulus');
end if;
end;
declare
nilai integer:=&nilai;
begin
if nilai >=90 then
dbms_output.put_line('lulus');
else
dbms_output.put_line('tidak lulus');
end if;
end;
declare
nilai integer:=&nilai;
BEGIN
if nilai >=90 then
dbms_output.put_line('lulus terbaik');
elsif nilai > 70 then
dbms_output.put_line('lulus');
else
dbms_output.put_line('tidak lulus');
end if;
end;
declare
n1 integer:=&n1;
n2 integer:=&n2;
na integer;
begin
na := (n1*0.4) + (n2*0.6);
if na >=90 then
dbms_output.put_line('lulus terbaik');
elsif na <90 and na >=75 then
dbms_output.put_line('lulus');
elsif na <75 and na >=60 then
dbms_output.put_line('boleh perbaikan');
else
dbms_output.put_line('silahkan mengulang');
end if;
end;
declare
n1 integer:=&n1;
n2 integer:=&n2;
na integer;
begin
na := (n1*0.4) + (n2*0.6);
if na >=90 then
dbms_output.put_line('nilai : '||na||' lulus terbaik');
elsif na <90 and na >=75 then
dbms_output.put_line('nilai : '||na||' lulus');
elsif na <75 and na >=60 then
dbms_output.put_line('nilai : '||na||' boleh perbaikan');
else
dbms_output.put_line('nilai : '||na||' silahkan mengulang');
end if;
end;
declare
na varchar(1):='&na';
ket varchar(20);
begin
ket := case na
when 'A' then 'Baik Sekali'
when 'B' then 'Baik'
when 'C' then 'Cukup'
when 'D' then 'Kurang'
when 'E' then 'Kurang Sekali'
end;
dbms_output.put_line('INDEKS : '||na);
dbms_output.put_line('Keterangan:'||ket);
end;
declare
n1 integer:=&n1;
n2 integer:=&n2;
na integer;
na1 varchar(1);
ket varchar(20);
begin
na := (n1*0.4) + (n2*0.6);
if na >=90 then
na1 :='A';
elsif na <90 and na >=75 then
na1 :='B';
elsif na <75 and na >=60 then
na1 :='C';
elsif na <60 and na >=40 then
na1 :='D';
else
na1 :='E';
end if;
ket := case na1
when 'A' then 'Baik Sekali'
when 'B' then 'Baik'
when 'C' then 'Cukup'
when 'D' then 'Kurang'
when 'E' then 'Kurang Sekali'
end;
dbms_output.put_line('Nilai : '||na);
dbms_output.put_line('INDEKS : '||na1);
dbms_output.put_line('Keterangan:'||ket);
end;