Турбо Паскаль. Циклы.

[bagfinder]

Здравствуйте. Написал программу для вычисления предела.

        writeln('Введите Y0, Y1 и точность eps: ');
        readln(Y0,Y1,eps);
          if (eps>0.1) or (eps<0) then
            begin
            writeln('Ошибка! Некорректная точность eps!');
            Halt
            end;
        yn:=0.352*y1+cos(pi2+y0);
        while abs(yn-y1)>eps do
            begin
            y0:=y1;
            y1:=yn;
            yn:=0.352*y1+cos(pi2+y0);
            end;
        writeln('yn);

Написал с использованием Цикла While.
Как будут выглядеть те же расчеты, но с использованием Цикла До (С постусловием, как я понимаю). ?
Буду премного благодарен.

Формулы, если они нужны, в аттаче

[Jean-Esther]

Наколько я понял, в строчке

yn:=0.352*y1+cos(pi2+y0);

должны быть одинаковые аргументы в правой части (оба y1, как я понял, y1 — аналог y_{n-1} в прикрепленной формуле).

[Феска]

writeln('Введите Y0, Y1 и точность eps: ');
        readln(Y0,Y1,eps);
          if (eps>0.1) or (eps<0) then
            begin
            writeln('Ошибка! Некорректная точность eps!');
            Halt
            end;
        yn:=0;
        repeate 
            begin
            y0:=y1;
            y1:=yn;
            yn:=0.352*y1+cos(pi2+y0);
            end;
        until abs(yn-y1)<eps;
        writeln('yn);

или чего то я не так понял??

[bagfinder]

From Stilet: Я попрошу не делать твои посты разными постами сообщения если они стоят рядом.
Jean-Esther, да, это ошибка). аргументы одинаковы.
А не могли бы вы сказать, соответствуют ли расчеты данной формуле?

Феска да, вроде бы так, спасибо большое

        writeln('-----------');
        writeln('Задача 2 - Нахождение лимита');
        writeln('Введите Y0, Y1 и точность eps: ');
        readln(Y0,Y1,eps);
          if (eps>0.1) or (eps<0) then
            begin
            writeln('Ошибка! Некорректная точность eps!');
            Halt
            end;
        yn:=0.352*y1+cos(pi2+y1);
        while abs(yn-y1)>eps do
            begin
            y0:=y1;
            y1:=yn;
            yn:=0.352*y1+cos(pi2+y1);
            end;
        writeln('Циклом Пока: ',yn);
        writeln('-----------');
        
        yn:=0;
        repeat
            begin
            y0:=y1;
            y1:=yn;
            yn:=0.352*y1+cos(pi2+y1);
            end;
        until abs(yn-y1)<eps;
        writeln('Циклом До: ',yn);

как так?
При одинаковых вводных данных получаются разные ответы...

===

Нашел ошибку в условии в формуле. Там Пи/2 складываем с Y(y-2)
т.е Y 0 Это и есть Y (y-2)

===

Я полностью переписал код. Проверьте, пожалуйста, на наличие косяков. На первый взгляд, все считается нормально:

const pi2 = 1.5707;

var a, b, x, s, y0, y1, yn, eps, yy0, yy1 : real;
    i, n, m : integer;
    flag : boolean; {если флаг тру, 
    то мы делим на 0, а этого нельзя. Исключительная}


begin
     writeln('Введите a, b, x...');
     readln(a, b, x);
     writeln('Введите n, m...');

     readln(n, m);
     s := 0;

     flag := false;
     for i := m to n do begin

         if b + x * i = 0 then begin
             flag := true;
             break;
         end;

         if i mod 2 = 0 then
            s := s + (a + x*i) / (b + x*i)
         else
            s := s - (a + x*i) / (b + x*i);

     end;
     s := a + b * s;

     if flag = true then
         writeln('It is impossible to count such sum')
     else
         writeln('Сумма= ', s:0:5);

     {//////////////////////}

     writeln('Введите Y0, Y1 и точность eps: ');
     readln(yy0, yy1, eps);
     if (eps > 0.1) or ( eps <= 0) then begin
          writeln('Ошибка! Некорректная точность eps!');
          halt(0);
     end;

     yn := 0.352 * yy1 + cos(pi2 + yy0);
     y0 := yy0;
     y1 := yy1;
     while abs(yn - y1) > eps do begin
         y0 := y1;
         y1 := yn;
         yn := 0.352*y1 + cos(pi2 + y0);
     end;

     writeln('While: Предел последовательности равен: ',yn:0:5);

     yn := 0.352 * yy1 + cos(pi2 + yy0);

     y0 := yy0;
     y1 := yy1;
     repeat
         y0 := y1;
         y1 := yn;
         yn := 0.352*y1 + cos(pi2 + y0);
     until (abs(yn - y1) < eps);

     writeln('Repaet: Предел последовательности равен: ', yn:0:5);
     readln;

end.