Исходники и листинги ::: 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
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ActnList, ExtActns, XPMan;
type
TForm1 = class(TForm)
RadioGroup1: TRadioGroup;
MainMenu1: TMainMenu;
N2: TMenuItem;
Panel1: TPanel;
BitBtn1: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
N1: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
ActionList1: TActionList;
FileRun1: TFileRun;
XPManifest1: TXPManifest;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
k,p,i,o,n,v:integer;
s,po: string;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
i:=i+1;
if i<=k then
begin
// считываем i-1 правильный ответ
readln(po);
// присваеваем переменной p номер выбранного ответа
p:= RadioGroup1.ItemIndex+1;
// проверяем правильность выбранного ответа и изменяем количество верных ответов
if po = inttostr (p)
then label1.Caption:= inttostr(strtoint(label1.Caption)+1);
// менем название кнопки
bitbtn1.Caption:='Далее >>';
//очиска RadioGroup1
RadioGroup1.Items.Clear;
//считываем i вопрос и помещаем в заголовок группы
readln(s);
RadioGroup1.Caption:=s;
// считываем варианты ответов i-го вопроса и помещаем в RadioGroup1
readln(s);
repeat
RadioGroup1.Items.Add(s);
readln(s);
until (s='otvet');
end
else
begin
// последний вопрос
// меняем название кнопки
bitbtn1.Caption:='ВСЕ!';
// считываем последний правильный ответ
readln(po);
// присваеваем переменной p номер выбранного ответа
p:= RadioGroup1.ItemIndex+1;
// проверяем правильность выбранного ответа
//и изменяем количество верных ответов
if po = inttostr (p)
then label1.Caption:= inttostr(strtoint(label1.Caption)+1);
// показываем понел ответов
panel1.Visible:=true;
// вывод неверных
label4.Caption:= inttostr(k-strtoint(label1.Caption)) ;
// введем обозначения
v:=strtoint(label1.Caption); // верные
n:=strtoint(label4.Caption); // неверные
// оценка о
o:= (100*v)div k ;
if o<50 then label6.caption:= '2';
if o>=50 then label6.caption:= '3';
if o>=74 then label6.caption:= '4';
if o>=90 then label6.caption:= '5';
bitBtn1.Enabled:=false;
RadioGroup1.Items.Clear;
RadioGroup1.Caption:='';
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// свезь с файлом 1.dat
assignfile(input,'1.dat');
reset(input);
// кол-во вопросов
readln(k);
//номер вопроса
i:=1;
// менем название кнопки
bitbtn1.Caption:='Далее >>';
//считываем 1й вопрос и помещаем в заголовок группы
readln(s);
RadioGroup1.Caption:=s;
// считываем варианты ответов 1-го вопроса и помещаем в RadioGroup1
readln(s);
repeat
RadioGroup1.Items.Add(s);
readln(s);
until (s='otvet');
end;
procedure TForm1.N2Click(Sender: TObject);
begin
close; // закрытие программы
end;
procedure TForm1.N3Click(Sender: TObject);
begin
form2.show; //переход к форме "О программе"
end;
end.
<<< Предыдущая работа
Мухобойня
Автор: Taow
Листинг моей игры которую скоро выложу (если войдет) в проги
Вернуться в галерею исходников
Оболочка для тестов
Автор:
Taow*
Город: Дульдурга
Дата: 20.11.2006 19:03
Комментариев:
2
Просмотров: 503
Оценка:
0
(
0
|
0
|
0
|
0
|
0
) [
0
]
Следующая работа >>>
Слабое звено
Автор: Taow
Убираются пары фотографий случайным образом в итоге остаётся случайная "идеальная пара"
Вернуться на главную
Авторский комментарий к работе:
готовую программу выложу в проги
Вы не можете оценивать
КОММЕНТАРИИ К РАБОТЕ:
Taow*
::: комментарий от 21.11.2006 | 12:24
Гуру (ур.19)
Очки: 56003
Город: Дульдурга
Тв. работ: 636
Рег: 04.09.2006 (509)
Ответ для Legolas 21.11.2006 | 00:21:
Да, просто расширение не txt, поэтому ищет программу в интернете. Но если откроют ч\з блокннот ...
--------------------
Видеть необычное в обычном, вот признак таланта!
Legolas
::: комментарий от 21.11.2006 | 00:21
Инструктор (ур.15)
Очки: 17093
Город: Timbermaw Hold
Тв. работ: 19
Рег: 27.04.2006 (27)
Я так понимаю, у файла с вопросами нет шифрования от назойливых студентов?
--------------------
In Minstrel We Trust. And Busy is His Prophet
