Repeat далі працює цикл, де

y0:=y; на місце y0 ставимо y1 фактично і

y:=(y0+1)/(y0+2); обчислюємо y2

n:=n+1; збільшили лічильник ігриків на 1

Until abs(y-y0)<e; відразу робимо оцінку різниці вже між

у1 і у2, якщо умова хибна-цикл

крутиться повторно

Writeln (‘перший член, для якого виконується нерівність y’,n,’=’,y)

End.

Оператор циклу з параметром використовується в тих випадках, коли число повторень циклу може бути визначене перед початком циклу. Крім цього цикли з параметром дозволяють задавати автоматично зміну значень деякої змінної і використовувати це значення в послідовних ітераціях. Більш конкретно даний варіант оператора циклу визначає.

1) діапазон зміни значення керуючої змінної (параметра циклу) і одночасно число повторення оператора, який міститься в тілі циклу;

2) напрямок зміни значення змінної (зростає це значення чи спадає);

3) дії, які виконуються на кожній ітерації циклу (оператор тіла циклу).

Діапазон: to

downto

Формат опису:

For <змінна>:=<початкове значення> to <кінцеве значення> do<оператор>;

For<змінна>:=<кінцеве значення>downto <початкове значення> do< оператор >;

Діапазон задає зміну значень змінної і кількість повторень тіла циклу. Діапазон–це відрізок з одного із впорядкованих типів. Якщо між виразами стоїть службове слово (to), то значення змінної буде зростати в процесі роботи; при (downto)–спадати.

Приклад1: Дано натуральне число n, дійсне х. Обчислити: Sin x + sin (sin x) + ….+ sin(sin …(sin x ).

Program №4:

Var y,S,x:Real; i,n:byte;

Begin

Readln (n);

Readln (x);

Y:= sin(x);

S:=y;

For I:=2 to n do

Begin

Y:= sin(y);

S:=S+y

End;

Write (S)

End.

Приклад2: Нехай x₁=x₂=x₃=1, x_і=x_i–1+x_i-3, i= 4,5,…. Знайти .

Program №5;

Var x1,x2,x3,x,S:Real; i:byte;

Begin

x1:=1; x2:=1; x3:=1;

S:=0;

For i:=1 to 3 do

S:=S+1/exp(2*ln(i)); aⁿ=e^nlna

x:= x3+x1;

For i:=4 to 100 do

Begin

S:=S+x/exp(2*ln(i));

x1:=x2;

x2:=x3;

x3:=x;

x:=x3+x1;

End;

Writeln (S)

End.

При використанні даного оператора слід пам’ятати:

1. в якості параметра циклу повинна використовуватись змінна простого типу , яка описана в даному блоці;

2. керуюча змінна повинна мати впорядкований (дискретний) тип;

3. початкове і кінцеве значення діапазону повинні мати тип, який є сумісним з типом параметру циклу ;

4) після циклу значення параметру циклу рівне кінцевому виразу діапазону.