/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/MathForKumir.pas
32 строки
584 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
unit MathForKumir; interface function ctg(x:real):real; function arcctg(x:real):real; function md (x,y:integer):integer; function dv(x,y:integer):integer; function Power(x,y:real):real; implementation function ctg(x:real):real; begin result:=1/tan(x); end; function arcctg(x:real):real; begin result:=Pi/2-arctan(x);; end; function md (x,y:integer):integer; begin result:=x mod y; end; function dv(x,y:integer):integer; begin result:=x div y; end; function Power(x,y:real):real; begin result:=Exp(y*Ln(x)); end; end.