Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 19.01.2012
Сообщений: 7

Random в программе тестирование

19.01.2012, 18:28. Показов 1131. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Доброго времени суток, я создал программу для тестирования и сделал попытку прописать random, из заявленных 19 вопросов нужно выбрать 10 хаотично ..а тест не останавливается. Может кто знает как прописать правильно random в программе ?

C++
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
 if(RadioButton1->Checked==true)i=1;//ïðîâåðÿåì, êàêîé îòâåò áûë âûáðàí
 if(RadioButton2->Checked==true)i=2;
 if(RadioButton3->Checked==true)i=3;
 if(RadioButton4->Checked==true)i=4;
 if(i==pravil_otvet)s++;//åñëè âûáðàííûé è ïðàâèëüíûé ñîâïàäàþò, òî óâåëè÷èâàåì ñóììó íà åäèíè÷êó
 i=0;//îáíóëåíèå òðåáóåòñÿ äëÿ êîððåêòíîãî ïîäñ÷åòà ñóììû
 
 RadioButton1->Checked=false;//î÷èùàåì íàæàòóþ êíîïêó
 RadioButton2->Checked=false;
 RadioButton3->Checked=false;
 RadioButton4->Checked=false;
 
 nomer++;//íîìåð âîïðîñà èçìåíÿåòñÿ ñ êàæäûì íàæàòèåì êíîïêè
 
