* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Язык программирования системы Maple > for i in [1,2,5,-1,7,12] do print(i) od; 1043 1 2 5 1 7 12 > for i in [1,2,5,-1,7,12] while i>0 do print(i) od; 1 2 5 В цикле этого вида управляющая переменная может меняться произвольно. Циклы могут быть вложенными. Это иллюстрирует следующий пример, со здающий единичную матрицу на базе заданного массива M: > M:=array(1..3,1..3); M := array(1 .. 3, 1 .. 3, [ ]) > for i to 3 do for j to 3 do M[i,j]:=0;if i=j then M[i,j]:=1 fi; od od; > evalm(M); Этот пример имеет не более чем познавательное значение, поскольку для со здания такой матрицы Maple имеет функции identity, с помощью которой фун кция array позволяет сразу создать единичную матрицу: > array(1..3,1..3,identity); В заключение отметим, что возможна упрощенная частная конструкция цикла типа while: while expr do statseq od; Здесь выражения statseq выполняются, пока выполняется логическое усло вие expr. Пример такого цикла: > n:=1; n := 1 > while n<16 do n:=2*n od; n := 2 n := 4 n := 8 n := 16