PROGRAM 12


PROGRAM CALCULATEGPA;
        {ANTHONY F. ORTIZ, ASSIGNMENT 4A, JUNE 29, 1994}
        {THIS PROGRAM ENTERS A STUDENT'S GRADE AND PRINT OUT 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'..'C':  WRITELN ('SUCCESSFUL');
          'a'..'c':  WRITELN ('SUCCESSFUL');
          'D'..'F':  WRITELN ('UNSUCCESSFUL');
          'd'..'f':  WRITELN ('UNSUCCESSFUL');
     ELSE
          WRITELN ('THAT IS NOT A LETTER GRADE. ');
     END;
     WRITELN;
END;

PROCEDURE INQUIRY;

BEGIN
     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:  PROG12.OUT  }

ENTER STUDENT'S GRADE. a

SUCCESSFUL

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




BACK TO COMP151 PAGE.