Четыре варианта выбора ответа - один правильный

@Dionisius · Регистрация: 19.10.2013

Студворк — интернет-сервис помощи студентам

У меня появилась идея создать проект в C++ Builder типа "Кто хочет стать миллионером" (5 вопросов, 4 варианта ответа)

С написанием кода возникли проблемы

@Dionisius · 24.05.2015, 20:49 **[ТС]**

Скриншот см. выше

@demon_7 · 25.05.2015, 08:27

Сообщение от Dionisius

С написанием кода возникли проблемы

Проблемы возникли так же с описанием Вашей проблемы.
Какую информацию я могу увидеть на скриншоте:
Есть 1 Label, 1 Button и 4 RadioButton. Проблем в коде не заметил.

@D1973 · 25.05.2015, 08:36

По сути - это обыкновенная программа тестирования. Примеров на форуме масса

Сообщение от Dionisius

С написанием кода возникли проблемы

Какие именно?

@_Dimon_ · 25.05.2015, 08:43

Сообщение от D1973

Какие именно?

наверное очень большие, так как форма есть, а кода нет

Добавлено через 39 секунд
зато дизайн красивый

@D1973 · 25.05.2015, 08:57

Не по теме:

Сообщение от _Dimon_

зато дизайн красивый

:D:D:D

Сообщение от Dionisius

У меня появилась идея

Вот еще бы идея появилась хоть какую-то книжку по теме прочитать... 90% вопросов бы отпали сами собой...

Dionisius, Если Ваши проблемы с кодом сводятся к банальному "сделайте за меня" - то это как бы не в тему. Если же есть конкретный вопрос, плана: я пишу то-то и то-то, должно быть так-то и так-то, но у меня не так, а вот так - тогда задавайте свой вопрос, выкладывайте код, который написали - поможем, подскажем...

@Dionisius · 25.05.2015, 23:15 **[ТС]**

Код будет готов к вечеру

Добавлено через 13 часов 58 минут
Вот что я набросал:

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
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
TStringList* list = new TStringList;
 
int nom = 1;
int otv = 0;
int bal = 0;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  nom = 1;
  otv = 0;
  bal = 0;
  Edit1->Text = "";
  Memo1->Clear();
  Memo2->Clear();
  list->Clear();
  Button3->Visible = false;
  RadioGroup1->Visible = true;
  Label1->Visible = true;
  //первый вопрос
  if(nom == 1)
    {
    otv = 1; //правильный ответ индекс
    Label1->Caption = "Назовите первого президента США";
    RadioGroup1->Items->Strings[0]="Барак Обама";
    RadioGroup1->Items->Strings[1]="Билл Клинтон";
    RadioGroup1->Items->Strings[2]="Джордж Вашингтон";
    RadioGroup1->Items->Strings[2]="Франклин Делано Рузвельт";
    nom++;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Button2->Visible = false;
  RadioGroup1->ItemIndex = -1;
 
  //второй вопрос
  if(nom == 2)
    {
    otv = 0; //правильный ответ индекс
    Label1->Caption = "Кто основал социальную сеть Facebook?";
    RadioGroup1->Items->Strings[0]="Билл Гейтс";
    RadioGroup1->Items->Strings[1]="Марк Цукерберг";
    RadioGroup1->Items->Strings[2]="Стив Джобс";
    RadioGroup1->Items->Strings[3]="Тим Кук";
    nom++;
    return;
    }
 
  //третий вопрос
  if(nom == 3)
    {
    otv = 2; //правильный ответ индекс
    Label1->Caption = "В какой стране запрещено женщинам находиться за рулем?";
    RadioGroup1->Items->Strings[0]="Иран";
    RadioGroup1->Items->Strings[1]="Нигерия";
    RadioGroup1->Items->Strings[2]="Саудовская Аравия";
    RadioGroup1->Items->Strings[2]="Северная Корея";
    nom++;
    return;
    }
 
  //четвертый вопрос
  if(nom == 4)
    {
    otv = 0; //правильный ответ индекс
    Label1->Caption = "В каком году была отменена смертная казнь в РФ?";
    RadioGroup1->Items->Strings[0]="1996";
    RadioGroup1->Items->Strings[1]="1997";
    RadioGroup1->Items->Strings[2]="1998";
    RadioGroup1->Items->Strings[2]="1999";
    nom++;
    return;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
  Button2->Visible = true;
 
  //обработка ответа на первый вопрос
  if(nom == 2)
    {
    list->Add("Джордж Вашингтон");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("Барак Обама");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("Билл Клинтон");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("Джордж Вашингтон");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("Франклин Делано Рузвельт");
      }
    }
 
 //обработка ответа на второй вопрос
  if(nom == 3)
    {
    list->Add("Марк Цукерберг");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("Билл Гейтс");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("Марк Цукерберг");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("Стив Джобс");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("Тим Кук");
      }
    }
 
  //обработка ответа на третий вопрос
  if(nom == 4)
    {
    list->Add("Саудовская Аравия");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("Иран");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("Нигерия");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("Саудовская Аравия");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("Северная Корея");
      }
    }
 
  //обработка ответа на четвертый вопрос
  if(nom == 5)
    {
    list->Add("1996");//правильный ответ
    if(RadioGroup1->ItemIndex == otv)
      {
      bal++;
      }
    if(RadioGroup1->ItemIndex == 0)
      {
      Memo1->Lines->Add("1996");
      }
    if(RadioGroup1->ItemIndex == 1)
      {
      Memo1->Lines->Add("1997");
      }
    if(RadioGroup1->ItemIndex == 2)
      {
      Memo1->Lines->Add("1998");
      }
    if(RadioGroup1->ItemIndex == 3)
      {
      Memo1->Lines->Add("1999");
      }
    }
  //вопросы пройдены отображаем кнопку вывода результатов
  if(nom == 5)
    {
    Button3->Visible = true;
    Button2->Visible = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  Memo2->Text = list->Text;//правельные ответы
  Edit1->Text = bal;//набранные балы
 
  //если нет ни одного правильного ответа
  if(bal == 0)
    {
    ShowMessage("Ваш IQ ниже чум у обезьяны");
    }
}
//---------------------------------------------------------------------------

@demon_7 · 25.05.2015, 23:43

Dionisius, Вы жестоки!
Что мешает считывать вопросы из файла?

@Dionisius · 26.05.2015, 00:46 **[ТС]**

Тоже неплохо... И как бы это реализовать (из файла)?

Добавлено через 6 минут
Авот этот вариант чем хуже:

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
//---------------------------------------------------------------------------
#include <IniFiles.hpp>
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TIniFile *ini;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ini = new TIniFile("vopros.ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
RadioButton1->Caption=ini->ReadString("vopros1","variant1","");
RadioButton2->Caption=ini->ReadString("vopros1","variant2","");
RadioButton3->Caption=ini->ReadString("vopros1","variant3","");
RadioButton4->Caption=ini->ReadString("vopros1","variant4","");
}
//---------------------------------------------------------------------------

???

@D1973 · 26.05.2015, 08:26

Сообщение от Dionisius

Авот этот вариант чем хуже:

Да ничем не хуже... Вот только разве *.ini - не файл?

. Примерно это demon_7 и говорил

@_Dimon_ · 26.05.2015, 08:34

Я бы простенькую бд сделал

@D1973 · 26.05.2015, 08:41

Да и, вдобавок, не помешало бы и вопросы и варианты ответов рандомно перемешивать, чтобы каждый раз одну и ту же картину не видеть.

@demon_7 · 26.05.2015, 08:47

Ини файл, с такой структурой, тоже много кода (повторяющегося).
Можно создать файл, и считывать его в StringList, а из сталиниста выводить строки с фиксированным шагом.
Пример структуры файла-
Вопрос?
Ответ1
Ответ2
Ответ3
Ответ4
2 (здесь необходимо хранить число, которое соответствует номеру правильного ответа)
И такой структурой можно заполнить весь файл, ну сделать проверку на количество строк и прочее.
Далее в цикле выводим по 6 строк в нужные элементы. Ну это самый наверное простой способ.

Добавлено через 1 минуту

Сообщение от D1973

Да и, вдобавок, не помешало бы и вопросы и варианты ответов рандомно перемешивать, чтобы каждый раз одну и ту же картину не видеть.

Для красоты желательно, рандомно брать вопрос.

@_Dimon_ · 26.05.2015, 08:49

Сообщение от demon_7

Для красоты желательно, рандомно брать вопрос.

и варианты ответов тоже в рандомном порядке выводить

@demon_7 · 26.05.2015, 08:51

Не по теме:

Сообщение от _Dimon_

и варианты ответов тоже в рандомном порядке выводить

:D:D:D

@nick42 · 26.05.2015, 08:53

Был аналогичный вопрос когда-то на форуме; я предложил свой вариант решения (с проектом для BCB 5). Возможно поможет для воплощения...

@Dionisius · 26.05.2015, 22:35 **[ТС]**

Я пытаюсь делать также, как в этой теме , но при компиляции появляется предупреждение, но в коде вроде написано всё верно

Добавлено через 2 часа 34 минуты
Вот код:

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
//---------------------------------------------------------------------------
#include <IniFiles.hpp>
 //---------------------------------------------------------------------------
 
#include <vcl.h> 
#include <IniFiles.hpp>
#include <registry.hpp>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
      TShape *led[10];
      TColor cvet[3] = { clGreen, clRed, clLime };
      TMemIniFile *myIni=new TMemIniFile("myTest.ini"); 
      TRegistry *Reg;
      WORD h1,h2,m1,m2,s1,s2,u1,u2 ;
      double starT, exiT ;
      int kaunt, parol ;
      int tema=0, vopr=0 ;
      int rezult[10];
 
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
      for (int i=0;i<10;i++)
    {
      led[i] = new TShape(this);
      led[i]->Parent = Form1;
      led[i]->Shape=stCircle; led[i]->Height=17; led[i]->Width=17;
      led[i]->Brush->Color=clGreen;
      led[i]->Top=34; led[i]->Left=160+i*28;
      led[i]->Visible=true;
      rgr1->Items->Strings[i] = myIni->ReadString(
          "Topic"+IntToStr(i+1),"TName","Topic "+IntToStr(i+1)) ;
    }
      Reg = new TRegistry;
//       Reg->RootKey = HKEY_CURRENT_USER;
       Reg->RootKey = HKEY_CLASSES_ROOT;
       Reg->OpenKey("\\.z96\\NothingHandler",true);
       Panel2->Align = alClient;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
      DecodeTime(Now(),h2,m2,s2,u2);
      int exitt, delta, nauu ;
      nauu = h2*60+m2 ;
      try { kaunt = Reg->ReadInteger("Handler1");
             exitt = Reg->ReadInteger("Handler2"); }
      catch(...) { kaunt = 0; exitt=nauu; }
      delta = nauu-exitt ;
      if (delta < 5) kaunt += 1;
      else  kaunt = 0;
      Label5->Caption = IntToStr(kaunt);
      Label6->Caption = IntToStr(delta);
      Panel2->Visible = kaunt>5 ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
       DecodeTime(Now(),h1,m1,s1,u1);
       Reg->WriteInteger("Handler1",kaunt);
       if (kaunt<2)
         Reg->WriteInteger("Handler2",h1*60+m1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
      Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rgr1Click(TObject *Sender)
{
      vopr = 0;
      Label2->Caption = "1";
      for (int i=0;i<10;i++)
       { led[i]->Brush->Color = cvet[0]; rezult[i]=0; } 
      parol = myIni->ReadInteger(
           "Òåìà"+IntToStr(rgr1->ItemIndex+1),"ÏàðîëüÎ",0);
      int ss=0;
      for (int n=0;n<7;n++) ss ^= parol>>n*4 ; 
      if ((ss&15) != 15) parol = 0;  // îøèáêà ïàðîëÿ
      if (Shape2->Visible) vopr = -1;
      Button4Click(0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::rgr2Click(TObject *Sender)
{
      if (Shape2->Visible)
    {                         // çäåñü øèôðóåòñÿ ïàðîëü (âåðíûå îòâåòû)
        int shft = vopr*2+4 ;
        parol &= ~(3<<shft) ;
        parol |= (rgr2->ItemIndex<<shft) ;
        parol &= 0x3FFFFF0 ;
        parol |= 0x2000000 ;
        int ss=0;
        for (int n=0;n<7;n++) ss ^= parol>>n*4 ;
        ss = 15 & (ss^15);
        parol |= ss;
    }
      else
    {
      rezult[vopr] += 1;
      int dx = (vopr*2)+4 ;
      int vot = 3 & (parol>>dx);
      if(rgr2->ItemIndex==vot) rezult[vopr]++;
      for (int i=0;i<10;i++) led[i]->Brush->Color = cvet[rezult[i]];
      if (vopr<10) Label2->Caption = IntToStr(++vopr);
      else  Label2->Caption = "\\O/";
      rgr2->Enabled = false;
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
      AnsiString TT, otv[4] ;
      if (Shape2->Visible) vopr++;
      if ((parol==0) && !Shape2->Visible)
      {
        Label3->Caption = "Íå îïðåäåë¸í";
        TT = "À_Á_Â_Ã";
      }
      else  {
        AnsiString Te="Òåìà"+IntToStr(rgr1->ItemIndex+1) ;
        AnsiString Vo="Âîïðîñ"+IntToStr(vopr+1) ;
        AnsiString Ot="Îòâåòû"+IntToStr(vopr+1) ;
        Label3->Caption = myIni->ReadString(Te,Vo,"Íå îïðåäåë¸í") ;
        TT= myIni->ReadString(Te,Ot,"À_Á_Â_Ã") ;
      }
      int k=1;
      for (int i=0;i<4;i++)
    {   otv[i]="";
        while ((k<=TT.Length())&&(!IsDelimiter("_",TT,k)))
         {  otv[i] += TT[k]; k++;  }
        k++;
    }
      for(int j=0;j<4;j++) rgr2->Items->Strings[j] = otv[j];
      if (vopr<10) Label2->Caption = IntToStr(1+vopr);
      else  Label2->Caption = "\\O/";
      rgr2->Enabled=true;
      rgr2->ItemIndex=-1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Label4MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
      if ((X<8)&&(!Shift.Empty()))
        Shape2->Visible = true;
      else if (Shape2->Visible)
    {
        Shape2->Visible = false;
        if (parol != 0)
          myIni->WriteInteger(
           "Òåìà"+IntToStr(rgr1->ItemIndex+1),"ÏàðîëüÎ",parol);
        myIni->UpdateFile();
    }
}
//---------------------------------------------------------------------------

Надо будет переделать из этого кода такой код, чтобы было 5 вопросов, при неверном ответе на вопрос будет написано "Вы проиграли" и игра будет окончена.

@Dionisius · 26.05.2015, 23:08 **[ТС]**

А нет, вот раньше было верно:

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
//---------------------------------------------------------------------------
#include <IniFiles.hpp>
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TIniFile *ini;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1 -> Visible = false;
ini = new TIniFile("vopros.ini");
Label1->Caption=ini->ReadString("vopros1","vopros","");
RadioButton1->Caption=ini->ReadString("vopros1","variant1","");
RadioButton2->Caption=ini->ReadString("vopros1","variant2","");
RadioButton3->Caption=ini->ReadString("vopros1","variant3","");
RadioButton4->Caption=ini->ReadString("vopros1","variant4","");
}
//---------------------------------------------------------------------------

Скриншот имеется пока такой:

@demon_7 · 27.05.2015, 08:08

Dionisius, что Вы хотите от созданной Вами темы?
Если Вы хотите чтобы мы помогли исправить ошибки, укажите на них.
Рекомендации по написанию такого приложения Вам выдали.
За Вас что то делать возьмется не каждый.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Dionisius 2 / 2 / 0 Регистрация: 19.10.2013 Сообщений: 159

	Четыре варианта выбора ответа - один правильный 24.05.2015, 20:49. Показов 3633. Ответов 18 Метки нет (Все метки) У меня появилась идея создать проект в C++ Builder типа "Кто хочет стать миллионером" (5 вопросов, 4 варианта ответа) С написанием кода возникли проблемы Миниатюры 0

@Dionisius 2 / 2 / 0 Регистрация: 19.10.2013 Сообщений: 159
	24.05.2015, 20:49 [ТС]
	Скриншот см. выше 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	25.05.2015, 23:43
	Dionisius, Вы жестоки! Что мешает считывать вопросы из файла? 0

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	26.05.2015, 08:34
	Я бы простенькую бд сделал 0

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,423 Записей в блоге: 3
	26.05.2015, 08:41
	Да и, вдобавок, не помешало бы и вопросы и варианты ответов рандомно перемешивать, чтобы каждый раз одну и ту же картину не видеть. 1

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	26.05.2015, 08:53
	Был аналогичный вопрос когда-то на форуме; я предложил свой вариант решения (с проектом для BCB 5). Возможно поможет для воплощения... 0

@demon_7 260 / 192 / 60 Регистрация: 12.05.2013 Сообщений: 857
	27.05.2015, 08:08
	Dionisius, что Вы хотите от созданной Вами темы? Если Вы хотите чтобы мы помогли исправить ошибки, укажите на них. Рекомендации по написанию такого приложения Вам выдали. За Вас что то делать возьмется не каждый. 0