/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/units/u_arrayofset2.pas
11 строк
333 B
Mikhalkovich Stanislav
NewSet - много мелких исправлений.
09 ноя 2024, 12:18
09 ноя 2024, 12:18
82776f3
Код
Авторство
О чём код?
unit u_arrayofset2; const c : array of set of char = (['a','b'],[],['k','l']); var a : array of set of char := (['a','b'],[],['k','l']); b : array of set of 1..4 := ([1,2],[2,3],[]); d : array[1..3] of set of 1..4; begin assert(b[0]=[1,2]); var e : array of set of 1..4 := ([1,2,7],[],[4]); assert(e[0]=[1,2,7]); end.