randomize();
 nomer=random(10);        
 int raz;
 for(raz=0;raz<10;raz++)
 
 
    switch(nomer)
{
  case 1:
           Form2->Label5->Caption="ßê âèãëÿäຠêíîïêà «Çàäàòè áàçîâèé ïëàí» ?";
           Form2->Label1->Caption="1)";
           Form2->Label2->Caption="2)";
           Form2->Label3->Caption="3)";
           Form2->Label4->Caption="òóò íå ìຠòàêî¿ êíîïêè";
           pravil_otvet=2;
                   break;
 
  case 2:
           Form2->Label5->Caption="ßêèì ÷èíîì ìîæíà ïîáà÷èòè óçàãàëüíåíó ñòàòèñòèêó çà ïðîåêòîì?";
           Form2->Label1->Caption="íåîáõ³äíî âêëþ÷èòè â³äîáðàæåííÿ ñóìàðíî¿ çàâäàííÿ (Ôàéë - Ïàðàìåòðè - Çàâäàííÿ).";
           Form2->Label2->Caption="íåîáõ³äíî âêëþ÷èòè â³äîáðàæåííÿ ñóìàðíî¿ çàâäàííÿ (Ôàéë - Ïàðàìåòðè - Ôîðìóâàííÿ).";
           Form2->Label3->Caption="íåîáõ³äíî âêëþ÷èòè â³äîáðàæåííÿ ñóìàðíî¿ çàâäàííÿ (Ôàéë - Ïàðàìåòðè - Äîäàòêîâî).";
           Form2->Label4->Caption="íåîáõ³äíî âêëþ÷èòè â³äîáðàæåííÿ ñóìàðíî¿ çàâäàííÿ (Ôàéë - ³äêðèòè - Äîäàòêîâî).";
           pravil_otvet=3;
                   break;
 
  case 3:
           Form2->Label5->Caption="Ùî ïîòð³áíî ùîá ïðèçíà÷èòè ðåñóðñ íà çàâäàííÿ? ";
           Form2->Label1->Caption="Ïåðåéòè íà çàêëàäêó «Ðåäàãóâàííÿ ðåñóðñ³â», íàòèñíóòè íà ï³êòîãðàìó «Ïðèçíà÷èòè ðåñóðñè», ó â³êí³ «Ïðèçíà÷åííÿ ðåñóðñ³â»";
           Form2->Label2->Caption="Ïåðåéòè íà çàêëàäêó «Ðåñóðñ», íàòèñíóòè íà ï³êòîãðàìó «Â³äêðèòè ðåñóðñè», ó â³êí³ «Ïðèçíà÷åííÿ ðåñóðñ³â»";
           Form2->Label3->Caption="Ïåðåéòè íà çàêëàäêó «Îïòèì³çàö³ÿ ðåñóðñ³â», íàòèñíóòè íà ï³êòîãðàìó «Ïðèçíà÷èòè ðåñóðñè», ó â³êí³ «Ïðèçíà÷åííÿ ðåñóðñ³â»";
           Form2->Label4->Caption="Ïåðåéòè íà çàêëàäêó «Ðåñóðñ», íàòèñíóòè íà ï³êòîãðàìó «Ïðèçíà÷èòè ðåñóðñè», ó â³êí³ «Ïðèçíà÷åííÿ ðåñóðñ³â»";
           pravil_otvet=4;
                   break;
 
  case 4:
           Form2->Label5->Caption="ßê âèâåñòè êîëîíêó «Íàçâè ðåñóðñ³â» ùîá ïðèçíà÷èòè ðåñóðñ?";
           Form2->Label1->Caption="Äëÿ öüîãî ïîòð³áíî ïîñòàâèòè õðåñòèêè ó ðåñóðñ³â, ÿê³ áóäóòü âèêîíóâàòè ðîáîòè.";
           Form2->Label2->Caption="Äëÿ öüîãî ïîòð³áíî âèä³ëèòè ðåñóðñè, ÿê³ áóäóòü âèêîíóâàòè ðîáîòè.";
           Form2->Label3->Caption="Äëÿ öüîãî ïîòð³áíî ïîñòàâèòè ãàëî÷êè ó ðåñóðñ³â, ÿê³ áóäóòü âèêîíóâàòè ðîáîòè.";
           Form2->Label4->Caption="²íøèé âàð³àíò.";
           pravil_otvet=3;
                   break;
 
  case 5:
           Form2->Label5->Caption="Ùî ïîòð³áíî äëÿ òîãî, ùîá ä³çíàòèñÿ ÿêèé ðåñóðñ ïåðåâàíòàæåíèé?";
           Form2->Label1->Caption="ïîòð³áíî ïåðåìêíóòèñÿ äî ïîäàííÿ «Ñïèñîê ðåñóðñ³â».";
           Form2->Label2->Caption="ïîòð³áíî ïåðåìêíóòèñÿ äî ïîäàííÿ «Àðêóø ðåñóðñ³â».";
           Form2->Label3->Caption="ïîòð³áíî ïåðåêëþ÷èòèñÿ â ïîäàííÿ «Ïîäàííÿ ðåñóðñ³â».";
           Form2->Label4->Caption="²íøèé âàð³àíò.";
           pravil_otvet=2;
                   break;
 
  case 6:
           Form2->Label5->Caption="Ïåðåâàíòàæåíèé ðåñóðñ áóäå âèä³ëåíî?";
           Form2->Label1->Caption="ñèí³ì êîëüðîì";
           Form2->Label2->Caption="çåëåíèì êîëüðîì";
           Form2->Label3->Caption="ïóðïóðíèì êîëüðîì";
           Form2->Label4->Caption="÷åðâîíèì êîëüðîì";
           pravil_otvet=4;
                   break;
 
  case 7:
 
           Form2->Label5->Caption="Ðó÷íå ïëàíóâàííÿ îçíà÷àº:";
           Form2->Label1->Caption="ùî çàâäàííÿ öüîãî òèïó ìîæíà ðîçòàøóâàòè â áóäü-ÿêîìó ì³ñö³ ðîçêëàäó áåç çì³íè ¿õ ðîçêëàäó â ïðîåêò³.";
           Form2->Label2->Caption="ùî çàâäàííÿ öüîãî òèïó ìîæíà ðîçòàøóâàòè â ïîïåðåäíüîìó â³êí³ ðîçêëàäó áåç çì³íè ¿õ ðîçêëàäó â ïðîåêò³.";
           Form2->Label3->Caption="ùî çàâäàííÿ öüîãî òèïó ìîæíà ðîçòàøóâàòè â áóäü-ÿêîìó ì³ñö³ ðîçêëàäó ³ç çì³íîþ ¿õ ðîçêëàäó â ïðîåêò³.";
           Form2->Label4->Caption="ùî çàâäàííÿ öüîãî òèïó ìîæíà ðîçòàøóâàòè íå â áóäü-ÿêîìó ì³ñö³ ðîçêëàäó áåç çì³íè ¿õ ðîçêëàäó â ïðîåêò³.";
           pravil_otvet=1;
                   break;
 
  case 8:
           Form2->Label5->Caption="Íà ùî ïîòð³áíî îð³ºíòóâàòèñü êîðèñòîâà÷ó, ùîá âèçíà÷èòè ïîñë³äîâí³ñòü çàäà÷?";
           Form2->Label1->Caption="ïð³îð³òåòè çàäà÷ òà îñîáëèâîñò³ òåõí³÷íîãî ñòàíó ÏÊ";
           Form2->Label2->Caption="ïð³îð³òåòè êîðèñòîâà÷à òà îñîáëèâîñò³ ëþäñüêî¿ ïîäîáè";
           Form2->Label3->Caption="ïð³îð³òåòè çàäà÷ òà îñîáëèâîñò³ òåõíîëîã³é";
           Form2->Label4->Caption="ïð³îð³òåòè çàäà÷";
           pravil_otvet=3;
                   break;
 
  case 9:
           Form2->Label5->Caption="Ðèçèê ïðîåêòà – öå?";
           Form2->Label1->Caption="Íåïåðåäáà÷åíà ïîä³ÿ àáî óìîâà";
           Form2->Label2->Caption="Íåïåðåäáà÷åíèé ³íôîðìàö³éíèé åëåìåíò àáî óìîâà";
           Form2->Label3->Caption="Íåïåðåäáà÷åíà çàäà÷à àáî óìîâà";
           Form2->Label4->Caption="Íåïåðåäáà÷åíà ïîä³ÿ àáî çíà÷åííÿ";
           pravil_otvet=1;
                   break;
 
  case 10:
           Form2->Label5->Caption="Ç ÷îãî ïîâèíåí ïî÷èíàòèñÿ ïðîåêò?";
           Form2->Label1->Caption="Ç ôîðìóëþâàííÿ ïîñòàâëåíî¿ ö³ë³.";
           Form2->Label2->Caption="Ç ôîðìóëþâàííÿ  àíåêäîòó.";
           Form2->Label3->Caption="Ç ôîðìóëþâàííÿ áàéêè.";
           Form2->Label4->Caption="Ç ôîðìóëþâàííÿ â³ðøà.";
           pravil_otvet=1;
                   break;
   case 11:
           Form2->Label5->Caption="×èì õàðàêòåðèçóºòüñÿ êîæíèé ïðîåêò?";
           Form2->Label1->Caption="ïðèðîäí³ì öèêëîì";
           Form2->Label2->Caption="òâàðèííèì öèêëîì";
           Form2->Label3->Caption="³íøå";
           Form2->Label4->Caption="æèòòºâèì öèêëîì";
           pravil_otvet=4;
                   break;
   case 12:
           Form2->Label5->Caption="Ùî íå ïîïàäຠï³ä ä³þ ïðîåêòó?";
           Form2->Label1->Caption="ñòàòèñòè÷íà ä³ÿëüí³ñòü";
           Form2->Label2->Caption="àëãîðèòì³÷íà ä³ÿëüí³ñòü";
           Form2->Label3->Caption="îïåðàö³éíà ä³ÿëüí³ñòü";
           Form2->Label4->Caption="ìàòåìàòè÷íà ä³ÿëüí³ñòü";
           pravil_otvet=3;
                   break;
 
   case 13:
           Form2->Label5->Caption="Ðîçðàõóíîê âåðñ³¿ ïðîåêòà ìåòîäîì Ìîíòå Êàðëî á³ëüø òî÷í³ø³ í³æ PERT,ïðèêë. â Microsoft Project?";
           Form2->Label1->Caption="Turbo Pascal";
           Form2->Label2->Caption="Builder";
           Form2->Label3->Caption="Delphi";
           Form2->Label4->Caption="Turbo Risk Manager";
           pravil_otvet=4;
                   break;
   case 14:
           Form2->Label5->Caption="Äëÿ ìîäóëþâàííÿ ðèçèê³â â ïðîåêò³ ïîòð³áíà ðîçðîáêà âåðñ³¿ ðåàë³çàö³¿ ïðîåêòà, ÿêà êðàùà ?";
           Form2->Label1->Caption="ïîìíîæèòè íà 2,ïîìíîæèòè íà ï³, ïîìíîæèòè íà 4-5";
           Form2->Label2->Caption="ïîìíîæèòè íà 3,ïîìíîæèòè íà ï³, ïîìíîæèòè íà 2-6";
           Form2->Label3->Caption="ïîìíîæèòè íà 1,ïîìíîæèòè íà ï³, ïîìíîæèòè íà 3-5";
           Form2->Label4->Caption="ïîìíîæèòè íà 4,ïîìíîæèòè íà ï³, ïîìíîæèòè íà 2-5";
           pravil_otvet=1;
                   break;
   case 15:
           Form2->Label5->Caption="Â Microsoft Project ïðîñòî äîäàþòü...";
           Form2->Label1->Caption="Buffer time â 50%";
           Form2->Label2->Caption="Buffer time â 30%";
           Form2->Label3->Caption="Buffer time â 25%";
           Form2->Label4->Caption="Buffer time â 10%";
           pravil_otvet=2;
                   break;
   case 16:
           Form2->Label5->Caption="ßêà ïðàâåëüíà ñõåìà PERT âè÷èñëåííÿ ðåàëüíîãî ñðîêó?";
           Form2->Label1->Caption="Ðåàëüíèé_Ñðîê=(Îïòèì³ñòè÷íûé_Ñðîê-4*Î÷³êóâàíèé_Ñðîê+Ïåñèì³ñòè÷íèé_Ñðîê)*6.";
           Form2->Label2->Caption="Ðåàëüíèé_Ñðîê=(Îïòèì³ñòè÷íûé_Ñðîê*4*Î÷³êóâàíèé_Ñðîê-Ïåñèì³ñòè÷íèé_Ñðîê)+6.";
           Form2->Label3->Caption="Ðåàëüíèé_Ñðîê=(Îïòèì³ñòè÷íûé_Ñðîê/4*Î÷³êóâàíèé_Ñðîê*Ïåñèì³ñòè÷íèé_Ñðîê)-6.";
           Form2->Label4->Caption="Ðåàëüíèé_Ñðîê=(Îïòèì³ñòè÷íûé_Ñðîê+4*Î÷³êóâàíèé_Ñðîê+Ïåñèì³ñòè÷íèé_Ñðîê)/6.";
           pravil_otvet=4;
                   break;
   case 17:
           Form2->Label5->Caption="Éìîâ³ðí³ñòü óñï³øíî¿ ðåàë³çàö³¿ ïðîåêòà ñòàíîâèòü ?";
           Form2->Label1->Caption="7-10%";
           Form2->Label2->Caption="20-38%";
           Form2->Label3->Caption="25-35%";
           Form2->Label4->Caption="45-50%";
           pravil_otvet=2;
                   break;
   case 18:
           Form2->Label5->Caption="Ïðîåêò ìຠáàãàòî ðèçèê³â.ßê ç íèìè áîðîòèñÿ?";
           Form2->Label1->Caption="ͳ÷îãî íå ïîòð³áíî ðàõóâàòè.";
           Form2->Label2->Caption="²íøèé âàð³àíò.";
           Form2->Label3->Caption="Ïîòð³áíî ï³äðàõóâàòè ÿê³ âèäè ðèçèê³â âèçèâàþòü íàéá³ëüøó ê-ñòü ïðîáëåì";
           Form2->Label4->Caption="Ïîòð³áíî ï³äðàõóâàòè ÿê³ âèäè ðèçèê³â íå áóäóòü âèçèâàòè íàéá³ëüøó ê-ñòü ïðîáëåì.";
           pravil_otvet=3;
                   break;
   case 19:
           Form2->Label5->Caption="Äëÿ ìîäåëþâàííÿ ðèçèê³â ïðîåêòó ïîòð³áíî âèêîðèñòîâóâàòè:";
           Form2->Label1->Caption="îïòèì³ñòè÷íó ðåàë³çàö³þ ïðîåêòó ";
           Form2->Label2->Caption="êðàùó";
           Form2->Label3->Caption="ìîæëèâî ïðàâåëüíóþ";
           Form2->Label4->Caption="³íøå";
           pravil_otvet=1;
                   break;
 
   case 20:
           BitBtn1->Enabled=false;
           RadioButton1->Enabled=false;//äåëàåì êíîïêè "íå íàæèìàåìûìè", ÷òîáû ïîëüçîâàòåëü íàæàë íà "çàêîí÷èòü òåñò"
           RadioButton2->Enabled=false;
           RadioButton3->Enabled=false;
           RadioButton4->Enabled=false;
}
}
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
19.01.2012, 18:28
Ответы с готовыми решениями:

