ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ . Я НАД НЕЙ УЖЕ НЕДЕЛЮ ПАРЮСЬ

В чем у тебя конкретно проблема ? что не получается ?

Непонятен смысл задачи. какая-то фигня.У кого не спрошу, никто не знает как решать, может ты поскажешь?

-P.I.M.P.-

Все предельно просто: ты получаешь А, и согласно его значению вычисляешь X0... (два If-а).

Далее, по приведенной формуле вычисляешь X1 через X0, X2 через X1, ... до тех пор, пока для какого-то Xn не выполнится условие окончания (это делается в Repeat ... Until {условие})

Ну, и наконец, вычисляешь требуемую разность для найденного Xn...

В чем теперь проблема?

А ты не мог бы хотя бы начало кода записать, Please.

Вот так вот:

function min(x, y: real): real;
begin
  min := x;
  if y < x then min := y;
end;

const
  eps = 1e-6;
var
  A, X0, next: real;

begin
  write('A = '); readln(A);
  if a <= 1 then X0 := min(2*a, 0.95)
  else
    if a < 25 then X0 := a / 5
    else X0 := a / 25;

  {
  ... Вычисление Xслед от Xпред
  }
end.

Только уточни в формуле Xn = там X[n-1] стоит в числителе или в знаменателе?

uses crt;
const
   n = 10;
var
   x : array[0..n-1] of single;
   i : byte;
   a : single;

function min(x,y : single) : single;
begin
   min := x;
   if y < min then min := y;
end;

begin

   clrscr;

   write('a='); readln(a);

   if a<=1 then
    x[0] := min(2*a, 0.95)
     else
   if (a>1) and (a<25) then
    x[0] := a/5
     else  x[0] := a/25;

   for i := 1 to n-1 do begin
      x[i] := 4/5 * x[pred(i)] + a / (5*exp(4*ln(x[pred(i)])));
      writeln(x[i]:2:2);
   end;

end.

держи .. а дальше сам.

хехе, что-то я долго писал )мессагу))))

Klem, большое спасибо, ты очень выручил меня

P.I.M.P., ты на заданные вопросы принципиально не отвечаешь? Ну что ж... Наверное и нам не стоит отвечать на остальные твои вопросы (тем более что программа klem4 может оказаться неправильной, я НИЧЕГО просто так не спрашиваю...)