AY
чекнул, это появилось с xe2 версии. Но спасибо, буду знать, если не надо будет работать с 7 поделиями
Size: a a a
2020 December 04
MО
чекнул, это появилось с xe2 версии. Но спасибо, буду знать, если не надо будет работать с 7 поделиями
// Сравнение с допуском
// Равно =
function EQ(a, b : Real; Eps:Real) : boolean; begin EQ := abs(a - b) <= Eps end;
// Неравно <>
function NE(a, b : Real; Eps:Real) : boolean; begin NE := abs(a - b) > Eps end;
// Больше >
function GT(a, b : Real; Eps:Real) : boolean; begin GT := (a - b) > Eps end;
// Меньше <
function LT(a, b : Real; Eps:Real) : boolean; begin LT := (b - a) > Eps end;
// Больше равно >=
function GE(a, b : Real; Eps:Real) : boolean; begin GE := not LT(a, b, Eps) end;
// Меньше равно <=
function LE(a, b : Real; Eps:Real) : boolean; begin LE := not GT(a, b, Eps) end;
AS
Miss Очепятка
// Сравнение с допуском
// Равно =
function EQ(a, b : Real; Eps:Real) : boolean; begin EQ := abs(a - b) <= Eps end;
// Неравно <>
function NE(a, b : Real; Eps:Real) : boolean; begin NE := abs(a - b) > Eps end;
// Больше >
function GT(a, b : Real; Eps:Real) : boolean; begin GT := (a - b) > Eps end;
// Меньше <
function LT(a, b : Real; Eps:Real) : boolean; begin LT := (b - a) > Eps end;
// Больше равно >=
function GE(a, b : Real; Eps:Real) : boolean; begin GE := not LT(a, b, Eps) end;
// Меньше равно <=
function LE(a, b : Real; Eps:Real) : boolean; begin LE := not GT(a, b, Eps) end;
сразу видно олдскул
Real (про уже было).. function NAME; .. NAME := ...
а не Result := или Exit
"... замена счастию она..."MО
сразу видно олдскул
Real (про уже было).. function NAME; .. NAME := ...
а не Result := или Exit
"... замена счастию она..."А с Real что не так?
AY
Miss Очепятка
// Сравнение с допуском
// Равно =
function EQ(a, b : Real; Eps:Real) : boolean; begin EQ := abs(a - b) <= Eps end;
// Неравно <>
function NE(a, b : Real; Eps:Real) : boolean; begin NE := abs(a - b) > Eps end;
// Больше >
function GT(a, b : Real; Eps:Real) : boolean; begin GT := (a - b) > Eps end;
// Меньше <
function LT(a, b : Real; Eps:Real) : boolean; begin LT := (b - a) > Eps end;
// Больше равно >=
function GE(a, b : Real; Eps:Real) : boolean; begin GE := not LT(a, b, Eps) end;
// Меньше равно <=
function LE(a, b : Real; Eps:Real) : boolean; begin LE := not GT(a, b, Eps) end;
оу, спасибо)
AS
Miss Очепятка
А с Real что не так?
олдскул, говорю, видно
в исходниках от эмбы есть где-нибудь Real?
в исходниках от эмбы есть где-нибудь Real?
DB
Miss Очепятка
А с Real что не так?
тип оставлен для обратной совместимости с кодом паскаля
VA
тип оставлен для обратной совместимости с кодом паскаля
на самом деле сейчас
но нет никакого смысла сейчас использовать
Real это просто алиас к Double, если не включена директива для задействования старого Real48.но нет никакого смысла сейчас использовать
Real.MО
на самом деле сейчас
но нет никакого смысла сейчас использовать
Real это просто алиас к Double, если не включена директива для задействования старого Real48.но нет никакого смысла сейчас использовать
Real.Я Real использую для проверки деградации решения переключаю с Double на Single.
VA
Miss Очепятка
Я Real использую для проверки деградации решения переключаю с Double на Single.
как Real связан с Single?
MО
type Real=Single; // Real=Double;
SB
Можно назначить Real=Single и получить экономию места и возможно прирост быстродействия
AS
Можно назначить Real=Single и получить экономию места и возможно прирост быстродействия
бенчмарки!
VA
Miss Очепятка
type Real=Single; // Real=Double;
довольно странное решение, учитывая, что Real - это название встроенного типа
AS
Можно назначить Real=Single и получить экономию места и возможно прирост быстродействия
в каждом модуле править?))
SB
в каждом модуле править?))
В каждом =)
SB
В принципе, достаточно в файле проекта
I
#define true false
AS
В каждом =)
аа, там, небось, заботливо IFDEF...