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: Нехай x1=x2=x3=1, xі=xi–1+xi-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)); an=enlna
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.
При використанні даного оператора слід пам’ятати:
в якості параметра циклу повинна використовуватись змінна простого типу , яка описана в даному блоці;
керуюча змінна повинна мати впорядкований (дискретний) тип;
початкове і кінцеве значення діапазону повинні мати тип, який є сумісним з типом параметру циклу ;
4) після циклу значення параметру циклу рівне кінцевому виразу діапазону.