3. Задание

1. Для контроля правильности работы программы вывести на панель набранную пользователем сумму баллов.

Подсказка. Заголовку соответствующей панели (или метки) присвоить значение IntToStr(sum).

2. Запустите программу и убедитесь, что верная сумма баллов получается лишь при последовательном выборе переключателей сначала из RadioGroup1, затем из RadioGroup2 и т.д. Если порядок нарушен, то результат может быть неверным. Чтобы этого не случилось, вставьте дополнительную кнопку и сделайте подсчет баллов только после ее нажатия.

3. Сделайте возможным повторный запуск программы.

4. Для наглядности вывести результат разным цветом.

Подсказка. В оператор Case при выводе результата задать свойству Font.Color выбранный цвет. Например: Panel1.Font.Color:=clRed;

5. Усовершенствуйте программу, введя в раздел описания массив констант с номерами правильных ответов, а в программе только сравнивайте индекс переключателя со значением константы.

Практическая работа № 9 "Тест по физике"

1. Постановка задачи

Создать программу, с помощью которой можно выполнить:

После запуска программы появляется изображение аналогичное рисунку 18. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку "Физических величин", выбирает любое слово, нажав клавишу Enter. Затем пользователь переходит в правый список "Названий физических величин"

и выбирает соответствующее название ранее выбранной физической величины. Если выбрано правильное название величины, то под словом “ОЦЕНКА” появляется одобрительная реплика: Правильно, если выбрано неправильное слово, то - Ошибка. Снова можно выбрать физическую величину и найти ей правильное название до тех пор, пока не будет найдено соответствие всех

физических величин и их названий.

Рисунок 18

Пояснение. Новым в этой программе является взаимодействие двух списков ListBox на основе свойств Items и ItemIndex и создание многострочных надписей в компоненте Label.

2. План разработки программы

1. Открыть новый проект.

2. Разместить в форме компоненты в соответствии с рисунком 19 и присвоить заголовки меткам. Обратите внимание, что заголовки меток Физическая величина и Название величины состоят из двух строк и отцентрированы.

Рисунок 19

Для вывода многострочных надписей в Label задайте:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
BitBtn1	Properties	Caption	&Выход
		Kind	bkCancel
	Events	BitBtn1Click	Close;
Label1	Propeties	AutoSize (изменение размера в зависимости от текста в Caption)	False
		WordWrap (разрыв строки)	True
		Height Width	Установите подходящие размеры.
		Alignment (выравнивание текста)	taCenter

3. Сохранить проект под именем, например, Pr8.pas и Pr8.dpr

4. Запустить программу, затем закрыть окно проекта кнопкой Выход.

5. Выделить ListBox1, в Object Inspector найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора ввести физические величины, каждую на новой строке:

Ватт

Ом

Вольт

Ампер

Сохраните набранный текст под именем Fiz1.txt. Для этого нажмите правую клавишу мыши и выберите режим Save. Для выхода из встроенного редактора нажмите клавишу OK.

6. Выделить Listbox2 и проделать с ним аналогичную работу, введя названия физических величин:

Напряжение

Сопротивление

Сила тока

Мощность

Сохраните набранный текст под именем Fiz2.txt.

7. Выполнить следующие действия:

Выделенная компонента	Окно инспектора объектов	Имя свойства	Действие
ListBox1	Events	OnKeyPress	If key=#13 then Num1:=ListBox1.ItemIndex;
ListBox2	Events	OnKeyPress	If key=#13 then begin case ListBox2.ItemIndex of 0: Num2:= 2; 1: Num2:= 1; 2: Num2:= 3; 3: Num2:= 0; end; if Num1=Num2 then begin Label4.Caption:='Правильно'; CountR:=CountR+1 End Else Label4.Caption:= 'Ошибка'; If CountR=5 then ShowMessage(‘ Тест окончен! ‘ );

В разделе Var переменные Num1, Num2 и CountR объявите как целочисленные перед разделом implementation.

8. Сохранить проект, запустить и протестировать его.