Найти корень уравнения методом хорд

Категория: Delphi/Pascal
2011-08-20 14:24:49

Метод хорд — итерационный численный метод приближённого нахождения корня алгебраического уравнения.

code: #pascal
  1. Program MethodHorda;
  2.     Uses Crt;
  3.     Var
  4.         a,b,t,x,eps: Real;
  5.      
  6.     Function func(x: Real): Real;
  7.     Begin
  8.         { Здесь прописываем функцию, корень которой ищем }
  9.         func:=x*x*x - 2*x*x + 7*x + 3;
  10.     End;
  11.      
  12.     Begin
  13.         ClrScr;
  14.         { Ввод исходных данных }
  15.         Write('Введите левую границу отрезка: ');
  16.         ReadLn(a);
  17.         Write('Введите правую границу отрезка: ');
  18.         ReadLn(b);
  19.         Write('Введите необходимое приближение (точность): ');
  20.         ReadLn(eps);
  21.         { Вычисляем в цикле, пока не достигнуто заданное приближение }
  22.         Repeat
  23.             x:=a-func(a)*(b-a)/(func(b)-func(a));
  24.             If func(a)*func(x)<=0 Then b:=x
  25.                        Else a:=x;
  26.         Until abs(func(x))<=eps;
  27.         Writeln(' Корень уравнения x = ', x:10:8);
  28.         Repeat Until KeyPressed
  29.     End.
Поделиться:

Похожие статьи:

теги: корень, консольное приложение, студенты, pascal