{############################}
{# JZ Math Library #}
{# unit: JZMathBase #}
{# #}
{# (c) John Zaitsev #}
{# email: jz@amursu.ru #}
{# ICQ: _________ #}
{############################}
unit JZMathBase; {begin - 4.05.99}
interface
function MinInt(a,b: Integer):Integer;
function MaxInt(a,b: Integer):Integer;
function MinReal(a,b: Real):Real;
function IsDigit(s:string):boolean;
function RoundRealEx(x: Real; Num: Integer):Real;
implementation
function MinInt(a,b: Integer):Integer;
begin
if ab then result:=a else result:=b;
end;
function MinReal(a,b: Real):Real;
begin
if a
|
|