| Код |
function f(const x: extended): extended;
begin
f:= (exp(x) - exp(- x) + 2 * x) / sqrt(abs(x - sin(x)));
end;
var x0,e: extended;
deltaLeftNew, deltaLeftOld, deltaRightNew, deltaRightOld: extended;
begin
readln(x0); {значение х, для которого будем искать предел}
readln(e); {погрешность}
deltaLeftOld:= 2;
deltaLeftNew:= 1; {начальное значение аргумента х при подходе к точке слева}
deltaRightOld:= 2;
deltaRightNew:= 1; {начальное значение аргумента х при подходе к точке справа}
while abs(f(x0 - deltaLeftNew) - f(x0 - deltaLeftOld))> e do
begin
deltaLeftOld:= deltaLeftNew;
deltaLeftNew:= deltaLeftNew / 2;
end;
while abs(f(x0 + deltaRightNew) - f(x0 + deltaRightOld))> e do
begin
deltaRightOld:= deltaRightNew;
deltaRightNew:= deltaRightNew / 2;
end;
writeln('предел в точке ',x0,' с точностью до ',e,':');
writeln('предел слева: ', f(x0 - deltaLeftNew));
writeln('предел справа: ', f(x0 + deltaRightNew));
readln;
end.
|
|