Напряжение

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

Сила тока

Мощность

Сохраните набранный текст под именем 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. Сохранить проект, запустить и протестировать его.

Дополнительные задания

1. Изменить интерфейс программы: шрифты, цвет экрана и букв.

2. Выполнить проект так, чтобы при правильном выборе названия физической величины слово в левом списке исчезало.

Подсказка. В процедуру, относящуюся к ListBox2, там, где обрабатывается правильный ответ, включить:

ListBox1.Items.Delete(Num1);

ListBox1.Items.Insert(Num1, ‘ ’);

3. Расширить количество физических величин до 10. Внести необходимые изменения в программу.