Результат работы программы
Число элементов массива C = 30
Число элементов массива D = 20
1.6. Алгоритмы и программы для нахождение сумм и произведений функциональных выражений
Задача
1.12.Разработать схему алгоритма
и написать программу для вычисления
значения
.
ЗначениеАвывести на экран.
Решение задачи
Алгоритм решения задачи сводится к последовательному вычислению знаменателя (суммирование), при этом следует обратить внимание на то, что он не должен быть равен нулю, а затем – числителя (произведение). Схема алгоритма решения задачи представлена на рис. 1.12.
Рис. 1.12
Пояснения к схеме алгоритма
Обозначения:
P– значение выражения произведения
;
S– значение выражения суммы
.
Символ 1. Начало алгоритма.
Символ 2. Присвоение переменнойSначального значения 0.
Символ 3. Открытие цикла с параметромI = 1; 100 для вычисления суммы.
Символ 4. Вычисление переменнойSпо формуле с учетом накоплений сумм.
Символ 5. Закрытие цикла с параметромI.
Символ 6. Проверка условия равенства нулю значенияS. Если верно, то выполняетсясимвол 14, если нет –символ 7.
Символ 7. Присвоение переменнойPначального значения 1.
Символ 8. Открытие цикла с параметромK= 1; 20 для вычисления произведения.
Символ 9. Вычисление переменнойPпо формуле с учетом накоплений произведений.
Символ 10. Закрытие цикла с параметромK.
Символ 11. Вычисление переменнойA.
Символ 12. Вывод на экран значенияА.
Символ 13. Конец алгоритма.
Символ 14. Вывод на экран сообщения «ЗначениеАне определено».
Программа
Program Prog1_12;
Var
K, I : Byte;
P, S, A : Real;
Begin {начало раздела операторов программы}
S := 0; {начальное значение переменной S}
for I := 1 to 100 do
S := S + cos(I); {вычисление суммы в цикле}
If S = 0 Then Writeln('Значение А не определено')
else begin {начало блока 1}
P := 1; {начальное значение переменной P}
for K := 1 to 20 do
P:=P * sin(K+1);{вычисление произведения в цикле}
A := P/S; {вычисление А}
Writeln('A = ', A:15:12){вывод на экран значения А}
end; {конец блока 1}
End. {конец программы}
Результат работы программы
A=0.00002461930