Алгоритм обработки
Счетный оператор цикла FOR имеет
2 структуры:
1.
for <параметр_цикла> := <нач_знач> to <кон_знач> do<оператор>.
Здесь for, to, do - зарезервированные слова (для, до, выполнить)',
<параметр_цикла> - переменная типа Integer (точнее, любого порядкового типа);
<нач_знач> - начальное значение - выражение того же типа;
<кон_знач> - конечное значение - выражение того же типа;
<оператор> - произвольный оператор Object Pascal.
При выполнении оператора for вначале вычисляется выражение <нач_знач> и
осуществляется присваивание <параметр_цикла> := <нач_знач>. После этого
циклически повторяется:
• проверка условия <параметр_цикла> <= <кон_знач>;
если условие не выполнено, оператор for завершает свою работу;
• выполнение оператора <оператор>;
• наращивание переменной <пар_цт> на единицу.
Отметим два обстоятельства. Во-первых, условие, управляющее работой оператора
for, проверяется перед выполнением оператора <оператор>: если условие не
выполняется в самом начале работы оператора for, исполняемый оператор не будет
выполнен ни разу. Другое обстоятельство - шаг наращивания параметра цикла строго
постоянен и равен (+1).
Если Xn+1 >=
Xn То
For To Do
Пример
//Xn=Const
For X:= 0 To Xn Do
//**************A-блок*****************
Y:=X;
Result:=Y;
//**************A-блок*****************
End;
2.
for <пар_цик>: = <нач_знач>
downto <кон_знач> do
<оператор>
Замена зарезервированного слова to на downto означает, что шаг наращивания
параметра цикла равен (-1), а управляющее условие приобретает вид <параметр_цикла>
= <кон_знач>.
Оператор иикла RE РЕ А Т... UNTIL с постпроверкой условия: repeat <тело_цикла>
until <условие>.
Здесь repeat, until- зарезервированные слова (повторять [до тех пор], пока [не
будет выполнено условие]}; <тело_цикла> - произвольная последовательность
операторов Object Pascal; <условие> - выражение логического типа.
Операторы <тело_цикла> выполняются хотя бы один раз, после чего вычисляется
выражение <условие>: если его значение есть
False, операторы <тело_цикла> повторяются, в противном случае оператор repeat...
until завершает свою работу.
Обратите внимание: пара repeat ... until подобна операторным скобкам begin
...end, поэтому перед until ставить точку с запятой необязательно.
Если Xn+1 <= Xn
То
For Downto Do
Пример
//Xn=Const
For X:= 0
Downto
Xn
Do
//**************A-блок*****************
Y:=X;
Result:=Y;
//**************A-блок*****************
End;
В 3DMAX
Предложениями и замечаниями обращаться по адресу- vova1001@yandex.ru
