Создание тестов на Delphi.
P.S. (спустя три года) Видеоурок был создан для конкретного случая: провести музейный урок под тему учебного материала. Сейчас бы я всё делала не так. Чтобы сильно всё не переделывать, вот код работающей программы (даже, если ничего не выбрано) и добавлена кнопка для сбрасывания результата, чтобы тест пройти ещё раз:
var
Form1: TForm1;
ball:integer;
const otv:array[1..5]of byte=(1,2,1,3,0);
{$R *.dfm}
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
label3.caption:='';
label4.caption:='';
radiogroup1.itemIndex:=-1;
radiogroup2.itemIndex:=-1;
radiogroup3.itemIndex:=-1;
radiogroup4.itemIndex:=-1;
radiogroup5.itemIndex:=-1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=0;
if radiogroup1.ItemIndex=otv[1] then inc(ball);
if radiogroup2.ItemIndex=otv[2] then inc(ball);
if radiogroup3.ItemIndex=otv[3] then inc(ball);
if radiogroup4.ItemIndex=otv[4] then inc(ball);
if radiogroup5.ItemIndex=otv[5] then inc(ball);
label3.caption:='Правильно ответил на '+IntToStr(ball)+' из 5-ти вопросов';
if ball=5
then label4.caption:='Экскурсию прослушал очень внимательно. Молодец!'
else
if (ball=3) or (ball=4)
then label4.caption:='Не всегда был внимательный'
else label4.caption:='Экскурсию прослушал очень плохо' ;
end;
end.
![](https://i.ytimg.com/vi/_5Jecyl0fcc/mqdefault.jpg)