28. Создание программы – тест.

Ц ель занятия: Закрепление навыков работы с компонентом RadioGroup для создания программы-тестировщика.

Задание: Требуется написать ПРОГРАММУ-ТЕСТ, состоящий из пяти вопросов. Программа должна подсчитывать количество правильных ответов и выставлять оценку за тест.

Для этого необходимо:

-поместить на форму следующие компоненты: Label1, RadioGroup1, Button1.

-измените свойство Caption для формы и добавленных компонентов (согласно приведённого ниже рисунка).

-написать программы:

для события OnClick кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

begin

if i<4 then begin

if RadioGroup1.ItemIndex=pr_otv[i] then n:=n+1;

i:=i+1;

Label1.Caption:=vopros[i];

RadioGroup1.Items.Clear;

RadioGroup1.Items.Add(otvet[i].a);

RadioGroup1.Items.Add(otvet[i].b);

RadioGroup1.Items.Add(otvet[i].c);

end

else

begin

memo1.Align:=alClient;

memo1.Visible:=True;

Button1.Visible:=False;

memo1.Lines.Add(inttostr(i));

memo1.Lines.Add(Кол-во правильных ответов ='+inttostr(n));

memo1.Lines.Add('ВАША ОЦЕНКА');

IF n=5 then memo1.Lines.Add('5 (отлично) - МОЛОДЕЦ!!!');

IF n<3 then memo1.Lines.Add('2 (неудволитворительно) – ОЧЕНЬ ПЛОХО!!!');

IF n=3 then memo1.Lines.Add('3 (удовлетворительно) – могло быть лучше');

IF n=4 then memo1.Lines.Add('4 (хорошо) – так держать!!!');

end;

по событию Create формы:

procedure TForm1.FormCreate(Sender: TObject);

begin

pr_otv[0]:=1;

vopros[1]:=’В списке выберите язык запросов по образцу’;

otvet[1].a:=’DML’;

otvet[1].b:=’DDL’;

otvet[1].c:=’QBE’;

pr_otv[1]:=2;

vopros[2]:=’Выберите язык описания данных’;

otvet[2].a:=’DDL’;

otvet[2].b:=’DML’;

otvet[2].c:=’QBE’;

pr_otv[2]:= 0;

vopros[3]:=’Выберите язык манипулирования данными’;

otvet[3].a:=’DDL’;

otvet[3].b:=’DML’;

otvet[3].c:=’QBE’;

pr_otv[3]:=1;

vopros[4]:=’Что не может являеться базой данных?’;

otvet[4].a:=’Список телефонов организаций города П-К’;

otvet[4].b:=’Правило пользования телефонной книгой’;

otvet[4].c:=’Данные о предметах и преподавателях’;

pr_otv[4]:=1;

i:=0;

end;

Объявим переменные i, n, vopros, otvet, pr_otv как глобальные переменные (в общей программе).

ЗАДАНИЕ: Осуществить работу теста по дисциплине Операционные системы и среды, используя компоненты класса TCheckBox. Тест должен состоять из 3-х вопросов:

1. Какие из перечисленных программ относятся к системному программному обеспечению?

   1. Текстовые и табличные процессоры

   2. Программы архивирования данных

   3. Windows 2000

2. Укажите, какие из нижеперечисленных групп программ относятся к сервисным программам

   1. программы диагностики работоспособности компьютера

   2. антивирусные программы

   3. операционные системы

3. В Windows команда "Копировать" копирует данные:

   1. в Корзину

   2. в Буфер обмена

   3. в Проводник

Указания: 1. Организовать заполнение массива вопросов и массива ответов и номеров правильных ответов при создании формы. 2. Организовать подсчёт результатов теста

ВОПРОСЫ:

1. Свойства и методы компонента RadioButton

2. Свойства и методы компонента класса TCheckBox