mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
Added new _STRCMP and _STRICMP commands for quick string comparisons. Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders. Altered UCASE and LCASE routines to be faster in some situations for us.
10 lines
487 B
QBasic
10 lines
487 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"
|
|
|