/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/classconst2.pas
13 строк
209 B
Бондарев Иван
bug fix #566
22 ноя 2017, 22:54
22 ноя 2017, 22:54
20b3c5a
Код
Авторство
О чём код?
type t1 = class const a = sin(1); class function test: real; begin Result := a; end; end; begin assert(abs(t1.test-sin(1)) < 0.000001); assert(abs(t1.a-sin(1)) < 0.000001); end.