Борландовские функции

[_-Re@l-_]

Залез в Math.pas(посмотреть что там есть), и был нексколько удивлен вот этими строчками:

function MinValue(const Data: array of Double): Double;
function MinIntValue(const Data: array of Integer): Integer;

function Min(const A, B: Integer): Integer; overload;
function Min(const A, B: Int64): Int64; overload;
function Min(const A, B: Single): Single; overload;
function Min(const A, B: Double): Double; overload;
function Min(const A, B: Extended): Extended; overload;

{ MaxValue: Returns the largest signed value in the data array (MAX) }
function MaxValue(const Data: array of Double): Double;
function MaxIntValue(const Data: array of Integer): Integer;

function Max(const A, B: Integer): Integer; overload;
function Max(const A, B: Int64): Int64; overload;
function Max(const A, B: Single): Single; overload;
function Max(const A, B: Double): Double; overload;
function Max(const A, B: Extended): Extended; overload;

Неужели у них есть свои реализации этих функций? Да и, собственно, зачем они были нужны Борланду(неужто так трудно самому их написать)?
И ещё.Там есть вот такой код для вычисления котангенса:

function CoTan(const X: Extended): Extended;
{ CoTan := Cos(X) / Sin(X) = 1 / Tan(X) }
asm
        FLD   X
        FPTAN
        FDIVRP
        FWAIT
end;

А затем вот такая функция:

function Cot(const X: Extended): Extended;
begin
  Result := CoTan(X);
end;

Зачем???
Ну и напоследок меня убило вот это:

function Min(const A, B: Integer): Integer;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

function Min(const A, B: Int64): Int64;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

function Min(const A, B: Single): Single;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

function Min(const A, B: Double): Double;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

function Min(const A, B: Extended): Extended;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

function Max(const A, B: Integer): Integer;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function Max(const A, B: Int64): Int64;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function Max(const A, B: Single): Single;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function Max(const A, B: Double): Double;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function Max(const A, B: Extended): Extended;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

Среднестатистический юзер также сравнивает...


Однако,приятно удивился наличием таких функций как Ceil, Floot, Sign, и некоторых других...Некоторое время назад писал свои реализации этих функций, и причём моя реализация практически точно такая же, как и у них.

[Selestis]

Ну, просто зачем писать свои, если в этом модуле лежат готовые? Мне лично было бы влом 10 раз писать вот это:

function Min(const A, B: Integer): Integer;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

[Пепел Феникса]

Неужели у них есть свои реализации этих функций? Да и, собственно, зачем они были нужны Борланду(неужто так трудно самому их написать)?

затем чтоб ты мог спокойно писать B:=Min(A,C);
соответственно для разных типов.

Ну и напоследок меня убило вот это:

а так как разные типы то код генерируется разный.

А затем вот такая функция:

сокращение имени, а вообще такое через inline делается.