[英]Subject reviewer quiz with wrong total points
我正在用匯編語言創建一個基本的測驗程序。 我打算答錯扣1分,答對加1分。 我的 output 不准確。 我總是得到錯誤的總分。
org 100h
.data
MSG1 DB '..........WELCOME TO SUBJECT REVIEWER SYSTEM..........$'
MSG2 DB 'RULES : $'
MSG3 DB 'FOR EVERY CORRECT PLUS 1 POINT $'
MSG4 DB 'FOR EVERY INCORRECT MINUS 1 POINT $'
MSG5 DB 'PRESS ENTER TO START THE QUIZ : $'
MSG6 DB 'RIGHT ANSWER $'
MSG7 DB 'WRONG ANSWER $'
MSG8 DB 'YOU SUCCESSFULLY COMPLETED THE QUIZ $'
MSG9 DB 'YOUR TOTAL POINTS IS: $'
MSG10 DB 'PRESS 1 TO REATTEMPT QUIZ $'
MSG11 DB '*******THANK YOU******* $'
Q1 DB '1. 1+1=? $'
QA1 DB 'A) 2 B) 5 C) 23 $'
Q2 DB '2. 1+1=? $'
QA2 DB 'A) 3 B) 2 C) 65 $'
Q3 DB '3. 1+1=? $'
QA3 DB 'A) 2 B) 44 C) 23 $'
Q4 DB '4. 1+1=? $'
QA4 DB 'A) 2 B) 5 C) 45 $'
Q5 DB '5. 1+1=? $'
QA5 DB 'A) 2 B) 5 C) 56 $'
Q6 DB '6. 1+1=? $'
QA6 DB 'A) 2 B) 4 C) 5 $'
Q7 DB '7. 1+1=? $'
QA7 DB 'A) 2 B) 5 C) 23 $'
Q8 DB '8. 1+1=? $'
QA8 DB 'A) 2 B) 5 C) 7 $'
Q9 DB '9. 1+1=? $'
QA9 DB 'A) 2 B) 5 C) 23 $'
Q10 DB '10. 1+1=? $'
QA10 DB 'A) 2 B) 5 C) 4 $'
.code
MAIN PROC
MOV AX,@DATA
MOV DS,AX
LEA DX,MSG1
MOV AH,9
INT 21H
CALL NL
LEA DX,MSG2
MOV AH,9
INT 21H
CALL NL
LEA DX,MSG3
MOV AH,9
INT 21H
CALL NL
LEA DX,MSG4
MOV AH,9
INT 21H
CALL NL
START:
MOV BL, 0
CALL NL
LEA DX,MSG5
MOV AH,9
INT 21H
MOV AH, 1
INT 21H
CMP AL, 0DH
JE QSN1
JNE START
QSN1:
CALL NL
LEA DX,Q1
MOV AH,9
INT 21H
CALL NL
LEA DX,QA1
MOV AH,9
INT 21H
CALL NL
MOV AH, 1
INT 21H
CMP AL, 'A'
JE QSN2
JNE QSNW2
QSN2:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN2
CALL INPUT
CMP AL, 'B'
JE QSN3
JNE QSNW3
QSNW2:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN2
CALL INPUT
CMP AL, 'A'
JE QSN3
JNE QSNW3
; Q3
QSN3:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN3
CALL INPUT
CMP AL, 'A'
JE QSN4
JNE QSNW4
QSNW3:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN3
CALL INPUT
CMP AL, 'A'
JE QSN4
JNE QSNW4
; Q4
QSN4:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN4
CALL INPUT
CMP AL, 'A'
JE QSN5
JNE QSNW5
QSNW4:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN4
CALL INPUT
CMP AL, 'A'
JE QSN5
JNE QSNW5
; Q5
QSN5:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN5
CALL INPUT
CMP AL, 'A'
JE QSN6
JNE QSNW6
QSNW5:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN5
CALL INPUT
CMP AL, 'A'
JE QSN6
JNE QSNW6
; Q6
QSN6:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN6
CALL INPUT
CMP AL, 'A'
JE QSN7
JNE QSNW7
QSNW6:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN6
CALL INPUT
CMP AL, 'A'
JE QSN7
JNE QSNW7
; Q7
QSN7:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN7
CALL INPUT
CMP AL, 'A'
JE QSN8
JNE QSNW8
QSNW7:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN7
CALL INPUT
CMP AL, 'A'
JE QSN8
JNE QSNW8
; Q8
QSN8:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN8
CALL INPUT
CMP AL, 'A'
JE QSN9
JNE QSNW9
QSNW8:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN8
CALL INPUT
CMP AL, 'A'
JE QSN9
JNE QSNW9
; Q9
QSN9:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN9
CALL INPUT
CMP AL, 'A'
JE QSN10
JNE QSNW10
QSNW9:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN9
CALL INPUT
CMP AL, 'A'
JE QSN10
JNE QSNW10
; Q10
QSN10:
CALL NL
LEA DX,MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN10
CALL INPUT
CMP AL, 'A'
JE EXIT
JNE EXITW
QSNW10:
CALL NL
LEA DX,MSG7
MOV AH,9
INT 21H
DEC BL
CALL NL
CALL QN10
CALL INPUT
CMP AL, 'A'
JE EXIT
JNE EXITW
EXIT:
CALL NL
LEA DX, MSG6
MOV AH,9
INT 21H
INC BL
CALL NL
CALL NL
LEA DX, MSG8
MOV AH,9
INT 21H
CALL NL
LEA DX, MSG9
MOV AH,9
INT 21H
ADD BL, 48
CMP BL,57
JG TEN
MOV AH, 2
MOV DL, BL
INT 21H
JMP EXIT1
EXITW:
CALL NL
LEA DX, MSG7
MOV AH,9
INT 21H
DEC BL
CALL NL
CALL NL
LEA DX, MSG8
MOV AH,9
INT 21H
CALL NL
CALL NL
LEA DX, MSG9
MOV AH,9
INT 21H
ADD BL,48
MOV AH,2
MOV DL, BL
INT 21H
JMP EXIT1
TEN:
MOV AH,2
MOV DL,"1"
INT 21H
MOV DL, "0"
INT 21H
JMP EXIT1
NL:
MOV AH,2
MOV DL, 0AH
INT 21H
MOV DL, 0DH
INT 21H
RET
QN2:
LEA DX,Q2
MOV AH,9
INT 21H
CALL NL
LEA DX,QA2
MOV AH,9
INT 21H
RET
QN3:
LEA DX,Q3
MOV AH,9
INT 21H
CALL NL
LEA DX,QA3
MOV AH,9
INT 21H
RET
QN4:
LEA DX,Q4
MOV AH,9
INT 21H
CALL NL
LEA DX,QA4
MOV AH,9
INT 21H
RET
QN5:
LEA DX,Q5
MOV AH,9
INT 21H
CALL NL
LEA DX,QA5
MOV AH,9
INT 21H
RET
QN6:
LEA DX,Q6
MOV AH,9
INT 21H
CALL NL
LEA DX,QA6
MOV AH,9
INT 21H
RET
QN7:
LEA DX,Q7
MOV AH,9
INT 21H
CALL NL
LEA DX,QA7
MOV AH,9
INT 21H
RET
QN8:
LEA DX,Q8
MOV AH,9
INT 21H
CALL NL
LEA DX,QA8
MOV AH,9
INT 21H
RET
QN9:
LEA DX,Q9
MOV AH,9
INT 21H
CALL NL
LEA DX,QA9
MOV AH,9
INT 21H
RET
QN10:
LEA DX,Q10
MOV AH,9
INT 21H
CALL NL
LEA DX,QA10
MOV AH,9
INT 21H
RET
INPUT:
CALL NL
MOV AH, 1
INT 21H
RET
EXIT1:
CALL NL
CALL NL
LEA DX,MSG10
MOV AH,9
INT 21H
MOV AH,1
INT 21H
CMP AL,'1'
JE START
CALL NL
CALL NL
LEA DX,MSG11
MOV AH,9
INT 21H
MOV AH, 4CH
INT 21H
MAIN ENDP
END MAIN
這本身不是直接的答案,但它可能會解決您的問題。 我發現用一點間接的方式寫這樣的東西要容易得多。 與其一遍又一遍地重復相同的代碼結構,您實際上可以使被問到的問題本身成為一個變量。 它預先需要一些額外的數據,但您可能會根據測驗問題的數量保存更多數據。 (免責聲明:我還沒有對此進行測試,但如果您認為它會有所幫助,請嘗試一下。)
org 100h
.data
TOTAL_QUESTIONS equ 10
MSG1 DB '..........WELCOME TO SUBJECT REVIEWER SYSTEM..........$'
MSG2 DB 'RULES : $'
MSG3 DB 'FOR EVERY CORRECT PLUS 1 POINT $'
MSG4 DB 'FOR EVERY INCORRECT MINUS 1 POINT $'
MSG5 DB 'PRESS ENTER TO START THE QUIZ : $'
MSG6 DB 'RIGHT ANSWER $'
MSG7 DB 'WRONG ANSWER $'
MSG8 DB 'YOU SUCCESSFULLY COMPLETED THE QUIZ $'
MSG9 DB 'YOUR TOTAL POINTS IS: $'
MSG10 DB 'PRESS 1 TO REATTEMPT QUIZ $'
MSG11 DB '*******THANK YOU******* $'
Q1 DB '1. 1+1=? $'
QA1 DB 'A) 2 B) 5 C) 23 $'
Q2 DB '2. 1+1=? $'
QA2 DB 'A) 3 B) 2 C) 65 $'
Q3 DB '3. 1+1=? $'
QA3 DB 'A) 2 B) 44 C) 23 $'
Q4 DB '4. 1+1=? $'
QA4 DB 'A) 2 B) 5 C) 45 $'
Q5 DB '5. 1+1=? $'
QA5 DB 'A) 2 B) 5 C) 56 $'
Q6 DB '6. 1+1=? $'
QA6 DB 'A) 2 B) 4 C) 5 $'
Q7 DB '7. 1+1=? $'
QA7 DB 'A) 2 B) 5 C) 23 $'
Q8 DB '8. 1+1=? $'
QA8 DB 'A) 2 B) 5 C) 7 $'
Q9 DB '9. 1+1=? $'
QA9 DB 'A) 2 B) 5 C) 23 $'
Q10 DB '10. 1+1=? $'
QA10 DB 'A) 2 B) 5 C) 4 $'
Questions_Lookup:
dw Q1, Q2, Q3, Q4, Q5, Q6, Q7, Q8, Q9, Q10
QuestionAnswers_Lookup:
dw QA1, QA2, QA3, QA4, QA5, QA6, QA7, QA8, QA9, QA10
Answers_Lookup:
db "ABAAAAAAAA"
然后在您的代碼中,您可以在打印完規則后執行此操作,而不是單獨處理每個問題,您可以使其成為一個循環。
LEA BX, Questions_Lookup
LEA SI, QuestionAnswers_Lookup
LEA DI, Answers_Lookup
MOV CX, TOTAL_QUESTIONS ;constant 10 (adjust this yourself based on how many questions you have.)
XOR BP,BP ;correct answer count
Ask_Loop:
MOV DX,[BX] ;get the address of Q1
MOV AH,9
INT 21H ;PRINT THE QUESTION
CALL NL
MOV DX,[SI]
MOV AH,9
INT 21H ;PRINT THE ANSWER
CALL NL
CALL INPUT
CMP AL,[DI]
JNE WRONG
;RIGHT
ADD BP,1
JMP NEXTQUESTION
WRONG:
SUB BP,1
NEXTQUESTION:
ADD BX,2 ;next question
ADD SI,2 ;next answer list
INC DI ;next answer
loop Ask_Loop
;rest of program.
我打算答錯扣1分,答對加1分。
你不遵守自己的規則!
看看你如何處理第一個(“A”是正確的)和第二個(“B”是正確的)問題:
CMP AL, 'A'
JE QSN2 <<<< "A" is indeed correct for Q1
JNE QSNW2
QSN2:
CALL NL
LEA DX,MSG6 ; "correct"
MOV AH,9
INT 21H
INC BL
CALL NL
CALL QN2
CALL INPUT
CMP AL, 'B'
JE QSN3 <<<< Here "B" is correct for Q2
JNE QSNW3
QSNW2:
CALL NL
LEA DX,MSG7 ; "wrong"
MOV AH,9
INT 21H
INC BL <<<< Here you award a point instead of deducting
CALL NL
CALL QN2
CALL INPUT
CMP AL, 'A'
JE QSN3 <<<< But here "A" is correct for (the same) Q2
JNE QSNW3
INC BL
而應該使用DEC BL
。因為您的代碼結構不佳,所以您迷路了。 考慮@puppydrum64 提出的解決方案。 我沒有測試它,但它看起來很有希望......
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.