Пример модуля
В качестве примера
мы приведем модуль, содержащий
арифметические функции min
и max
для целых чисел, а также функцию возведения
в степень. Все
эти функции отсутствуют в стандартном
модуле System.
unit my_arifm;
interface
function min(a,b:
longint): longint;
function max(a,b:
longint): longint;
function deg(a,b:
double): double;
implementation
function min;
begin if a>b then
min:= b
else
min:= a;
end;
function max;
begin if a<b then
max:= b
else
max:= a;
end;
function deg;
begin deg:=
exp(b*ln(a))
end;
end.
Теперь, подключив
этот модуль к любой своей программе, вы
сможете пользоваться этими тремя
функциями.