mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
11 lines
477 B
QBasic
11 lines
477 B
QBasic
|
DO
|
||
|
50 REM THIS PROGAM INPUTS QUIZ SCORES AND FINDS THE AVERAGE SCORE
|
||
|
60 PRINT "LISTING OF STUDENT NAMES AND QUIZ SCORES"
|
||
|
100 INPUT "ENTER NAME AND SCORES: "; STUDENT$, SCORE1, SCORE2, SCORE3, SCORE4, SCORE5
|
||
|
200 PRINT "STUDENTS NAME: "; STUDENT$
|
||
|
300 PRINT "STUDENT'S SCORES: "; SCORE1; SCORE2; SCORE3; SCORE4; SCORE5
|
||
|
400 AVERAGE = (SCORE1 + SCORE2 + SCORE3 + SCORE4 + SCORE5) / 5'FIND THE AVERAGE SCORE
|
||
|
500 PRINT "STUDENT'S AVERAGE SCORE IS: "; AVERAGE
|
||
|
LOOP UNTIL INKEY$ = "w"
|
||
|
|