Пример 14.2. Вычислить значение функции . Экранная форма программы показана на рис. 14.5.

Рис. 14. 5. Вид формы в примере вычисления функции с обработкой исключительных ситуаций

Вычисление функции и обработка возможных исключений происходят при нажатии кнопки . Обработка этого события имеет вид:

procedure TFrm.BtnResultClick(Sender: TObject);

var y:real;

begin

try

y:=sqrt(StrToFloat(EdtX.Text))/StrToFloat(Edtb.Text);

EdtY.Text:=FloatToStr(y);

except

on EZeroDivide do

MessageDlg('Ошибка. Деление на 0!!!',mtError,[mbCancel],0);

on EMathError do

MessageDlg('Ошибка. Корень от отрицательного числа не существует!!!',mtError,[mbCancel],0)

else

MessageDlg('Ошибка!!!',mtError,[mbCancel],0);

end;

end;

При вычислении функции возможны исключения: деление на ноль, корень от отрицательного числа и ошибка, связанная с преобразованием символов в число. Эти исключения обрабатываются в блоке try…except, а соответствующие окна с сообщениями изображены на рис. 14.6.

Рис. 14.6. Экранные формы с сообщениями об ошибках в исключительных ситуациях

Порядок выполнения работы

1. Создать форму без заголовка. Разместить на форме:

• текстовые поля с указанием номера лабораторной работы, номера варианта и постановкой задачи;

• поля ввода исходных данных. Поля ввода должны снабжаться подсказками;

• кнопки «Вычислить» и «Выход». При нажатии кнопки «Вычислить» должно вычисляться выражение согласно варианту (табл. 14.1) с выводом результата в поле редактирования, которое не должно быть доступно для ввода. При нажатии кнопки «Выход» должно закрываться окно программы;

• переключатели, определяющие выполнять контроль исключительных ситуаций или нет.

2. При выполнении обработки исключительных ситуаций выводить соответствующие диалоговые окна.

Возможный вид главной формы и диалоговых окон показаны на рис. 14.7.

Рис. 14.7. Пример экранных форм для лабораторной работы №14

Варианты

Таблица 14.1. Функции для вычисления

Номер варианта	Арифметическое выражение	Номер варианта	Арифметическое выражение
1		2
3		4
5		6
7		8

Продолжение табл. 14.1.

Номер варианта	Арифметическое выражение	Номер варианта	Арифметическое выражение
9		10
11		12
13		14
15		16
17		18
19		20
21		22
23		24

Окончание табл. 14.1.

Номер варианта	Арифметическое выражение	Номер варианта	Арифметическое выражение
25		26
27		28
29		30

Контрольные вопросы

1. Компонент TEdit. Основные свойства.

2. Встроенные процедуры вывода диалоговых окон.

3. Обработка исключительных ситуаций.

4. Обработка исключений во вложенных подпрограммах

Лабораторная работа № 15 Программирование циклов. Компоненты: флажок, группа компонентов, главное меню, контекстное меню, список действий, область просмотра

Цель работы: изучение компонентов TCheckBox, TGroupBox, TMainMenu, TPopupMenu, TActionList, TMemo и их основных свойств.