![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Алгоритмы организации циклической обработки.
Часть 2: цикл-пока» Этап 1. Постановка задачи 3. Вычислить значения функции Этап 2. Анализ. В задаче ничего не сказано про интервал изменения х, поэтому назначаем его сами: D. Этап 3. Проектирование и определение спецификаций. Алгоритм решения задачи 3 программы представлен на рис. 13. Спецификация к алгоритму оформлена в табл. 5. В физико-математической программной среде MATHCAD выполним расчет тестового примера (рис. 14). На панели «Programming (программирование)» для организации цикла с условием используется структура while. Рис. 13. Алгоритм решения задачи 3. Таблица 5. Спецификация к алгоритму на рис. 11.
Рис. 14. Расчет в MATHCAD тестового примера для решения задачи 3
Сначала организуем вычисление функции y(x) в интервале x=0…9 с шагом равным 1:
Затем определим, сколько первых значений функции y(x) соответствует заданному условию:
Таким образом, определили, что 4 первых значения функции y удовлетворяют условию y³ 0, и результаты расчета занесли в табл. 6. Таблица 6. Тестовые примеры для задачи 3.
Этап 4. Реализация. Разрабатываем программу: PROGRAM USLOVIE; { ЗАГОЛОВОК И НАЗВАНИЕ ПРОГРАММЫ } USES CRT; { ПРИСОЕДИНЕНИЕ СПЕЦИАЛЬНОЙ БИБЛИОТЕКИ ПРОГРАММ } VAR A, B, C, DX, X, Y: REAL; {ОПИСАНИЕ ПЕРЕМЕННЫХ НЕ ЦЕЛОГО ТИПА} BEGIN {НАЧАЛО ПРОГРАММЫ} WRITELN (‘ВВЕДИТЕ КОЭФФИЦИЕНТЫ A, B, C=’); { ВЫВОД НА ЭКРАН КОММЕНТАРИЯ } READLN (A, B, C); { ВВОД С КЛАВИАТУРЫ ЗНАЧЕНИЙ ПЕРЕМЕННЫХ } WRITELN (‘ВВЕДИТЕ ИНТЕРВАЛ ИЗМЕНЕНИЯ DХ=’); { ВЫВОД НА ЭКРАН КОММЕНТАРИЯ } READLN (DX); { ВВОД С КЛАВИАТУРЫ ЗНАЧЕНИЙ ПЕРЕМЕННЫХ } X: = 0; { ОПЕРАТОР ПРИСВАИВАНИЯ } Y: =A-B*X-C*X*X; WHILE Y> =0 THEN BEGIN {ЗАГОЛОВОК ЦИКЛА С УСЛОВИЕМ. ЦИКЛ ВЫПОЛНЯЕТСЯ ДО ТЕХ ПОР, ПОКА ВЫПОЛНЯЕТСЯ ОБЪЯВЛЕННОЕ В НЕМ УСЛОВИЕ} Y: =A-B*X-C*X*X; { ОПЕРАТОР ПРИСВАИВАНИЯ } WRITELN (‘Y=’, Y: 6: 0, ’ X=’, X: 4: 0); { ВЫВОД НА ЭКРАН ВЫЧИСЛЕННЫХ ЗНАЧЕНИЙ } X: = X+DX; { ОПЕРАТОР ПРИСВАИВАНИЯ } END; { КОНЕЦ ТЕЛА ЦИКЛА } READLN; ПУСТОЙ ОПЕРАТОР. НАЖМИТЕ ЛЮБУЮ КЛАВИШУ } END. { КОНЕЦ ПРОГРАММЫ } Результат работы программы: Y=13 X=0 Y=11 X=1 Y= 7 X=2 Y= 1 X=3 Сверяем полученные результаты с тестовым примером. Вывод: результаты работы программы совпадают с тестовым примером. ВОПРОСЫ ДЛЯ ПРОВЕРКИ 1. Управляющие операторы. 2. Оператор цикла-пока. 3. Оператор цикла-до. 4. Оператор счетного цикла. 5. Составной оператор. 6. Организация циклов в MATHCAD.
|