Здравствуйте,помогите решить задачу...

Тема в разделе "Delphi - FAQ", создана пользователем zloygeniy, 21 мар 2009.

  1. zloygeniy

    zloygeniy Гость

    Здравствуйте!!! Очень нужна помощь в следующем вопросе:
    Методом половинного деления вычислить на ЭВМ корень уравнения вида f(x)=0,расположенный на отрезке[a,b],с абсолютной погрешностью e(эпсилон))).При решении использовать подпрограмму.Выполнить проверку полученного решения.Описать сущность метода решения задачи.
    Вот само уравнение:3x-4lnx-5=0;Отрезок[2,3];Точность 10 в -3 степени.
    Помогите пожалуйста!
    Алгоритм примерно следущий,наверно...
    1) Найдем середину отрезка [a; b]: c=(a+B)/2;
    2) Вычислим значения функции в точках a и c и найдем
    произведение полученных значений: d=f©ּf(a);
    3) Если d>0, то теперь точкой a станет c: a=c;
    Если d<0, то точкой b станет c: b=c;
    4) Вычислим разность a и b, сравним ее с точностью ε
    : если |a-b|> ε, то идем в пункт 1) если нет, то корень с нужной
    нам точностью найден, и он равен: x=(a+B)/2;


    Я,конечно,понимаю,что все это дело в цикле крутим до тех пор пока отрезок не сузится либо до корня либо до погрешности...
    Но у мя туго с программированием...Помогите написать текст проги плиз!
    Заранее спасибо!
     
  2. zloygeniy

    zloygeniy Гость

    Даны натуральные числа n,b0,...,bn.Вычислить f(bo)+(b1)+...(bn),где f(x)=x в квадрате,если x кратно 3;f(x)=x,если x при делении на 3 дает остаток 1;
    f(x)=x/3-в остальных случаях.

    Заранее спасибо! B)
     
Загрузка...

Поделиться этой страницей