числовые ряды, решения задач на числовые ряды Опции

[jenka]

Какие существуют основные приемы решения задач на числовые ряды. Примеры

[jenka]

Вот можно привести такой пример:
Вычислить S=1+2+3+...+n.

var n,s,i,: integer;
BEGIN write(' Введите значение n ->');
          readln (n);
          s:=0;
          for i:=1 to n do s:=s+i;
          writeln('Сумма =',s);
END.

или вычислять S=1+2+3+...+n , пока n не будет равняться 50

......

BEGIN s:=0;
          n:=1
          while n<=50 do
          s:=s+n;
          n:=n+1;
END.

или так

BEGIN s:=0;
          n:=1:
          repeat s:=s+n;
                    n:=n+1;
          until n<=50;
END.

[Lapp]

или вычислять S=1+2+3+...+n , пока n не будет равняться 50

BEGIN s:=0;
          n:=1
          while n<=50 do
          s:=s+n;
          n:=n+1;
END.

или так

BEGIN s:=0;
          n:=1:
          repeat s:=s+n;
                    n:=n+1;
          until n<=50;
END.

В первом куске (процитированном) нужно взять тело цикла в операторные скобки "begin end" - иначе компилятор будет исполнять в цикле только один оператор, сразу следующий за оператором цикла while. Кроме того, пропущена одна ";" (найди, где). То есть нужно так:

BEGIN
  s:=0;
  n:=1;
  while n<=50 do begin
    s:=s+n;
    n:=n+1
  end;
END.

Советую обратить внимание на формат прогрпммного текста (отступы), это важно в программировании.

Во втором фрагменте неверно поставлено условие выхода из цикла. Для until оно как бы противоположное тому, что нужно ставить в while. То есть в while это "пока ..", а в until "пока не ..". Еще тут вместо ";" стояло ":" в одном месте..
Надо так:

BEGIN 
  s:=0;
  n:=1;
  repeat 
    s:=s+n;
    n:=n+1
  until n>50
END.

Этот пример довольно простой. Кроме того, ряд этот расходится, что нехарактерно. Найди формулу для сходящегося ряда, желательно знакопеременного, и оцени ее по последнему члену в сумме.
Успехов!