![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Пример 2. Этап 1. Постановка задачи 2.Разработать алгоритм, спецификацию, тестовый пример и программу для вычисления температуры в зоне обработки по формуле
Этап 1. Постановка задачи 2. Разработать алгоритм, спецификацию, тестовый пример и программу для вычисления температуры в зоне обработки по формуле Этап 2. Анализ. Алгоритм (программа) должен начинаться с ввода значений x, y, z, S, n, t, K, Tmax. Затем, в зависимости от вычисленного значения температуры Т, выдается сообщение пользователю о выполнении или не выполнении поставленного условия. Этап 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 совпадают с тестовыми (контрольными) примерами.
|