/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/params4.pas
24 строки
369 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
function Test(params a : array of integer) : integer; begin Result := a[0]-a[1]; end; function Test(a,b: integer) : integer; begin Result := a+b; end; function Test2(params a : array of real) : integer; begin Result := round(a[0]-a[1]); end; function Test2(a,b: integer) : integer; begin Result := a+b; end; begin assert(Test(2,3)=5); assert(Test2(2.2,1.1)=1); end.