Assignment 2 - Question 4

DECLARE
s_first                   VARCHAR2(20)      := 'Sally';
s_last                    VARCHAR2(20)      := 'Smith';
string_transcript         VARCHAR2(120);
course_1                  VARCHAR(6)        := 'CIS306';
course_2                  VARCHAR(6)        := 'CIS406';
grade_1                   CHAR              := 'B';
grade_2                   CHAR              := 'A';
hours_1                   NUMBER(1)         := 2;
hours_2                   NUMBER(1)         := 3;
total_hours               NUMBER;
s_tqp                     NUMBER            := 0;
s_gpa                     NUMBER(3,2);
string_award              VARCHAR2(50)      := s_first||
    ' has earned the Gold Star Award!';

BEGIN
string_transcript
    := 'Student '||s_first||' '||s_last||'''s Transcript';

DBMS_OUTPUT.PUT_LINE(string_transcript);

DBMS_OUTPUT.PUT_LINE(CHR(0));

string_transcript
    := course_1||' '||grade_1;

DBMS_OUTPUT.PUT_LINE(string_transcript);

string_transcript
    := course_2||' '||grade_2;

DBMS_OUTPUT.PUT_LINE(string_transcript);

IF
    grade_1 = 'A'
THEN
    s_tqp := s_tqp + 4 * hours_1;
ELSIF
    grade_1 = 'B'
THEN
    s_tqp := s_tqp + 3 * hours_1;
ELSIF
    grade_1 = 'C'
THEN
    s_tqp := s_tqp + 2 * hours_1;
ELSIF
    grade_1 = 'D'
THEN
    s_tqp := s_tqp + 1 * hours_1;
END IF;

IF
    grade_2 = 'A'
THEN
    s_tqp := s_tqp + 4 * hours_2;
ELSIF
    grade_2 = 'B'
THEN
    s_tqp := s_tqp + 3 * hours_2;
ELSIF
    grade_2 = 'C'
THEN
    s_tqp := s_tqp + 2 * hours_2;
ELSIF
    grade_2 = 'D'
THEN
    s_tqp := s_tqp + 1 * hours_2;
END IF;

total_hours
    := hours_1 + hours_2;

s_gpa
    := s_tqp / total_hours;

string_transcript
    := 'The student has completed '||total_hours||' Hours with a GPA of '||s_gpa||'.';
DBMS_OUTPUT.PUT_LINE(string_transcript);

DBMS_OUTPUT.PUT_LINE(CHR(0));

IF
    grade_1 = 'A' OR grade_2 = 'A'
THEN
    IF
        s_gpa >= 2.5
    THEN
    IF
      grade_1 = 'F' OR grade_2 = 'F'
    THEN
      DBMS_OUTPUT.PUT_LINE(CHR(0));
    ELSE
      DBMS_OUTPUT.PUT_LINE(string_award);
    END IF;
    END IF;
END IF;

END;