Программа тестирования в QBasic

Имеется несколько вариантов ответов, в конце показывается количество правильных ответов и оценка

формат тестового файла
кол-во вопросов Н (число)
кол-во ответов в вопросе М (число)
вопрос 1 (текст)
ответ 1 на вопрос1 (текст)
..............
ответ М на вопрос1 (текст)
номер правильного ответа на вопрос1(число)
..............
...............
вопрос Н (текст)
ответ 1 на вопрос Н (текст)
..............
ответ М на вопрос Н (текст)
номер правильного ответа на вопрос Н(число)

code: #basic
DIM n AS INTEGER, m AS INTEGER, s AS INTEGER, ans AS INTEGER
 
CLS
 
OPEN "test.txt" FOR INPUT AS #1
rem открытие файла теста
 
INPUT #1, n
rem n - колво вопросов
INPUT #1, m
rem m - колво ответов в вопросе
 
DIM a(1 TO m+2, 1 TO n) AS STRING
FOR i=1 TO m+2 
FOR j=1 TO n
INPUT #1, a(i,j)
NEXT J
NEXT i
rem заполнения массива тестом
 
CLOSE #1
rem закрытие файла теста
 
ans=0
FOR j = 1 TO n
100:
PRINT "Вопрос ", j,": ", a(1,j)
PRINT "Варианты ответов:"
FOR i=2 TO m+1
PRINT i-1, " ", a(i,j)
NEXT i
INPUT "Введите ваш вариант",s
IF s<=0 AND s>m+1 THEN
PRINT "ты чо тут самый умный? О_о"
GOTO 100
END IF
IF a(m+2,j)=STR$(s) THEN
ans=ans+1
END IF
NEXT J
rem CAM TECT
 
PRINT "количество правильных ответов ", ans
END

автор: БурундукЪ

Поделиться:

Похожие статьи: