Алгоритмы организации циклической обработки.

Часть 2: цикл-пока»

Этап 1. Постановка задачи 3. Вычислить значения функции , от х=0 до первого отрицательного y (a> b> c), т.е. все первые значения y должны удовлетворять условию y³ 0.

Этап 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.