01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / METOD

program  shurik;
uses crt;
  const eps=0.001;

  var
     x0,y0,xk,yk,xk1,yk1,xn,yn,xn1,yn1,a,b,m,n:real;
   begin
   clrscr;
     x0:=1.4; y0:=-1;
     xk:=x0; yk:=y0;
     xn:=x0; yn:=-1;   n:=0;
      repeat
       begin
        xk1:=-cos(yk-2)+0.5 {3+cos(yk)};
         yk1:=sin(xk+2)-1.5 {0.5-cos(xk+1)};
     a:=abs(xk1-xk);
      b:=abs(yk1-yk);
       if a>b then m:=a
               else m:=b;
      yk:=yk1;xk:=xk1;       n:=n+1;
       end;
     until m<eps ;
     writeln('xk=',xk1:4:2,'   ','yk=',yk1:4:2,'  ',n:4:2);
       repeat
        begin
         xn1:=xn*(-sin(yn-2)*(sin(xn+2)-yn-1.5)+(xn+cos(yn-2)-0.5))/(cos(xn+2)*sin(yn-2)+1);
          yn1:=yn*(-1*(sin(xn+2)-yn-1.5)+(cos(xn+2)*cos(yn-2)-0.5))/(cos(xn+2)*sin(yn-2)+1);              ;
          a:=abs(xn1-xn);
           b:=abs(yk1-yk);
         if a>b then m:=a
                 else m:=b;
          xn:=xn1;
           yn:=yn1;
         end  ;
        until m<eps;
     writeln('xn=',xn1,'   ','yn=',yn1);
    end.