[sonja-kot]

Всем доброй ночи,
прошу помощи,т.к. совсем не в теме как это делается
у меня дана такая последовательность x/n+1=x/n+1/(x/n)
т.е. х/n читается как икс нное х/1=100
Необходимо с помощью Pascal узнать какие значения будут выходить через каждые 100 чисел
т.е. х/100, х/200, х/300 и т.д.
И изучить около 15 таких чисел
Подскажите с чего начать

@темы: Pascal

Comments

[Aguinore]

Начать с изучения записи функции одной переменной в математике. Формула X(n+1) = X(n) + 1/X(n)? Самый простой вариант:

var
   i: integer;
   X: array[1..1500] of double;

begin
X[1] := 100;
for i := 2 to 1500 do
begin
   X[i] := X[i-1] + 1/X[i-1];
   if i mod 100 = 0 then writeln ('X[', i, ']=', X[i]:5:2);
end;
readln;
end.