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

Этап 1. Постановка задачи 2. Разработать алгоритм, спецификацию, тестовый пример и программу для вычисления температуры в зоне обработки по формуле , и проверить условие , где K – суммарный коэффициент условий обработки; S – подача станка, мм/об; n – число оборотов шпинделя станка, об.; t – глубина резания, мм; T_max – максимально возможная температура в зоне обработки, с точки зрения качества, °C; x, y, z – значения степеней, полученные экспериментальным путем.

Этап 2. Анализ. Алгоритм (программа) должен начинаться с ввода значений x, y, z, S, n, t, K, T_max. Затем, в зависимости от вычисленного значения температуры Т, выдается сообщение пользователю о выполнении или не выполнении поставленного условия.

Этап 3. Проектирование и определение спецификаций. Разветвляющийся алгоритм представлен на рис. 10.

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

Таблица 3.

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

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

Тестовые (контрольные) примеры рассчитываем в MATHCAD (рис. 11). Тесты должны быть определены таким образом, чтобы проверить все ветви алгоритма (программы).

Рис. 11. Расчет тестовых примеров в MATHCAD для задачи 2

Знаки «£» и «³» для проверки неравенств находятся на панели MATHCAD «Boolean (булевое)». Результат проверки условия хранится в ячейке l, которая принимает значение «1», если условие выполняется (ТЕСТ1 на рис. 11), и принимает значение «0» при невыполнении условия (ТЕСТ2 на рис. 11). Результаты расчетов в MATHCAD занесены в табл. 4.

Таблица 4.

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

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

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

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

Var x, y, z, S, K, Tem, Tmax, n, t : real; {Описание переменных не целого типа}

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

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

Writeln(‘ Введите значения х, y, z, K = ’);

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

Writeln(‘ Введите значения S, n, t = ’);

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

Writeln(‘ Введите значение Tmax = ’);

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

Tem: =K*exp(x*ln(S))*exp(y*ln(n))*exp(z*ln(t));

If (Tem< =Tmax) Then Writeln(‘Условие выполняется’)

Else Writeln(‘Условие не выполняется’); {Условный оператор}

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

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

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

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

1) Условие выполняется

Tem=165

2) Условие не выполняется

Tem=825

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

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