Текст программы
program example17_4;
Type Tfunc = function(x: real):real; Var
A,B,E,x: real; Np,N: integer; Fp: Tfunc;
function F(xp: real): real; begin
F:=sin(xp)-xp+2; end;
11
Текст программы. Процедура root
procedure root(A,B,E: real; Np:integer; Func: Tfunc; var X: real; var N: integer);
Var
Fa, FB, Fx: real; Fl: boolean;
begin FA:=Func(A); FB:=Func(B); if FA*FB>0 then begin
writeln('Interval [A, B] is invalid'); readln; end
else begin Fl:=true; N:=0;
12
Текст программы. Процедура root
while (Fl) do
begin N:=N+1; x:=(A+B)/2; FX:=Func(x); if FX*FB<=0 then A:=x else B:=x;
if(abs(B-A)<=E) then Fl:=false else
if (N>Np) then begin
Fl:=false; writeln('N>Np'); readln; end end end;
end; // конец процедуры root
13
Текст программы. Раздел операторов.
begin Fp:=F;
writeln('Input A,B,E,Np:'); read(A,B,E,Np); root(A,B,E,Np,Fp,X,N); writeln('root= ',x:8:6, ' N= ',N); writeln('y= ',Fp(x):8:3);
readln;
end.
14
Результаты выполнения программы
Определение корней уравнения с помощью построения таблицы функции sin(Х)-X+2 = 0 (MS Excel)
16
Приближенное вычисление корня на отрезке - метод подбора параметра (Excel)
17