task6 :: IO ()
task6
    | snd result    = printf "Минимум найден в точке (%.4f, %.4f)\n" x y
    | otherwise     = printf "Минимум не найден, последняя найденная точка: (%.4f, %.4f)\n" x y
    where
        result  = stepDivision (103.0, 34.0) 0.000001 10000 1
        (x, y) = fst result

f (x, y) = (x - 4) ^ 2 + (y + 7) ^ 2 - 4

f_der_x x y =
task6 :: IO ()
task6
    | snd result    = printf "Минимум найден в точке (%.4f, %.4f)\n" x y
    | otherwise     = printf "Минимум не найден, последняя найденная точка: (%.4f, %.4f)\n" x y
    where
        result  = stepDivision (103.0, 34.0) 0.000001 10000 1
        (x, y) = fst result
task6
    | snd result    = printf "Минимум найден в точке (%.4f, %.4f)\n" x y
    | otherwise     = printf "Минимум не найден, последняя найденная точка: (%.4f, %.4f)\n" x y
    where
        result  = stepDivision (103.0, 34.0) 0.000001 10000 1
        (x, y) = fst result