На что можно заменить random в данной программе?
Помогите пожалуйста...На что можно заменить random в данной программе? const n=10; type mas = array of integer; ...

Что не так с 'Random' или There is no overloaded version of 'Random' that can be called with these arguments
Доброго времени суток! Я с программированием на &quot;Вы&quot;, поэтому очень прошу доходчиво объяснить, что не так с этой строчкой? Выводит ошибку:...

Random, повторы при static Random(1 seed)
Добрый вечер. Использую private static readonly Random, так как крутится в цикле и если убрать static, будут повторы даже в указанием...

2
wtf!?
 Аватар для Flyer
750 / 281 / 25
Регистрация: 21.05.2010
Сообщений: 732
19.01.2012, 18:41
странно ты как то сделал
- свитч твой вообще не в цикле
- nomer=random(19); т.к. вопросов 19 .
- кейсы сделай с 0, т.к. nomer=random(19) это от 0 до 18, то есть 19 вариантов
- вопросы могут повторятся, и скорее всего будут
а вообще, как по мне, то правильнее сначала задать все вопросы, а потом о нажатию кнопки проверять ответы
0
 Аватар для QVO
652 / 462 / 80
Регистрация: 26.10.2010
Сообщений: 1,263
Записей в блоге: 4
19.01.2012, 18:47
https://www.cyberforum.ru/post222553.html
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
19.01.2012, 18:47
Помогаю со студенческими работами здесь

У меня непонятки с методами Math.random() и Random()
Задача : заполнить массив из 15 элементов случайным образом вещественными значениями х (-5 &lt;= x &lt;= 5) class Massiv { ...

Когда твой Random совсем не Random
Мой код ведет себя весьма странно. У меня есть список экземпляров класса в котором (Уж простите что я такое наделал) есть экземпляр другого...

Random и объекты класса (pseudo random)
Всем привет. Есть класс: typedef unsigned int ui; class Player { private: ui health;

Переделать Math.random() в random()
public static void CompMove() { int x = (int) (Math.random() * 3), y = (int) (Math.random() * 3); while (field == '0' || field ==...

Удаленное тестирование приложение/Пересылка на тестирование
Если кто-то написал приложение под андроид и захочет показать другому человеку, то достаточно отослать apk. А как обстоит с этим дело в...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru