Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
WestCoast
3 / 3 / 1
Регистрация: 15.04.2013
Сообщений: 45
#1

Программа для тестирования

10.10.2013, 23:37. Просмотров 605. Ответов 3
Метки нет (Все метки)

Здравствуйте.

У меня тема программы "Тестирование по теме множества".
Все что нужно работает как надо,за исключение того,что правильные ответе засчитываются только на первых 2-х вопросах,на остальных при любом ответе нет.

Прикладываю код и сам файл проекта:

Delphi
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
unit Unit7;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.jpeg, Vcl.ExtCtrls,
  Vcl.StdCtrls, Vcl.Menus;
 
type
  TForm7 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Panel1: TPanel;
    Bevel1: TBevel;
    Label4: TLabel;
    Button1: TButton;
    Label5: TLabel;
    Edit4: TEdit;
    Image1: TImage;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Label6: TLabel;
    Edit5: TEdit;
    RadioGroup1: TRadioGroup;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    About1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form7: TForm7;  i:integer; otv:integer;
 
implementation
 
{$R *.dfm}
 
uses Unit1;
 
procedure TForm7.Button1Click(Sender: TObject);
begin
inc(i);
Button1.Visible:=false;
Image1.Visible:=false;
Bevel1.Visible:=false;
Label1.Visible:=false;
Label2.Visible:=false;
Label3.Visible:=false;
Label5.Visible:=false;
Edit1.Visible:=false;
Edit2.Visible:=false;
Edit3.Visible:=false;
Edit4.Visible:=false;
Button2.Visible:=true;
Button3.Visible:=true;
Button4.Visible:=true;
Radiogroup1.Visible:=true;
Label4.Caption:=('Вопрос :' + IntToStr(i));
Label6.Visible:=true;
Label6.Caption:=('Что такое множество?' + #13 + 'Варианты ответов: ' + #13+'1.Множество — это не структурированный тип данных' +#13+'2.Множество — это структурированный тип данных' + #13 + '3.Множество — это файловый тип данных'+#13);
if RadioGroup1.ItemIndex=1 then  inc(otv);
 
 
end;
 
 
 
procedure TForm7.Button2Click(Sender: TObject);
begin
dec(i);
Label4.Caption:=('Вопрос :' + IntToStr(i));
if i=1 then begin
Button2.Enabled:=false;
exit;
end;
end;
 
 
procedure TForm7.Button3Click(Sender: TObject);
var a:string;
begin
 
if i=11 then begin
Button3.Enabled:=false;
exit;
end;
 
inc(i);
Label4.Caption:=('Вопрос :' + IntToStr(i));
case i of
 
 
 //vopr2
2:begin
Label6.Visible:=true;
Label6.Caption:=('Как обозначается пустое множество?' + #13 + 'Варианты ответов: ' + #13+'1.{}' +#13+'2.[]' + #13 + '3.()');
if RadioGroup1.ItemIndex=1 then inc(otv);
end;
 
 
//vopr3
3:begin
Label6.Caption:=('Как хранится множество в памяти ЭВМ?' + #13 + 'Варианты ответов: ' + #13+'1.Как массив битов' +#13+'2.Как массив битов, в котором бит указывает является ли элемент принадлежащим  множеству или нет' + #13 + '3.Kак массив битов, в котором бит указывает является ли элемент НЕ принадлежащим множеству или нет.');
Radiogroup1.Visible:=true;
if RadioGroup1.ItemIndex=1 then inc(otv);
end;
 
 // vopr4
4:begin
Label6.Caption:=('Какой максимальный объем оперативной памяти может быть отведен под хранение одного множества?' + #13 + 'Варианты ответов: ' + #13+'1. 32 байта' +#13+'2. 32 бита' + #13 + '3. 64 байта');
if RadioGroup1.ItemIndex=0 then inc(otv);
end;
 
//vopr5
5:begin
Label6.Caption:=('Максимальное число элементов множества?' + #13 + 'Варианты ответов: ' + #13+'1.456' +#13+'2.512' + #13 + '3.256');//Radiogroup1.Visible:=true;
if RadioGroup1.ItemIndex=2 then inc(otv);
end;
 
//vopr6
6:begin//Label6.Visible:=true;
Label6.Caption:=('Какие операции можно выполнять над множествами?' + #13 + 'Варианты ответов: ' + #13+'1.Вхождение,разность,извлечение корня' +#13+'2.Обединение,пересечение' + #13 + '3.Объединение,пересечение,разность,вхождение');
if RadioGroup1.ItemIndex=2 then inc(otv);
end;
 
//vopr7
7:begin
Label6.Caption:=('Как добавить элемент в множество?' + #13 + 'Варианты ответов: ' + #13+'1.include (M, A)' +#13+'2.exclude (M, A)' + #13 + '3.odd (M, A)');
if RadioGroup1.ItemIndex=0 then inc(otv);
end;
 
//vopr8
8:begin
Label6.Caption:=('Как исключить элемент из множества?' + #13 + 'Варианты ответов: ' + #13+'1.mod (M, A)'+#13+'2.include (M, A)' + #13 + '3.exclude (M, A)');
if RadioGroup1.ItemIndex=2 then inc(otv);
end;
 
//vopr9
9:begin
a:='квадратных';
Label6.Caption:=('В выражениях на языке Паскаль значения элементов множества указываются в ... скобках');
Edit5.Visible:=true;
RadioGroup1.Visible:=false;
if Edit5.Text=a then inc(otv);
end;
 
//vopr10
10:begin
Label6.Caption:=('Как может быть использована операция вхождения?' + #13 + 'Варианты ответов: ' + #13+'1.Если x — такая скалярная величина, а M — множество, то операция вхождения записывается так: x in M' +#13+'2.Если x — такая скалярная величина, а M — множество, то операция вхождения записывается так: x innst M' + #13 + '3.Если x — такая скалярная величина, а M — множество, то операция вхождения записывается так: x mod M.');
Radiogroup1.Visible:=true;Edit5.Visible:=false ;
if RadioGroup1.ItemIndex=0 then inc(otv);
end;
end;
end;
 
 
procedure TForm7.Button4Click(Sender: TObject);
var a:string;
begin
a:=(IntToStr(otv));
 
if (otv>=0) and (otv<=5) then ShowMessage(a+#13+Edit1.Text+#13+Edit2.Text+#13+Edit3.Text+#13+'Гр. '+Edit4.Text+#13+'Вашa оценка 2');
if (otv>=6) and (otv<=7) then ShowMessage(a+#13+Edit1.Text+#13+Edit2.Text+#13+Edit3.Text+#13+'Гр. '+Edit4.Text+#13+'Вашa оценка 3');
if (otv=8) and (otv<=9) then  ShowMessage(a+#13+Edit1.Text+#13+Edit2.Text+#13+Edit3.Text+#13+'Гр. '+Edit4.Text+#13+'Вашa оценка 4');
if otv=10 then  ShowMessage(a+#13+Edit1.Text+#13+Edit2.Text+#13+Edit3.Text+#13+'Гр. '+Edit4.Text+#13+'Вашa оценка 5');
close;
end;
 
procedure TForm7.FormCreate(Sender: TObject);
begin
i:=0;
end;
 
procedure TForm7.N1Click(Sender: TObject);
begin
Button1.Click;
end;
 
procedure TForm7.N2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm7.N3Click(Sender: TObject);
begin
ShowMessage('Тетирование по теме "Множества в Pascal"'+#13+'v.1.0');
end;
 
procedure TForm7.N4Click(Sender: TObject);
begin
Form7.Hide;
Form1.Show;
end;
 
end.

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

0
Вложения
Тип файла: rar тестирование.rar (2.71 Мб, 19 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.10.2013, 23:37
Ответы с готовыми решениями:

Программа для тестирования
Здравствуйте! У меня есть программа для тестирования, но там результат в...

Программа для тестирования
Пишу программу для тестирования, есть форма, которая имеет свойста StayOnTop,...

Программа для тестирования
Здравствуйте! хочу написать программу для создания прохождения тестов. И...

Программа для тестирования
Создать элементарную программу тестирования. Файл тестовых заданий должен иметь...

Программа для тестирования
Здравствуйте! Проходил сегодня тестирование (программа-тестер) И для...

3
Lirrk
Заблокирован
11.10.2013, 00:05 #2
Так никто не делает. Если вы будете писать код на каждый вопрос... свихнутся можно.
0
WestCoast
3 / 3 / 1
Регистрация: 15.04.2013
Сообщений: 45
11.10.2013, 00:48  [ТС] #3
Цитата Сообщение от Lirrk Посмотреть сообщение
Так никто не делает. Если вы будете писать код на каждый вопрос... свихнутся можно.
я приложил файл проекта,как по другому я могу представить информацию?
0
Lirrk
Заблокирован
11.10.2013, 01:00 #4
WestCoast,
Приложили, вот я и отвечаю. Код идиотский. Выкинтье его и делайте как надо.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.10.2013, 01:00

Программа для тестирования
Всем привет. Подскажите как, сделать небольшую программку для тестирования,...

Программа для тестирования на Delphi
Здравствуйте! По заданию пишу программу для тестирования, уже, вроде, почти...

Программа для тестирования аппаратного обеспечения
Здраствуйте. Очень нужна помощь. Делаю курсовую с программирования на тему...


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

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

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