mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-08 01:50:17 +00:00
These tests use a variety of sample code (with some of the larger files removed, so they are not complete!) and verifies that they all compile successfully.
10 lines
477 B
QBasic
10 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"
|
|
|