Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика (типовой расчет) / пример задания 5(Типовой расчет_часть1).ppt
Текст программы
else begin Fl:=true; N:=0; while (Fl) do
begin N:=N+1; x:=(A+B)/2;
if ((sin(X)-X+2)*(sin(B)-B+2)<=0) then A:=x
else B:=x;
11
Текст программы
if(abs(B-A)<=E) then |
|
|
begin |
Fl:=false; |
|
writeln('root= ',x:8:6, ' |
N= ',N); |
|
Y:= sin(X)-X+2; |
writeln('y= ',y:8:6); |
|
readln; |
|
|
end |
|
|
12
Текст программы
else
if (N>Np) then begin
Fl:=false; writeln('N>Np'); readln; end
end end; readln
end.
13
Результаты выполнения программы
Input A,B,E,Np: 2 3 0.00001 40
root= 2.554192 N= 17 y= 0.000008
14
Определение корней уравнения с помощью построения таблицы функции sin(Х)-X+2 = 0 (MS Excel)
15
Приближенное вычисление корня на отрезке - метод подбора параметра (Excel)
16