вычислить члены ряда по формулам ( Delphi )

[Dimabara]

var
mas: array[3..26] of byte;
x,y:Real;
const
x1,y1=1;
x2,y2=2;

меня даже условие напрягает, как его составить

[ViktorR]

Создай два массива x и y нужной размерности (N) и заполни первые элементы в соответствии с заданием:

const N = 25;
type mas = array[1..N] of real;
var x, y: mas;
   i : integer;
   f : longint; {факториал}

x[1] := 1; y[1] := 1;
x[2] := 2; y[2] := 2;
f:=2;
{Далее в цикле}
for i := 3 to N do
begin
   f := f * i;
   x[i] := (y[i-1] -y[i-2])/i;
   y[i] := {запиши нужную формулу для вычисления};
end;

и все само получится.


Так кажется ...

[Dimabara]

сейчас попытаюсь