Пример 1.

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

.

Этап 2. Анализ. Программа должна начинаться с ввода значений аргумента. Затем, в зависимости от того, в какой интервал попадает введенное значение, вычисляется значение функции по одному из заданных выражений.

Этап 3. Проектирование и определение спецификаций.

Расчет тестовых примеров выполняем в MATHCAD (тесты должны быть определены таким образом, чтобы проверить все ветви программы, рис.8). Результаты расчетов занесены в табл. 1.

Рис. 8. Расчет тестовых примеров

Разветвляющийся алгоритм представлен на рис. 9. Спецификация к алгоритму – в табл. 2.

Рис. 9. Алгоритм решения задачи 1.

Таблица 1.

Тестовые примеры для задачи 1.

Таблица 2.

Спецификация к алгоритму на рис. 8.

Этап 4. Реализация. Разрабатываем программу:

Program Lini; {Заголовок с именем программы}

Uses Crt; {Будет использована процедура из этой библиотеки процедур}

Var x, y : real; {Описание переменных не целого типа}

Begin {Начало программных действий}

ClrScr; {Процедура очистки экрана}

Writeln(‘ Введите значение аргумента х = ’);

Readln(х); {Ввод с клавиатура значения}

If x< 0 Then y: =Abs(x) Else

If x> 8 Then y: =Sqtr(x) Else

у: =4; {Условные операторы и вычисления по формуле}

Writeln(‘y(’, x: 4: 1, ’)=’, y: 6: 1); {Вывод значения с комментариями}

Readln; {Пустой оператор для просмотра результатов}

End. {Конец действий программы}

Результат тестирования программы:

y(-1.0)= 1.0

y(25.0)= 5.0

y(7.0)= 4.0

Сверяем полученные результаты с тестовым примером.

Вывод: результаты работы программы на алгоритмическом языке PASCAL совпадают с тестовыми (контрольными) примерами.