Приклад обчислення суми нескінченного ряду

Скласти блок-схему алгоритму, програму для обчислення суми нескінченного ряду із заданою точністю ε = 10-⁴.

Блок-схема алгоритму

Програма обчислення суми нескінченного ряду

programsuma; uses crt;

Var

x,U,S,E:real; k,n:integer;

Begin

clrscr;

write ('введіть =');

readln(x);

E:=10E-3;

U:=x/2;

S:=U;

k:=1;

n:=2;

Repeat

U:=-U*sqr(x)/(2*n);

S:=S+U;

k:=k+1;

n:=n+1;

untilabs(U)<=E;

writeln (' сума ряду дорівнює ', S:6:3);

writeln (' кількість членів ряду ', k);

readln;

end.