Программа тестирования — Basic(Бейсик)

disel

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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
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

Похожие записи/страницы:

Leave a Comment