How do you write a program in qbasic to input marks of 10 students in 5 subjects and display the average of each students?

Answer 1

DIM grade(6), lowGrade(5), testName$(6), seq$(6)

seq$(1) = "first "

seq$(2) = "second"

seq$(3) = "third "

seq$(4) = "fourth"

seq$(5) = "fifth "

grLetter$ = "ABCD"

begin:

COLOR 7, 0

CLS

PRINT "Test averaging program"

PRINT "======================"

PRINT

PRINT "Lets enter some basic info before we get started .."

PRINT

FOR ix% = 1 TO 4

PRINT "enter a number (1-100) that you consider to be the lowest "; MID$(grLetter$, ix%, 1);

INPUT lowGrade(ix%)

PRINT STRING$(78, "-")

NEXT ix%

enterTests:

COLOR 7, 0

CLS

LINE INPUT "Enter student name or / to end program: "; name$

IF name$ = "/" THEN

CLS

END

END IF

LINE INPUT "Enter student age : "; age$

age% = VAL(age$)

PRINT STRING$(78, "=")

FOR ix% = 1 TO 5

PRINT "Enter the subject name for the "; seq$(ix%); " test: ";

LINE INPUT testName$(ix%)

LINE INPUT "Enter the grade for this test (1-100): "; grade$

grade(ix%) = VAL(grade$)

PRINT STRING$(78, "-")

NEXT ix%

CLS

displayReport:

COLOR 7, 0

CLS

GOSUB computeAverage

PRINT "Test Average Report for "; name$

PRINT

PRINT "Age is "; age$

IF (age% >= 25) = 0 THEN

COLOR 6, 0

PRINT " ** Student is underage **"

END IF

COLOR 7, 0

stuGrade = average

GOSUB determineAthruF

PRINT "Test average is";

PRINT USING "###.##"; average

PRINT "This is a grade of "; grade$

IF grade$ = "F" THEN

COLOR 4, 0

PRINT "** Student did not pass **"

END IF

COLOR 7, 0

PRINT

PRINT "Test Summary (those in ";

COLOR 4, 0

PRINT "red";

COLOR 7, 0

PRINT " are failing)"

PRINT

FOR ix% = 1 TO 5

COLOR 7, 0

stuGrade = grade(ix%)

GOSUB determineAthruF

rptName$ = SPACE$(25)

MID$(rptName$, 1) = testName$(ix%)

IF grade$ = "F" THEN

COLOR 4, 0

END IF

PRINT rptName$, grade$,

PRINT USING "###.##"; stuGrade

NEXT ix%

COLOR 7, 0

PRINT

LINE INPUT "Do you wish to average another student (Y/N) "; yn$

yn$ = UCASE$(yn$)

IF yn$ = "Y" THEN

GOTO enterTests

END IF

END

computeAverage:

total = 0

FOR ix% = 1 TO 5

total = total + grade(ix%)

NEXT ix%

average = total / 5

RETURN

determineAthruF:

IF stuGrade >= lowGrade(4) THEN

grade$ = "D"

IF stuGrade >= lowGrade(3) THEN

grade$ = "C"

IF stuGrade >= lowGrade(2) THEN

grade$ = "B"

IF stuGrade >= lowGrade(1) THEN

grade$ = "A"

END IF

END IF

END IF

ELSE

grade$ = "F"

END IF

RETURN