Задача с системой уравнений, Задача с системой уравнений Опции

[P.I.M.P.]

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

[klem4]

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.

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

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

Сообщение отредактировано: klem4 - 28.11.2005 17:15