Octave / zadan6

function F = zadan6(f,a,b,e)
  if (a > b || e < 0)
    F = 'Неверные даннные';
    return;
  else
    fa = f(a);
    fb = f(b);
    if (fa * fb < 0)
      while(true)
        fa = f(a);
        c = (a + b) / 2;
        fc = f(c);
        if (abs(fc) < e )
          break;
        else
          if (fa * fc < 0)
            b = c;
          else
            a = c;
          endif
        endif
      endwhile
    else
      F = 'Неверные данные';
      return;
    endif
  endif
  F = c;
endfunction