/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/default2.pas
34 строки
667 B
Ivan Bondarev
#1202
05 апр 2021, 13:38
05 апр 2021, 13:38
5811692
Код
Авторство
О чём код?
procedure Test; const x1 = default(integer)+1; x2: integer = default(integer)+1; x3 = default(integer); x4 = default(string); x5 = default(object); x6 = default(integer) + default(real); begin assert(x1 = 1); assert(x2 = 1); assert(x3 = 0); assert(x4 = nil); assert(x5 = nil); assert(abs(x6) < 0.000001); end; const x1 = default(integer)+1; x2: integer = default(integer)+1; x3 = default(integer); x4 = default(string); x5 = default(object); x6 = default(integer) + default(real); begin assert(x1 = 1); assert(x2 = 1); assert(x3 = 0); assert(x4 = nil); assert(x5 = nil); assert(abs(x6) < 0.000001); Test; end.