/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/ForeachExamples.pas
44 строки
931 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Пример иллюстрирует всевозможные типы контейнеров, // по которым можно перемещаться с помощью оператора foreach uses System.Collections.Generic; const n = 10; var x: integer; a: array [1..n] of integer; b: array of integer; s: set of integer; l: List<integer>; begin for var i:=1 to n do a[i] := Random(100); // Цикл foreach по статическому массиву foreach x in a do write(x,' '); writeln; SetLength(b,n); for var i:=0 to n-1 do b[i] := Random(100); // Цикл foreach по динамическому массиву foreach x in b do write(x,' '); writeln; s := [2..5,10..14]; foreach x in s do write(x,' '); writeln; l := new List<integer>; l.AddRange(b); l.Reverse; foreach x in l do write(x,' '); writeln; end.