::ภาษาเบสิก++โปรแกรมคิดเกรดเฉลี่ยจร้า แบบไม่วนลูป::

CLS
INPUT "Please Enter your name : "; name$
INPUT "Please Enter your grade of tream :"; tream
PRINT " "
PRINT "------------------------------------------"
PRINT " Subject of Student "
PRINT "------------------------------------------"
PRINT " "
tag1:
PRINT "Subject 1"
INPUT "Please Enter Course No. : "; c1
INPUT "Please Enter Subject : "; s1$
INPUT "Please Enter Credit : "; cr1
INPUT "Please Enter Score : "; sc1
INPUT "Please Enter Grade : "; gr1$
REM SUM Scroll
sum1 = cr1 * sc1
sumcredit1 = cr1
credit1 = cr1
AVG1 = sum1 / credit1

manysub1:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag2
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag2
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG1:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT
PRINT "--------------------------------------------------------------"
PRINT TAB(18); "Sum score = "; sum1
PRINT TAB(18); "Average of scroll = "; AVG1
END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG1
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub1
END IF
tag2:
PRINT " "
PRINT "Subject 2"
INPUT "Please Enter Course No. : "; c2
INPUT "Please Enter Subject : "; s2$
INPUT "Please Enter Credit : "; cr2
INPUT "Please Enter Score : "; sc2
INPUT "Please Enter Grade : "; gr2$
REM SUM Scroll
sum2 = (cr2 * sc2) + sum1
sumcredit2 = cr1 + cr2
credit2 = cr1 + cr2
AVG2 = sum2 / credit2

manysub2:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag3
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag3
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG2:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum2
PRINT TAB(18); "Average of scroll = "; AVG2

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG2
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub2
END IF
tag3:
PRINT " "
PRINT "Subject 3"
INPUT "Please Enter Course No. : "; c3
INPUT "Please Enter Subject : "; s3$
INPUT "Please Enter Credit : "; cr3
INPUT "Please Enter Score : "; sc3
INPUT "Please Enter Grade : "; gr3$
REM SUM Scroll
sum3 = (cr3 * sc3) + sum2
sumcredit3 = cr1 + cr2 + cr3
credit3 = cr1 + cr2 + cr3
AVG3 = sum3 / credit3
manysub3:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag4
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag4
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG3:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum3
PRINT TAB(18); "Average of scroll = "; AVG3

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG3
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub3
END IF
tag4:
PRINT " "
PRINT "Subject 4"
INPUT "Please Enter Course No. : "; c4
INPUT "Please Enter Subject : "; s4$
INPUT "Please Enter Credit : "; cr4
INPUT "Please Enter Score : "; sc4
INPUT "Please Enter Grade : "; gr4$
REM SUM Scroll
sum4 = (cr4 * sc4) + sum3
sumcredit4 = cr1 + cr2 + cr3 + cr4
credit4 = cr1 + cr2 + cr3 + cr4
AVG4 = sum4 / credit4
manysub4:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag5
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag5
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG4:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum4
PRINT TAB(18); "Average of scroll = "; AVG4

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG4
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub4
END IF

tag5:
PRINT " "
PRINT "Subject 5"
INPUT "Please Enter Course No. : "; c5
INPUT "Please Enter Subject : "; s5$
INPUT "Please Enter Credit : "; cr5
INPUT "Please Enter Score : "; sc5
INPUT "Please Enter Grade : "; gr5$
REM SUM Scroll
sum5 = (cr5 * sc5) + sum4
sumcredit4 = cr1 + cr2 + cr3 + cr4 + cr5
credit5 = cr1 + cr2 + cr3 + cr4 + cr5
AVG5 = sum5 / credit5
manysub5:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag6
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag6
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG5:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT c5; TAB(14); s5$; TAB(38); cr5; TAB(44); sc5; TAB(52); gr5$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum5
PRINT TAB(18); "Average of scroll = "; AVG5

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG5
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub5
END IF

tag6:
PRINT " "
PRINT "Subject 6"
INPUT "Please Enter Course No. : "; c6
INPUT "Please Enter Subject : "; s6$
INPUT "Please Enter Credit : "; cr6
INPUT "Please Enter Score : "; sc6
INPUT "Please Enter Grade : "; gr6$
REM SUM Scroll
sum6 = (cr6 * sc6) + sum5
sumcredit6 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6
credit6 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6
AVG6 = sum6 / credit6
manysub6:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag7
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag7
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG6:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT c5; TAB(14); s5$; TAB(38); cr5; TAB(44); sc5; TAB(52); gr5$
PRINT c6; TAB(14); s6$; TAB(38); cr6; TAB(44); sc6; TAB(52); gr6$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum6
PRINT TAB(18); "Average of scroll = "; AVG6

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG6
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub6
END IF

tag7:
PRINT " "
PRINT "Subject 7"
INPUT "Please Enter Course No. : "; c7
INPUT "Please Enter Subject : "; s7$
INPUT "Please Enter Credit : "; cr7
INPUT "Please Enter Score : "; sc7
INPUT "Please Enter Grade : "; gr7$
REM SUM Scroll
sum6 = (cr7 * sc7) + sum6
sumcredit7 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7
credit7 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7
AVG7 = sum7 / credit7
manysub7:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag8
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag8
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG7:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT c5; TAB(14); s5$; TAB(38); cr5; TAB(44); sc5; TAB(52); gr5$
PRINT c6; TAB(14); s6$; TAB(38); cr6; TAB(44); sc6; TAB(52); gr6$
PRINT c7; TAB(14); s7$; TAB(38); cr7; TAB(44); sc7; TAB(52); gr7$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum7
PRINT TAB(18); "Average of scroll = "; AVG7

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG7
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub7
END IF

