Вычислить предел последовательности {Yn} при n -> к бесконечности, где Yn вычисляется по формуле: Yn=0,25*sin(Yn-1)+0,5*sin(Yn-2); n=2,3,4… Значения Y0,Y1 вводятся с клавиатуры , вычисления прекратить при выполнении условия |Yn-Yn-1|< эпсилон - Pascal(Паскаль)

uses crt;
var y0,y1,yn,eps:real;
    n:integer;
begin
clrscr;
writeln('Введите значения y0,y1');
readln(y0,y1);
yn:=0.25*sin(y1)+0.5*sin(y0);
repeat
write('Введите значение точности больше 0 и меньше ',abs(yn):0:1,' eps=');
readln(eps);
until(eps>0)and(eps<abs(yn));
while abs(y1-y0)>eps do
 begin
  y0:=y1;
  y1:=yn;
  yn:=0.25*sin(y1)+0.5*sin(y0);
 end;
write('Yn=',yn:0:5,' eps=',abs(yn-y1):0:5);
readln
end.

Leave a Comment

34 − 33 =