imported>Kirillche: обновление навигации

2011-03-29T11:48:18Z

обновление навигации

Новая страница

<noinclude>=== 33.8. Циклическая обработка данных ===</noinclude>
Макроязык, встроенный в программу, позволяет задавать циклическое выполнение одних и тех же действий. Это бывает полезно, например, при подсчёте периметра в проеме, состоящем из множества балок.

В зависимости от необходимости можно использовать один из трех циклов, описанных ниже. Для избежания зацикливания циклы ограничены 100 000 000 повторов, после чего они будут принудительно завершены.

==== Цикл FOR ====
Этот цикл выполняется определенное количество раз, начиная с указанного значения. На каждом повторе это значение увеличивается на единицу и сравнивается с конечным. Если текущее значение становится больше крайнего, то цикл завершается.

===== Синтаксис =====
<source lang="pascal">
For <параметр>:=<начальное значение> To <конечное значение> Do
[Begin] <команды> [End]
</source>
где:
* параметр — переменная, которая будет отвечать за количество повторений цикла. С каждым повтором она автоматически получает значение на единицу больше;
* начальное значение — начальное значение параметра, с которого будет стартовать цикл;
* конечное значение — значение, задающее порог выхода из цикла;
* команды — команда(-ы), выполняемые в теле цикла.

===== Пример =====
<source lang="pascal">
Total := 0;
For i := 1 To 10 Do Total := Total + i;
</source>

Возвратит Total, равное 55.

==== Цикл Repeat Until ====
Этот цикл выполняется до тех пор, пока не выполнится условие выполнения.

===== Синтаксис =====
<source lang="pascal">
Repeat [Begin] <команды> [End] Until <условие выполнения>,
</source>
где:
* команды — команда(-ы), выполняемые в теле цикла;
* условие выполнения — условие, до выполнения которого будет повторяться цикл.

===== Пример =====
<source lang="pascal">
Stroka := 'Hello world!!!';
i := Length(Stroka);
Repeat
Begin
Stroka := Copy (Stroka, 1, Length (Stroka) - 1);
i := i - 1;
End;
Until i = 5;
</source>

После выхода из цикла переменная Stroka примет значение ‘Hello’.

==== Цикл While Do ====
Цикл выполняется до тех пор, пока выполняется условие.

===== Синтаксис =====
<source lang="pascal">
While <условие выполнения> Do [Begin] <команды> [End],
</source>

где:
* условие выполнения — условие, при выполнении которого будет повторяться цикл;
* команды — команда(-ы), выполняемые в теле цикла.

===== Пример =====
<source lang="pascal">
Stroka := 'Hello world!!!';
i := Length(Stroka);
While i > 5 Do
Begin
Stroka := Copy(Stroka, 1, Length (Stroka) - 1);
i := i - 1;
End;
</source>

После выхода из цикла переменная Stroka примет значение 'Hello'.
<noinclude>{{Навигация|Конструкция условного перехода IF-THEN-ELSE|Глава 33. Макроязык|Часть VII. Методические указания}}</noinclude>

Руководство по настройке Optima:Циклическая обработка данных - История изменений

imported>Kirillche: обновление навигации