Перейти к содержанию

Ambioz

Пользователи
  • Постов

    6
  • Зарегистрирован

  • Посещение

Весь контент Ambioz

  1. Спасибо. Раздача - Супер!!! как качество?
  2. Нет, но сегодня надо ответ дать. А ответ бал написан в курсовике, который я сдаю. Просто надо читать иногда то, что сдаёшь.
  3. Спасибо, уже нашел. Число итераций зависит от границ интервала. В обоих методах при увеличении точности линейно увеличивается количество итераций.
  4. Помогите, пожалуйста, срочно!!!. От чего зависит кол-во итераций в примерах f1(X)=sin x-cos x-0.5 Ввод исходных данных write ('Задайте точность расчета: '); readln (EPS); write ('Задайте границы интервала: '); readln (x1,x2); n:=0; //N: INTEGER – количе-ство итераций x3:=(x1+x2)/2; while abs(f(x3)) > EPS do begin y1:=f(x1); y2:=f(x2); x3:=x1-y1*(x2-x1)/(y2-y1); y3:=f(x3); if ((y1>0)AND(y3>0)) OR ((y1<0)and(y3<0)) then x1:=x3 else x2:=x3; n:=n+1 end; x:=x3; f2(x)=SQR(x-2)*2x-1 Ввод исходных данных write ('Задайте точность расчета: '); readln (EPS); write ('Задайте начальное приближение: '); readln (x1); Расчет n:=0; //N: INTEGER – количе-ство итераций x2:=x1+10; while abs(x2-x1)>EPS do begin x2:=x1; x1:=x1-f(x1)/f1(x1); n:=n+1 end; x1:=(x1+x2)/2.0; Вывод результата  WRITELN ('Корень уравнения ',x1); WRITELN ('Количество итераций ',n); Функция f  FUNCTION f(x: real): real; begin f:=sqr(x-2)*exp(x*ln(2))-1; end; Функция f 1 FUNCTION f1(x: real): real; begin f1:=2*(x-2)*exp(x*ln(2))+(x-2)*exp(x*ln(2))*ln(2); end; Как это выразить словами?
×
×
  • Создать...