Рассмотрим решение другой задачи.

Этап 1. Постановка задачи 2. Вычислить произведение первых n членов ряда.

Этап 2. Анализ. Произведение также определяется методом накопления. Перед началом цикла необходимо переменную произведения P назначить равной единице.

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

Рис. 11. Блок – схема алгоритма для решения задачи 2.

Спецификация к алгоритму выполнена в табл. 3. В физико-математической программной среде MATHCAD выполним расчет тестового примера (рис. 12). Результаты расчетов занесены в табл. 4.

Таблица 3.

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

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

Таблица 4.

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

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

Program proizvedenie; { Заголовок программы }

Uses CRT; { Присоединение специальной библиотеки }

VAR P: REAL; { Объявление не целой переменной }

N, J: INTEGER; { Объявление целой переменной }

BEGIN { Начало программы }

CLRSCR; { Очистка экрана }

WRITELN(‘Введите значение N=’); { Вывод на экран комментария }

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

P: =1; { Определение начального значения произведения }

FOR J: =1 TO N DO BEGIN { Цикл с параметром }

P: =P*ln(J)/J; { Тело цикла: вычислить произведение }

END; { Конец цикла }

WRITELN(‘Произведение Р=’, Р: 7: 5, ‘ Число множителей N=’, N: 2); { Вывод значений на экран или печать }

READLN; { «Пустой» оператор: ждет нажатия любой клавиши }

END. { Конец программы }

Результаты работы программы:

Произведение Р=0, 00423 Число множителей N=6

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

Вывод: результаты работы программы совпадают с тестовым примером.