Измените программу обработчика события таким образом, чтобы перед операцией деления выполнялась проверка делителя на равенство нулю. В случае равенства делителя нулю вместо выполнения деления в окне Edit3 должно отображаться сообщение «На ноль делить нельзя!». Вставьте в процедуру обработчика события TForm1.Button1Click оператор ifthenelse, а в качестве условия выполнения операции вещественного деления задайте b<>0. Фрагмент программы, проверяющий условие отличия делителя от нуля и выполняющий деление, если условие выполняется, может быть записан следующим образом:
var a,b: integer; {2 операнда - целые числа}
с : real; {частное - вещественное число}
begin a:=StrToInt(Edit1.text); {преобразование текстовой строки в целое число}
b:=StrToInt(Edit2.text); if b<>0 then {проверка отличия делителя от 0}
begin с:=а/b; {выполнение операции вещественного деления и
присваивание результата переменной с}
Edit3.text:=F1oatToStrF(c,ffGeneral,7,4); {преобразование вещественного числа в текстовую строку}
end else {вывод сообщения}
Edit3.text: = 'На ноль делить нельзя!' end;
Откомпилируйте модифицированную программу командой Проект (Project) ► Компилировать (Compile). Запустите программу на выполнение при помощи команды Выполнить ► Выполнить или щелчка мышью на кнопке Выполнить в панели инструментов или нажатием клавиши F9. Проверьте работу приложения, задавая в качестве делителя разные значения.
Дополнительное задание 2.
Отредактируйте текст модуля таким образом, чтобы перед выполнением вычислений выполнялась проверка, заданы ли значения операндов. Если значения операндов не заданы, то следует вывести сообщение об этом в отдельном окне.
Поместите перед оператором присваивания a:=StrToInt(Edit1.text); строку
