Write a QBASIC program to grade any score entered from the keyboard as either “Poor” for a score that is below 50% or “Satisfactory” for a score that is equal to or above 50%. The program execution should stop as soon as a score that is less than zero is entered.
Explanation
Qbasic Program to grade entered scores
10 REM program to grade entered scores
20 CLS
30 Score = 0
40 DO UNTIL score < 0
50 INPUT "Enter a score:"; Score
60 IF Score <50 THEN
70 PRINT "Poor"
80 ELSE
90 PRINT "Satisfactory"
100 END IF
110 LOOP
120 END
OR
REM PROGRAM TO GRADE ENTERED SCORES
REM USING SELECT CASE...END STRUCTURE
CLS
DIM SCORE AS INTEGER
DO UNTIL Score < 0
INPUT "Enter a score:";Score
SELECT CASE (SCORE)
CASE 50 to 100
PRINT "SATISFACTORY"
CASE 1 TO 49
PRINT "POOR"
END SELECT
LOOP
END
OR
REM PROGRAM FOR "GRADING SYSTEM"
CLS
Score = 0
DO UNTIL Score > = 0
INPUT Score
SELECT CASE (SCORE)
IF Score > = 0 THEN
IF Score < 50 THEN
PRINT "poor"
ELSE
IF Score > = 50
THEN PRINT "satisfactory"
END IF
END IF
LOOP
END
OR
DIM SCORE AS INTEGAR
SCORE = 0
DO WHILE Score > = 0
INPUT "Enter a score:"; Score
SELECT CASE (Score)
CASE 50 TO 100
PRINT "SATISFACTORY"
CASE 0 TO 49
PRINT "POOR"
END SELECT
LOOP
END
OR
REM PROGRAM FOR "GRADING SYSTEM"
CLS
Score = 0
DO while score > = 0
INPUT Score
IF Score > = 0 THEN
IF Score < 50 THEN
PRINT "poor"
ELSE
IF Score .> = 50 THEN
PRINT "satisfactory"
END IF
END IF
LOOP
END