/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/dynarrayofset1.pas
16 строк
270 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
type TSet = set of byte; var arr : array of TSet; begin SetLength(arr,5); Include(arr[1],3); Include(arr[1],4); assert(arr[1]=[3,4]); SetLength(arr,7); assert(arr[1]=[3,4]); arr := new TSet[4]; Include(arr[1],3); Include(arr[1],4); assert(arr[1]=[3,4]); end.