Рекурсии

[RAMA]

Составить 2е задачи. Рекурсивные процедуры и функции.
Описать рекурсивную функцию root(f, a, b, e), которая методом деления отрезка пополам находит с точностью e корень уравнения f(x)=0 на отрезке [a, b]. (Считать, что e>0, a<b, f(a)*f(b)<0 и f(x}-непрерывная и монотонная функция на отрезке [a, b].)

[Arigato]

Ну и как, составили?

[RAMA]

неа(((( ваще не могу

[Arigato]

Сообщение от RAMA

неа(((( ваще не могу

Сочувствую.

[ОДИНОЧЕСТВО В СЕТИ]

вот исходник программы в функцию переделывать никакого желания нет переделаете сами

Uses Crt;

Function f(x: Double): Double;
 Begin
   f := x // тут ваша функция!!!
 End;

Var
 x, Eps, a, b, c: Double;
 n: Integer;

begin
 ClrScr;
 Writeln('Введите значения a и b'); Read(a, b);
 WriteLn('Введите точность Eps'); Read(Eps);

 n := 0;
 Repeat
   c := (a + b) / 2;
   If (f(a) * f(c)) < 0 Then b := c
   Else a := c;
   Inc(n)
 Until (b - a) <= Eps;

 x := (a + b) / 2;
 WriteLn('Корень равен  x=', x:10:7);
 WriteLn('Количество делений = ',n);
 ReadKey
end.

[Serge_Bliznykov]

ОДИНОЧЕСТВО В СЕТИ, ему это решение не подойдёт, задание то учебное! и необходимо написать именно рекурсивную функцию...

RAMA, Вы сами хоть что-нибудь сделали? Или ждёте, что всё сделают за Вас? (тогда платите деньги!) В чём конкретно затруднение?
Рекурсивная функция — это функция, которая вызывает сама себя.
примерно решение будет выглядеть так:

function root(f, a, b, e) : double;
...
begin
   if нашли решение (c точностью e) then root := решение; выход    
   иначе
      c := (a + b) / 2;
      If (f(a) * f(c)) < 0 Then root := root(f, a, c, e)
      Else root := root(f, c, b, e)
end;

[ОДИНОЧЕСТВО В СЕТИ]

ну рекурсивную так рекурсивную

FUNCTION F(X:REAL):REAL;
BEGIN
 F:=X;
END;
FUNCTION root(A,B,e:REAL):REAL;
VAR X,Y,Z:REAL;
BEGIN
 IF ABS(A-B)<e THEN root:=(A+B)/2
   ELSE BEGIN
   X:=F(A);
   Y:=F((A+B)/2);
   Z:=F(B);
   IF X*Y<0 THEN root:=root(A,(A+B)/2,e)
            ELSE root:=root((A+B)/2,B,e)
   END
END;

функцию f сам ТС прикрутит!