Question

Составить блок-схему вычисления суммы ряда:

Answer 1

Программа на языке Pascal:

Var
   S:real;
   n:integer;
Begin
Write('k = ');ReadLn(n);
For n:= 1 to n do
    S:=S+(n+1)/(n*n);
WriteLn('S = ',S);
End.


k = 4
S = 3.50694444444444

Answer 2

Во вложении приведена блок-схема по ГОСТ 19.701-90 (ISO 5807-85).

Вычисление для k=4
s=0
i=1; s = s+(1+1)/1² = 0+2 = 2
i=2; s = s+(2+1)/2² = 2+3/4 = 2.75
i=3; s = s+(3+1)/3² = 2.75+4/9 ≈ 3.1944444
i=4; s = s+(4+1)/4² = 3.1944444+5/16 = 3.5069444

Точный ответ: 505/144