Monday, December 5, 2011


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;

No comments:

Post a Comment