помогите написать программу по итерационным циклам!!!

[Триш]

ааа.JPG
не могу разобраться с формулой
в чем ошибки

Program Lab4;
 Var
  x,y0, yn1, eps: real;
  yn: integer;
 Begin
  x:=2;
  eps:=0.01;
  y0:=1;
  y0:=yn;
  yn1:=yn-((sqr(x-1)+sqr(yn-2)-9)*(-2+yn));
  writeln('При х=',x,' и eps=',eps);
  while abs(yn1-yn) > eps do
    begin
      Inc(yn);
      yn1:=yn-((sqr(x-1)+sqr(yn-2)-9)*(-2+yn));
    end;
  writeln('yn=', yn:6, ' yn1=', yn1:6:2);
 End.

[type_Oleg]

А что непонятно?
x=2
F(x,y)=(x-1)^2+(y-2)^2-9
F'y(x,y)=dF/dy=2(y-2)
сначала y=1, потом подставляете в итерационную формулу , получаете следующее y= - 2,5 , и т.д. В конце концов y = -0.828427125.

С помощью repeat, или while или for ... Break

PS Пока писал, уже добавили...

y0:=yn;  // чему это равно вначале, и зачем вообще y0?
yn1:=yn-((sqr(x-1)+sqr(yn-2)-9)*(-2+yn));  // не умножить, а делить на производную
 // и производная F'y(x,y)= 2*(y-2)

И вообще, мне кажется у вас переменные yn, yn1 не будут меняться. Ведь после проверки на эпсилон нужно присваивать одно другому, чтобы итерация была, а не просто топтание на месте.

А Inc(yn); = это не то.Здесь вообще будет ошибка при компиляции.

[Триш]

вообще не выводит ответа(

Program Lab4;
 Var
  x,yn,yn1, eps: real;
  n: integer;
 Begin
  x:=2;
  eps:=0.01;
  yn:=1;
  n:=1;
  yn1:=yn-((sqr(x-1)+sqr(yn-2)-9)/2*(yn-2));
  writeln('При х=',x,' и eps=',eps);
  while abs(yn1-yn) > eps do
    begin
      n:=n+1;
      yn1:=yn-((sqr(x-1)+sqr(yn-2)-9)/2*(yn-2));
    end;
  writeln('yn=', yn:6, ' yn1=', yn1:6:2);
 End.

[type_Oleg]

Сообщение от Триш

вообще не выводит ответа(

И хорошо, что не выводит.
Куча ошибок. Например,

yn1:=yn-((sqr(x-1)+sqr(yn-2)-9)/2*(yn-2));

Вы не разбираетесь в приоритетах операций.
Если ... 8/2*4 означает, что сначала 8 разделят на 2, а потом получившуюся 4 умножат на 4.

И вообще, полная чушь .
Зачем это

n:=n+1;

эта n где нибудь используется?

Вы вообще не въезжаете, что пишете
Вот, все работает

Program Lab4;
const EPS=0.01;
var x,yn,yn1:Real;
begin
 x:=2;
 yn:=999; // любое число <> yn1
 yn1:=1;
 while Abs(yn-yn1)>EPS do
  begin
   yn:=yn1;
   yn1:=yn-(Sqr(x-1)+Sqr(yn-2)-9)/(2*(yn-2));
  end;
 WriteLn(yn1);
 ReadLn;  // это чтобы окошко не исчезало мгновенно, и чтобы не казалось, что " вообще не выводит ответа"
end.

[Триш]

про n мне говорил сам препод и сказал, что ошибка в формуле
спасибо большое