BUAT SRIP UNTUK MENAMPILKAN NILAI AKHIR SBB :
--------------------------------------------
RUMUS : A
TUGAS : 100
QUIS : 100
UTS : 100
UAS : 100
NILAI : 100
KETERANGAN : BAIK SEKALI
--------------------------------------------
DI INPUT :
A. NILAI QUIS
B. NILAI TUGAS
C. NILAI UTS
D. NILAI UAS
RUMUS :
A. NA = (QUIS*20%) + (TUGAS*10%)+ (UTS*30%) + (UAS*40%)
B. NA = (QUIS*30%) + (UTS*30%) + (UAS*40%)
C. NA = (TUGAS*30%)+ (UTS*30%) + (UAS*40%)
D. NA = (UTS*40%) + (UAS*60%)
RANGE NILAI :
A = 80..100
B = 68..79
C = 56..67
D = 45..55
JAWAB
DECLARE
QUIS INT:=&QUIS;
TUGAS INT:=&TUGAS;
UTS INT:=&UTS;
UAS INT:=&UAS;
NAK NUMBER(10,2);
KET VARCHAR(20);
RUM VARCHAR(1);
BEGIN
IF TUGAS = 0 THEN
IF QUIS = 0 THEN
RUM := 'D';
NAK := (UTS*0.40)+(UAS*0.60);
ELSE
RUM := ' B';
NAK := (QUIS*0.30)+(UTS*0.30)+(UAS*0.40);
END IF;
ELSIF QUIS = 0 THEN
RUM := 'C';
NAK := (TUGAS*0.30)+(UTS*0.30)+(UAS*0.40);
ELSE
RUM := 'A';
NAK := (TUGAS*0.10)+(QUIS*0.10)+(UTS*0.30)+(UAS*0.40);
END IF;
IF NAK >= 80 THEN KET := 'BAIK SEKALI ';
ELSIF NAK >=68 THEN KET := 'B A I K ';
ELSIF NAK >=56 THEN KET := 'C U K U P ';
ELSIF NAK >=45 THEN KET := 'K U R A N G ';
ELSE KET := 'NGULANG LAGI';
END IF;
DBMS_OUTPUT.PUT_LINE('NILAI AKHIR LBD-2');
DBMS_OUTPUT.PUT_LINE('-----------------');
DBMS_OUTPUT.PUT_LINE('RUMUS : '||RUM);
DBMS_OUTPUT.PUT_LINE('TUGAS : '||TUGAS);
DBMS_OUTPUT.PUT_LINE('QUIS : '||QUIS);
DBMS_OUTPUT.PUT_LINE('UTS : '||UTS);
DBMS_OUTPUT.PUT_LINE('UAS : '||UAS);
DBMS_OUTPUT.PUT_LINE('NILAI AKHIR : '||NAK);
DBMS_OUTPUT.PUT_LINE('KETERANGAN : '||KET);
DBMS_OUTPUT.PUT_LINE('-----------------');
END;
/
Tidak ada komentar:
Posting Komentar