Текст программы
end
else begin
E:=1; for i:=1 to 5 do begin
E:=E/10; A1:=A; B1:=B; Fl:=true; N:=0; while (Fl) do
begin N:=N+1; x:=(A1+B1)/2;
if ((sin(x)-x+2)*(sin(B1)-B1+2)<=0) then A1:=x else B1:=x;
Текст программы
if(abs(B1-A1)<=E) then begin
Fl:=false;
writeln('eps = ',E:6:5,' root= ',x:8:6, ' N= ',N); end
else
if (N>Np) then
begin |
|
Fl:=false; |
writeln('N>Np'); readln; |
end |
|
end end; |
end; |
end. |
12 |
|
Результаты выполнения программы
Input A,B,Np: 2 3 50
eps = 0.10000 root= 2.562500 N= 4 eps = 0.01000 root= 2.554688 N= 7 eps = 0.00100 root= 2.553711 N= 10 eps = 0.00010 root= 2.554138 N= 14 eps = 0.00001 root= 2.554192 N= 17
Определение корней уравнения с помощью построения таблицы функции sin(Х)-X+2 = 0 (MS Excel)
Приближенное вычисление корня на отрезке - метод подбора параметра (Excel)