Пример 5. Использование процедуры Val и ShowMessage

Дано: выражение Y:= A/(5-X);

текстовое поле LabeledEdit1 – для ввода значения A;

текстовое поле LabeledEdit2 – для ввода значения X;

текстовое поле LabeledEdit3 – для вывода значения Y;

кнопка .Button1 – «Вычислить»;

процедура TForm1.Button1Click(Sender: TObject).

Требуется: дополнить процедуру TForm1.Button1Click(Sender: TObject), обеспечив вычисление значения Y. Использовать процедуры Val и ShowMessage.

procedureTForm1.Button1Click(Sender: TObject);

Var A, X, Y: Real;

cod: integer ; //порядковый номер недопустимого символа

Begin

Val (LabeledEdit1.Text, A, cod);

{попытка преобразовать строку LabeledEdit1.Text в вещественную переменную А}

if cod <> 0 //строка LabeledEdit1.Text содержит недопустимый символ

Then begin

ShowMessage('формат ввода вещественной переменной А – ХХ,ХХ!');

exit//досрочное завершение процедуры

End ;

Val (LabeledEdit2.Text, X, cod);

if cod <> 0

Then begin

ShowMessage('формат ввода вещественной переменной Х – ХХ,ХХ!');

Exit

End ;

if X <> 5 //проверка деления на 0

Then begin

Y:= A/(5-X);

LabeledEdit3.Text:=FloatToStrF(Y, ffGeneral, 5, 3); //вывод Y

End

else ShowMessage('деление на 0!') ;

End;

Схема алгоритма. Контроль ввода вещественных чисел, вычисления, представление результата procedureTForm1.Button1Click(Sender: TObject)

True

Начало

Конец

Val (LabeledEdit1.Text, A, cod)

True

Val(LabeledEdit2.Text, Х, cod)

Cod <> 0

False

Cod <> 0

False

Деление на 0

Формат ввода А

X <> 5

Формат ввода X

Y:=A/(5-X)

Exit

False

Тестирование программы

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

В общем случае следует задать такие значения исходных данных, при которых вычисления можно легко выполнить вручную. Для нашего случая положим А=5, Х=10, тогда А/(5-Х)=5/(5-10)=-1. Сравнив результаты ручных вычислений и выполнения программы можно сделать вывод о работоспособности программы.

Для сложных выражений типа aX⁴+bX³+cX².. можно рекомендовать проверку по частям, сначала для aX⁴, положив b и c равными 0, далее для bX³ и т.д. Для рассмотренной задачи при вводе вещественных чисел возможен ввод нескольких запятых.

3.4 Содержание отчёта

· Задание.

· Листинг модуля с подробными комментариями.

· Схемы алгоритмов нелинейных процедур.

· Условия тестирования и ожидаемый результат.

· Перечень ситуаций, при которых возможно аварийное завершение Вашей программы.

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

1. Перечислите арифметические операции доступные только для целых типов.

2. Какие свойства у множества, как описывают множество?

3. Перечислите логические операции.

4. Какие значения могут принимать логические выражения?

5. Каков синтаксис оператора условного перехода?