Вычислить последовательность числел, образованных по следующему закону...

@SkyLine · Регистрация: 23.11.2009

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

Доброго времени суток.

Задание: Вычислите x1+x2+...+x20 , если последовательность образована по следующему закону: x1=1;
x2=0.2; xi=(i+1)*x(i-2). , где i - номер элемента.

С использованием массива решается легко. Но в том и дело, что нельзя использовать массивы. Подскажите куда хоть копать?

@SkyLine · 24.05.2010, 22:21 **[ТС]**

Delphi

program Lab_3;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var x1, xi, x2,s: real;
 i: integer;
 
begin
 
  s:=0;
  x1:=1; x2:=3/10;
  for i:=3 to 20 do
     begin xi:=(i+1)* x1;
        x1:=x2;
        x2:=xi;
        s:=s+xi;
      end;
 
  writeln ('Summa = ',s);
  readln;
end.

Решение, не моё. На Delphi. Мб кому пригодится.

@SkyLine 2 / 2 / 2 Регистрация: 23.11.2009 Сообщений: 29
		1
	Вычислить последовательность числел, образованных по следующему закону... 21.05.2010, 22:03. Показов 3707. Ответов 1 Метки нет (Все метки) Доброго времени суток. Задание: Вычислите x1+x2+...+x20 , если последовательность образована по следующему закону: x1=1; x2=0.2; xi=(i+1)*x(i-2). , где i - номер элемента. С использованием массива решается легко. Но в том и дело, что нельзя использовать массивы. Подскажите куда хоть копать? 0

	24.05.2010, 22:21