Найти член последовательности, сумму членов последовательности

Posted by obzor under Delphi

Задана последовательность a_n=2+a_n^2-1/2a_n-1, a₁=2. Найти первые n-членов, их сумму. Найти 1 член последовательности больше заданного числа L и указать его номер.

newerow1989

const L=1000;
var an0,an1,s:real;
    n:integer;
begin
   an1:=1;
   n:=1;
   s:=an1;
   Writeln(an1:5:5);
   Repeat
      n:=n+1;
      an0:=an1;
      an1:=2+an0*an0-1/2*an0;
      s:=s+an1;
      Writeln(an1:5:5);
   Until an1>L;
   Writeln;
   Writeln('n = ',n);
   Writeln('s = ',s:5:5);
   Readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)