Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Resi
0 / 0 / 0
Регистрация: 11.07.2013
Сообщений: 30
#1

Написать программу тестирования

28.05.2014, 10:22. Просмотров 625. Ответов 3
Метки нет (Все метки)

Помогите пожалуйста
написать программу, точнее тест из 10-20 вопросов.
при работе она должна выбрать случайным образом 5 вопросов,без повторов.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2014, 10:22
Ответы с готовыми решениями:

Написать программу тестирования
Ребят помогите плиз!!!!! нужна программа... так чтобы не первой странице было...

не могу написать написать программу на вычисление U=max
вот условия: даны числа x,y,z. Вычислить U=max. (z,min (y,x)). Помогите,...

написать программу
написать программу для вычисления значения у. Подсчет ведется до тех пор пока...

Написать программу
Дана функция y=5x^3-∛x+(|x-5|)/x. Найти значение данной функции во всех х,...

Помогите написать программу
Помогите написать программу для решения задачи на Бейсике

3
Quiet Snow
4403 / 1287 / 375
Регистрация: 25.04.2010
Сообщений: 3,286
28.05.2014, 12:58 #2
Был тест - в поиск. Случайность сами добавите.

Помогите пожалуйста
Это не помощь, это = сделай за меня.
1
gehh
Заблокирован
28.05.2014, 13:10 #3
Вот код, не знаю, тот ли который вам надо.
Вы должны сделать два текстовых файла
1) файл с именем TEST.txt должен содержать 20 вопросов
и после каждого вопроса 4 ответа. То есть ровно 100 строк.
(1 вопрос - строка и каждый ответ на своей строке)
2) файл с именем TEST2.txt должен содержать номер правильного
ответа. Итого ровно 20 строк. (номера - это числа 1, 2, 3, 4). Все.
(программа проверена)
QBasic/QuickBASIC
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
DEFSTR S-T
DEFINT I-O
OPTION BASE 1
DIM n(5)
DIM o(20)
DIM s(5, 5)
CLS
RANDOMIZE TIMER
OPEN "TEST.txt" FOR INPUT AS #1
OPEN "TEST2.txt" FOR INPUT AS #2
 
FOR i = 1 TO 20
   LINE INPUT #2, so
   o(i) = VAL(so)
NEXT i
CLOSE #2
 
m = 20
 
   n(1) = m * RND + 1
100
   n(2) = m * RND + 1
   IF n(2) = n(1) THEN 100
200
   n(3) = m * RND + 1
   IF n(3) = n(1) OR n(3) = n(2) THEN 200
300
   n(4) = m * RND + 1
   IF n(4) = n(1) OR n(4) = n(2) OR n(4) = n(3) THEN 300
400
   n(5) = m * RND + 1
   IF n(5) = n(1) OR n(5) = n(2) OR n(5) = n(3) OR n(5) = n(4) THEN 400
 
FOR i = 1 TO 4
   FOR j = 1 TO 4
      IF n(j) > n(j + 1) THEN SWAP n(j), n(j + 1)
   NEXT j
NEXT i
 
j = 1
FOR i = 1 TO 20
   LINE INPUT #1, t1
   LINE INPUT #1, t2
   LINE INPUT #1, t3
   LINE INPUT #1, t4
   LINE INPUT #1, t5
   IF i = n(j) THEN
      s(j, 1) = t1
      s(j, 2) = t2
      s(j, 3) = t3
      s(j, 4) = t4
      s(j, 5) = t5
      j = j + 1
      IF j = 6 THEN EXIT FOR
   END IF
NEXT i
CLOSE #1
 
l = 0
FOR i = 1 TO 5
   PRINT
   PRINT "VOPROS ? "; s(i, 1)
   PRINT "1. "; s(i, 2)
   PRINT "2. "; s(i, 3)
   PRINT "3. "; s(i, 4)
   PRINT "4. "; s(i, 5)
   INPUT "Vvedite N OTVETA"; k
   IF k = o(n(i)) THEN l = l + 1
NEXT i
 
SELECT CASE l
   CASE 1: PRINT "OCENKA = "; l
   CASE 2: PRINT "OCENKA = "; l
   CASE 3: PRINT "OCENKA = "; l
   CASE 4: PRINT "OCENKA = "; l
   CASE 5: PRINT "OCENKA = "; l
END SELECT
CLOSE #1
END
Удачи вам!
0
Quiet Snow
4403 / 1287 / 375
Регистрация: 25.04.2010
Сообщений: 3,286
28.05.2014, 14:40 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Быстро гехх вооружается теми фишками, которые видит. Эх мне бы в его года интернет...

QBasic/QuickBASIC
1
INPUT "Vvedite N OTVETA"; k
gehh, это мучение пользователя, надо UI нормально делать.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 14:40

[B]написать программу в екселе[/B]
задачу надо сделать в екселе во вьюжал бейсике надо написать программу для...

Написать программу по заданию
Здравствуйте помогите написать программу на QBasic Задание такое Дан...

Написать программу по заданию
В массиве X(N) найти произведение нулевых элементов, количество элементов,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru