Решение этой же задачи с помощью оператора цикла с

Последующим условием

Блок-схема алгоритма нахождения значения суммы членов бесконечного ряда:

Начало

1

ε=10-4   a, b, t

ввод X

3

c=c; a=x; b=1; d=n; n=1; S=0;

4

S=S+a n=n+1

5

b=b; d=n

_Нет 8

_Да

Печать S, n-1

9

Конец

Программа для ЭВМ на алгоритмическом языке TURBO PASCAL:

Program LR_3; {czikl do}

const eps=1e-4;

var x,c,a,s,d: real;

b,n: integer;

Begin

write ('Vvedite znachenie x: ');

readln(x);

c:=c; a:=x; b:=1;

d:=n; n:=1; S:=0;

repeat

S:=S+a;

writeln ('a=',a:5:4);

write ('pri n=',n:1,' S=',S:5:4);

readln;

n:=n+1;

b:=b;

c:=exp(n*ln(x))*n*cos(n*pi/3);

d:=n;

a:=b*c/d;

until abs(a)<eps;

writeln ('Summa ryada=',S:5:4);

writeln ('Kolichestvo chlenov, voshedshih v summu=',n-1);

readln

End.

Протокол работы программы:

Vvedite znachenie x: 0.25

a=0.2500

pri n=1 S=0.2500

a=-0.0312

pri n=2 S=0.2188

a=-0.0156

pri n=3 S=0.2031

a=-0.0020

pri n=4 S=0.2012

a=0.0005

pri n=5 S=0.2017

a=0.0002

pri n=6 S=0.2019

Summa ryada=0.2019

Kolichestvo chlenov, voshedshih v summu=6

Ручная проверка

 

при n=1

при n=2

при n=3

S:=S+a (s:=0 - нач. знач.)

a:=

1) b: 1;1;1;1;1…

b:=b (b:=1 - нач. знач.)

2) c: ; ; …

c:=

n:=n+1 n:=1 – (нач. знач.)

3) d: 1;2;3…

d:=n