===== PascalABC.NET =====
begin
var eps := 1e-5;
var (s, a, i, n) := (1.0, 1.0, 1.0, 0);
repeat
i += 1;
n += 1;
s += 1 / Sqr(i);
if n mod 500 = 0 then
if Abs(s - a) < eps then
break
else
a := s
until False;
s.Print
end.
Поскольку ряд сходится медленно, сравниваются частичные суммы, отстоящие друг от друга на 500 членов. "Правильное" значение, известное из математики, равно приблизительно 1,64493.
===== PascalABC.NET =====
begin
var eps := 1e-5;
var (s, a, i, n) := (1.0, 1.0, 1.0, 0);
repeat
i += 1;
n += 1;
s += 1 / Sqr(i);
if n mod 500 = 0 then
if Abs(s - a) < eps then
break
else
a := s
until False;
s.Print
end.
Поскольку ряд сходится медленно, сравниваются частичные суммы, отстоящие друг от друга на 500 членов. "Правильное" значение, известное из математики, равно приблизительно 1,64493.