Разработать программу для тестирования — PureBasic(Бейсик)

disel
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

Формат текстового файла

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

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

Leave a Comment