Advertisement
Guest User

grade sheet

a guest
Mar 27th, 2019
162
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 1.31 KB | None | 0 0
  1. FOR x = 1 TO 3
  2.     READ y$
  3.     PRINT y$
  4.     PRINT
  5.     PRINT "Enter mark of Quiz"
  6.     INPUT q1
  7.     PRINT "Enter mark of Assignment"
  8.     INPUT a1
  9.     PRINT "Enter mark of Midterm"
  10.     INPUT m1
  11.     PRINT "Enter mark of Final"
  12.     INPUT f1
  13.     sum = q1 + a1 + m1 + f1
  14.     PRINT "your mark"; sum
  15.     tsum = tsum + sum
  16.     IF sum >= 80 AND sum <= 100 THEN
  17.         PRINT "you have got A+"
  18.     ELSEIF sum >= 70 AND sum < 80 THEN
  19.         PRINT "you have got A"
  20.     ELSEIF sum >= 60 AND sum < 70 THEN
  21.         PRINT "you have got B"
  22.     ELSEIF sum >= 50 AND sum < 60 THEN
  23.         PRINT "you have got C"
  24.     ELSEIF sum >= 0 AND sum < 50 THEN
  25.         PRINT "you have got F"
  26.     ELSEIF sum < 0 OR sum > 100 THEN
  27.         PRINT "Your result is invalid"
  28.     END IF
  29. NEXT x
  30. DATA "FOR ART OF LIVING"
  31. DATA "FOR ENGLISH"
  32. DATA "FOR ISE"
  33. tavrg = tsum / 3
  34.  
  35. PRINT "AVERAGE OF YOUR TOTAL MARK"; tavrg
  36. IF tavrg >= 80 AND tavrg <= 100 THEN
  37.     PRINT "you have got A+"
  38. ELSEIF tavrg >= 70 AND tavrg < 80 THEN
  39.     PRINT "you have got A"
  40. ELSEIF tavrg >= 60 AND tavrg < 70 THEN
  41.     PRINT "you have got B"
  42. ELSEIF tavrg >= 50 AND tavrg < 60 THEN
  43.     PRINT "you have got C"
  44. ELSEIF tavrg >= 0 AND tavrg < 50 THEN
  45.     PRINT "you have got F"
  46. ELSEIF tavrg < 0 OR tavrg > 100 THEN
  47.     PRINT "Your result is invalid"
  48. END IF
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement