Witam, napisałem program, ale nie mam pewności czy liczy to co trzeba, ponieważ dostałem do niego "dziwnie" napisane pytanie które brzmi:
Dany jest ciąg o elementach określonych wzorem:
ai=1/((i-1)*(i+1)) gdzie i=2,3,...
Napisz program zawierający funkcję wyznaczającą numer tego elementu ciągu począwszy od którego różnica dwu kolejnych wyrazów jest mniejsza niż EPS. Wartość EPS należy wczytać w programie głównym.
program element_ciagu;
{$APPTYPE CONSOLE}
uses
SysUtils;
function numer(eps : real) : real;
var
ai, aj : real;
i, n : integer;
begin
n := 0;
i := 2;
ai := 1;
repeat
aj := ai;
ai := 1 / ((i - 1) * (i + 1));
i := i + 1;
n := n + 1;
until
abs(ai - aj) < eps;
numer := n;
end;
var
eps : real;
begin
writeln('podaj wartosc eps');
readln(eps);
writeln('numer tego elementu= ', numer(eps): 8: 2);
readln;
end.