Самостоятельная работа. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, unit1;

Begin

Begin

Uses

Interface

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, unit1;

Теперь вернемся на первую форму и напишем процедуру по нажатию на кнопку «Далее»…

Следует учесть, что пользователь может и не ответить на вопрос. В нашем случае правильный ответ номер 2 «нет крыльев». Для компонента RadioGroup это строка имеет номер 1 (свойство ItemIndex), так как нумерация начинается с нуля. В переменной i будем накапливать количество правильных ответов.

Таким образом, процедура по нажатию на кнопку «Далее» выглядит следующим образом:

procedure TForm1.BitBtn1Click(Sender: TObject);

if radiogroup1.ItemIndex = ‑1 then // если не ответили на вопрос

showmessage('Забыли ответить на вопрос!')

else

if radiogroup1.ItemIndex=1 then i:=i+1;//счетчик правильных ответов увеличили

form1.close;/закрыли первую форму

form2.show;//вызвали форму со следующим вопросом

end;

end;

Обработайте таким образом все остальные вопросы. Не забудьте, что после ответа на последний вопрос, пользователю предоставляется сообщение о набранных баллах.

Определите, сколько в вашем тесте нужно правильных ответов, чтобы получить «5», «4», и т.д.

case i of

0,1,2:Showmessage (‘Вы получили 2’)

3: Showmessage (‘Вы получили 3’)

4: Showmessage (‘Вы получили 4’)

5: Showmessage (‘Вы получили 5’)

end;

Создайте программу вычисления площади треугольника по известным параметрам (по трем сторонам, по двум сторонам и углу между ними и по стороне и двум прилежащим к ней углам)

Дата добавления: 2015-05-09