какая функция может вывести максимальное значение Double, Single, Extended, Real?

[_-Re@l-_]

Вот функция High и функция Low выводят максимальное и минимальное значение Integer и Longint, а какая функция может вывести максимальное значение Double, Single, Extended, Real?

[Don Karleone]

Думаю, что никакая.

[tools]

В системе PacalABC.NET есть такие константы в модуле PABCSystem. Можете попробовать решить поставленную перед вами задачу в этой системе.

[Serge_Bliznykov]

Этого (из справки Turbo Pascal не достаточно?

Type      Range               Digits  Bytes
real      2.9e-39..1.7e38     11-12   6
single    1.5e-45..3.4e38     7-8     4
double    5.0e-324..1.7e308   15-16   8
extended  3.4e-4932..1.1e4932 19-20   0
comp     -9.2e18..9.2e18      19-20   8

[_-Re@l-_]

Вы неправильно поняли. Диапазоны то я знаю, однако

какая функция может вывести максимальное значение Double, Single, Extended, Real?

[Serge_Bliznykov]

не совсем представляю, зачем это Вам может быть нужно.
но, можно использовать СВОИ функции.
например:

function GetMaxSingle : single;
begin
  GetMaxSingle := 3.40282199e38;
end;
function GetMaxDouble : double;
begin
  GetMaxDouble := 1.797693134819999e308;
end;
и т.д.....

[_-Re@l-_]

О, это уже интересней.

[Stilet]

Зачем функции теребить?
Бери пример с Делфи - там это константами закатали:

MinCurrency: Currency = -922337203685477.5807 {$IFDEF LINUX} + 1 {$ENDIF}; //!! overflow?
MaxCurrency: Currency = 922337203685477.5807 {$IFDEF LINUX} - 1 {$ENDIF}; //!! overflow?

[Serge_Bliznykov]

там это константами закатали:

согласен. константами кузявнее!
только надо их типизированными делать:

const MaxSingle : single = 3.40282199e38;
   MaxDouble : double = 1.797693134819999e308;

Просто TC просил именно функции, поэтому я предложил такой вариант...

[Snejnaya]

а разве нельзя вычислить максимально значение, зная размер, занимаемый в байтах?
например максимальное значение double
2 в степени (Sizeof(double)-1)