Контрольная работа: Решение нелинейных уравнений методом интераций

¾ для Form3, Form4- включить в программу.

2.2 Программирование вычисления

Для вычисления корней уравнения используется подпрограмма – функция iter(x0,xk,eps:real): real. Она составлена по блок схеме представленной выше (1 теоритическая часть). Функции нужно сообщить начало и конец промежутка, результат функции корень уравнения;

function iter(x0,xk,eps:real): real;

var

x1,y,d,j:real;

begin

x1:=x0;

repeat

if (fnsh(x1)<1)then begin

y:=form1.fn(x1);

d:=abs(y-x1);

x1:=y;

end else begin

j:=messagedlg('Задайте другое начало промежутка',mtinformation,[mbok],0);

break;

end;

until (d<=eps)or (x1>=xk);

if x1>=xk then

j:=messagedlg('На заданном промежутке корней нет!',mtinformation,[mbok],0)

else

iter:=y;

end;

Уравнение задано подпрограммой – функцией tform1.fn(x:real): real

function tform1.fn(x:real): real;

begin

fn:=2-sin(1/x);

end;

Производная задана подпрограммрй – функцией fnsh(x:real): real;

function fnsh(x:real): real;