Найти сумму ряда с заданной точностью

@stiggi13 · Регистрация: 28.04.2015

Author24 — интернет-сервис помощи студентам

Найти сумму ряда с точностью E=10^-3, общий член которого an= 1/n^2
перед begin не нравится чего-то

Pascal

var 
int n;
float aSum, E;
 
begin
aSum = 0;
E = 0.001;
n = 0;
while ((1 / (n * n)) > E) begin
aSum = aSum + (n * n);
n = n + 1;
end;
end;

@ZX Spectrum-128 · 10.05.2015, 22:17

В алгоритм не вчитывался. Непонятно, зачем первой же итерацией пытаетесь делить на 0.

Pascal

var
  n:integer;
  aSum, E: real;
begin
  aSum := 0;
  E := 0.001;
  n := 0;
  while ((1 / (n * n)) > E) do 
    begin
      aSum := aSum + (n * n);
      n := n + 1;
    end;
end.

	10.05.2015, 22:17