Программа решения нелинейных уравнений численным методом (метод хорд)

[АнечкаЯ]

Всем привет! Ребята, нужна ваша помощь...В паскале совсем не понимаю, на носу зачёт, бегу к вам, в надежде на помощь.. пожалуйста, если кто то разбирается помогите бедной студентке))) Вообщем суть проблемы, нужно написать в паскале, программу решения нелинейных уравнений численным методом(метод хорд).

[Poma][a]

тыц? (буквы-буквы-буквы)

[АнечкаЯ]

Сообщение от Poma][a

тыц? (буквы-буквы-буквы)

это немного не то что нужно...нужно само решение в программе паскаль..
Programm
Begin
.....
End
ну вы поняли, я думаю..версия программы старая.

[АнечкаЯ]

Пожалуйста, кто нибудь, решите задачку

[Vanta11a]

Допустим что решил. А дальше то что? Исходник Вам отдать нахаляву? Обломитесь. Феечки идут лесом.

[Stilet]

Надо же... Завалялся один в сусеках.

function f(x:Double):double;
begin
    result:=log10(x)-1/x*x;
end;

// a, b - пределы хорды, epsilon - необходимая погрешность
function findRoot(a,b,epsilon:double):double ;
begin
    while abs(b - a) > epsilon do begin
        a := b - (b - a) * f(b)/(f(b) - f(a));
        b := a - (a - b) * f(a)/(f(a) - f(b));
    end;
    result:=b;
end;

begin
 write(findroot(1,3,0.3):5:2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Впрочем я х.з. подойдет али нет.