Курсовая работа: Розв’язання нелінійних диференційних рівнянь методом січних і половинного ділення

else

x_r := x;

y:=f(x);

inc(step);

end;

with Memo1.Lines do begin

Clear;

Add('Метод половинного д_лення:');

Add(' Допустима похибка: '+FloatToStrF(err,ffFixed,8,10));

Add(' Корен_: '+FloatToStrF(x,ffFixed,8,10));

Add(' К_льк_сть крок_в до розвязання: '+IntToStr(step));

end;

// Trunc's method

x := 1; x_l := 0;

step := 0;

while abs(x_l-x)>err do begin

x_l := x;

x := x - f(x)/((f(x+err)-f(x))/err);

inc(step);

end;

with Memo1.Lines do begin

Add('Метод с_чних:');

Add(' Допустима похибка: '+FloatToStrF(err,ffFixed,8,10));

Add(' Корен_: '+FloatToStrF(x,ffFixed,8,10));

Add(' К_льк_сть крок_в до розвязання: '+IntToStr(step));

end;

// Lin's method

with Memo1.Lines do begin

Add('Метод Л_на:');