tag8:
PRINT " "
PRINT "Subject 8"
INPUT "Please Enter Course No. : "; c8
INPUT "Please Enter Subject : "; s8$
INPUT "Please Enter Credit : "; cr8
INPUT "Please Enter Score : "; sc8
INPUT "Please Enter Grade : "; gr8$
REM SUM Scroll
sum8 = (cr8 * sc8) + sum7
sumcredit8 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7 + cr8
credit8 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7 + cr8
AVG8 = sum8 / credit8
manysub8:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag9
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag9
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG8:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT c5; TAB(14); s5$; TAB(38); cr5; TAB(44); sc5; TAB(52); gr5$
PRINT c6; TAB(14); s6$; TAB(38); cr6; TAB(44); sc6; TAB(52); gr6$
PRINT c7; TAB(14); s7$; TAB(38); cr7; TAB(44); sc7; TAB(52); gr7$
PRINT c8; TAB(14); s8$; TAB(38); cr8; TAB(44); sc8; TAB(52); gr8$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum8
PRINT TAB(18); "Average of scroll = "; AVG8

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG8
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub8
END IF

tag9:
PRINT " "
PRINT "Subject 9"
INPUT "Please Enter Course No. : "; c9
INPUT "Please Enter Subject : "; s9$
INPUT "Please Enter Credit : "; cr9
INPUT "Please Enter Score : "; sc9
INPUT "Please Enter Grade : "; gr9$
REM SUM Scroll
sum9 = (cr9 * sc9) + sum8
sumcredit9 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7 + cr8 + cr9
credit6 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7 + cr8 + cr9
AVG9 = sum9 / credit9
manysub9:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag10
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag10
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG9:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT c5; TAB(14); s5$; TAB(38); cr5; TAB(44); sc5; TAB(52); gr5$
PRINT c6; TAB(14); s6$; TAB(38); cr6; TAB(44); sc6; TAB(52); gr6$
PRINT c7; TAB(14); s7$; TAB(38); cr7; TAB(44); sc7; TAB(52); gr7$
PRINT c8; TAB(14); s8$; TAB(38); cr8; TAB(44); sc8; TAB(52); gr8$
PRINT c9; TAB(14); s9$; TAB(38); cr9; TAB(44); sc9; TAB(52); gr9$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum9
PRINT TAB(18); "Average of scroll = "; AVG9

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG9
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub9
END IF

tag10:
PRINT " "
PRINT "Subject 10"
INPUT "Please Enter Course No. : "; c10
INPUT "Please Enter Subject : "; s10$
INPUT "Please Enter Credit : "; cr10
INPUT "Please Enter Score : "; sc10
INPUT "Please Enter Grade : "; gr10$
REM SUM Scroll
sum10 = (cr10 * sc10) + sum9
sumcredit10 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7 + cr8 + cr9 + cr10
credit10 = cr1 + cr2 + cr3 + cr4 + cr5 + cr6 + cr7 + cr8 + cr9 + cr10
AVG10 = sum10 / credit10
manysub10:
PRINT " "
PRINT "------------------------------------------"
INPUT " You have many Subject : Y/N "; m$
PRINT "------------------------------------------"
PRINT " "
REM many:
IF m$ = "Y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag11
ELSEIF m$ = "y" THEN
PRINT "::Please Enter to Next Subject::"
GOTO tag11
ELSEIF m$ = "N" THEN
PRINT " "
GRADEAVG10:
PRINT "--------------------------------------------------------------"
PRINT " Subject of Student "
PRINT "--------------------------------------------------------------"
PRINT "Course No. "; "Subject "; "Credit "; " Score"; " Grade"
PRINT c1; TAB(14); s1$; TAB(38); cr1; TAB(44); sc1; TAB(52); gr1$
PRINT c2; TAB(14); s2$; TAB(38); cr2; TAB(44); sc2; TAB(52); gr2$
PRINT c3; TAB(14); s3$; TAB(38); cr3; TAB(44); sc3; TAB(52); gr3$
PRINT c4; TAB(14); s4$; TAB(38); cr4; TAB(44); sc4; TAB(52); gr4$
PRINT c5; TAB(14); s5$; TAB(38); cr5; TAB(44); sc5; TAB(52); gr5$
PRINT c6; TAB(14); s6$; TAB(38); cr6; TAB(44); sc6; TAB(52); gr6$
PRINT c7; TAB(14); s7$; TAB(38); cr7; TAB(44); sc7; TAB(52); gr7$
PRINT c8; TAB(14); s8$; TAB(38); cr8; TAB(44); sc8; TAB(52); gr8$
PRINT c9; TAB(14); s9$; TAB(38); cr9; TAB(44); sc9; TAB(52); gr9$
PRINT c10; TAB(14); s10$; TAB(38); cr10; TAB(44); sc10; TAB(52); gr10$
PRINT
PRINT "--------------------------------------------------------------"

PRINT TAB(18); "Sum score = "; sum10
PRINT TAB(18); "Average of scroll = "; AVG10

END
ELSEIF m$ = "n" THEN
GOTO GRADEAVG10
ELSE
PRINT " "
PRINT "Error!...Please Enter to Menu"
GOTO manysub10
END IF

tag11:
PRINT "Error don't run"
END

Create Date : 03 มกราคม 2551		6 comments
Last Update : 3 มกราคม 2551 15:45:44 น.
Counter : 1275 Pageviews.
Share Tweet