Пример 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.

 

procedure TForm1.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

True

Val(LabeledEdit2.Text, Х, cod)

Cod <> 0

False

Cod <> 0

False

Деление на 0

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

X <> 5

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

Y:=A/(5-X)

Y

Exit

Exit

False

 

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

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

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

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

 

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

· Задание.

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

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

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

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

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

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

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

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

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

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

6. Каково назначение контроля вводимых величин?

7. Каков синтаксис оператора выбора?

8. Какие функции позволяют преобразовать строку в число?

9. Какие функции позволяют преобразовать число в строку?

10. Как обеспечить требуемое количество знаков после запятой при выводе вещественных чисел?

11. Каково назначение процедуры ShowMessage? Что используют в качестве параметра процедуры?

12. Каково назначение процедуры Val(S; String; var V; code: integer)? Объясните смысл и назначение параметров.

ПриложениЕ