PROGRAM 13


PROGRAM CALCULATEGPA;
        {ANTHONY F. ORTIZ, ASSIGNMENT 4B, JUNE 29, 1994}
        {THIS PROGRAM ENTERS A STUDENT'S GRADE AND PRINTS A MESSAGE.}

USES CRT;

VAR
   GRADE:  CHAR;
     ANS:  STRING;

PROCEDURE INPUTGRADE;

BEGIN
     WRITE ('ENTER STUDENT''S GRADE.     ');
     READLN (GRADE);
END;

PROCEDURE  PRINTGRADE;

BEGIN
     WRITELN;
     CASE GRADE OF
          'A':  WRITELN ('EXCELLENT!');
          'a':  WRITELN ('EXCELLENT!');
          'B':  WRITELN ('VERY GOOD!');
          'b':  WRITELN ('VERY GOOD!');
          'C':  WRITELN ('GOOD!');
          'c':  WRITELN ('GOOD!');
          'D':  WRITELN ('NOT SO GOOD.  TRY AGAIN!');
          'd':  WRITELN ('NOT SO GOOD.  TRY AGAIN!');
          'F':  WRITELN ('YOU MUST TRY AGAIN!');
          'f':  WRITELN ('YOU MUST TRY AGAIN!');
     ELSE
          WRITELN ('THAT IS NOT A LETTER GRADE.');
     END;
END;

PROCEDURE INQUIRY;

BEGIN
     WRITELN;
     WRITE ('WOULD YOU LIKE TO ENTER ANOTHER GRADE?  TYPE "NO" TO QUIT. ');
     READLN (ANS)
END;

BEGIN
     REPEAT
           CLRSCR;
           INPUTGRADE;
           PRINTGRADE;
           INQUIRY;
     UNTIL (ANS = 'NO') OR (ANS = 'no')
END.

{  OUTFILE:  PROG13.OUT  }

ENTER STUDENT'S GRADE.     a

EXCELLENT!

WOULD YOU LIKE TO ENTER ANOTHER GRADE?  TYPE "NO" TO QUIT. no




BACK TO COMP151 PAGE.