Задача 7. Вычислить приближенное значение числа с заданной точностью, если известно, что сумма ряда: приближается к значению при достаточно бол
Вычислить приближенное значение числа с заданной точностью, если известно, что сумма ряда: приближается к значению при достаточно большом количестве членов ряда. Математическая формулировка задачи: Сумму ряда можно определить при помощи цикла с неизвестным числом повторений, который закончится при достижении необходимой точности вычислений. Каждый член ряда вычисляется по формуле и помножается на -1, если n четное, и на +1, если n нечетное. Вычисления заканчиваются тогда, когда значение очередного члена ряда становится меньше, чем заданная точность вычислений. Алгоритм решения задачи 7: Текст программы: Program Ex_7; Uses Crt; Var P: real; { сумма } t: real; { точность вычислений } el: real; { элемент ряда } n: integer; { знаменатели дробей } Begin ClrScr; P: =0; n: =1; el: =1; write(‘ Задайте точность вычислений ’); readln(t); While el> =t do Begin el: =1/(2*n-1); if (n mod 2)=0 then P: =P-el; else P: =P+el; n: =n+1; End; P: =P*4; Writeln(‘Значение ПИ равно ’, P); Readln; End.
|