/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/set7.pas
22 строки
643 B
Mikhalkovich Stanislav
Закончил превращение синтаксиса [] по умолчанию в массивы
10 дек 2024, 10:59
10 дек 2024, 10:59
db9679d
Код
Авторство
О чём код?
var b : byte:=1; sh : shortint:=2; sm : smallint:=3; w : word:=4; i : integer:=5; lw : longword:=6; li : int64:=7; ui : uint64:=8; s1 : set of uint64; s2 : set of integer; begin var s1_8: set of integer := [1,2,3,4,5,6,7,8]; assert([b,sh,sm,w,i,lw,li,ui]=s1_8); Include(s1,integer.MaxValue); s1.Add(longword.MaxValue); //s1 += [longword.MaxValue]; //s1 += [int64.MaxValue,uint64.MaxValue]; //assert(s1=[integer.MaxValue,longword.MaxValue,int64.MaxValue,uint64.MaxValue]); s1 := [byte.MaxValue,shortint.MaxValue,smallint.MaxValue,word.MaxValue,integer.MaxValue,longword.MaxValue,int64.MaxValue,uint64.MaxValue]; end.