A2 & Oberon » Программирование » ActiveOberon » Аналог SetLength из ObjectPascal

Страниц (1): [1]
 

1. sage - 19 Января, 2009 - 16:45:05 - перейти к сообщению
Математические расширения компилятора кроме инициализации массивов могут предоставить ещё и некоторый аналог функции SetLength из ObjectPascal. Например, уменьшить массив на один элемент можно так:
PROCEDURE p1*(con: Commands.Context);
VAR
arr: ARRAY [*] OF INTEGER;
i: LONGINT;
BEGIN
arr := [1, 2, 3, 4, 5];
con.out.Ln;
FOR i := 0 TO LEN(arr) - 1 DO
con.out.Int(arr[i], 3)
END;
con.out.Ln;
arr := arr[0..LEN(arr)-2];
FOR i := 0 TO LEN(arr) - 1 DO
con.out.Int(arr[i], 3)
END;
con.out.Ln
END p1;
В лог выведется:
Цитата:

1 2 3 4 5
1 2 3 4

Powered by ExBB
ExBB FM 1.0 RC1 by TvoyWeb.ru
InvisionExBB Style converted by Markus®

[Script Execution time: 0.0035]     [ Gzipped ]