/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/params22.pas
12 строк
206 B
Ivan Bondarev
#2798
05 фев 2023, 13:04
05 фев 2023, 13:04
71c09cd
Код
Авторство
О чём код?
function f1(x: integer) := 1; type TFnc = integer -> integer; procedure p(params arr: array of object); begin assert(TFnc(arr[0])(2) = 1); assert(TFnc(arr[1])(2) = 1); end; begin p(f1, f1); end.