Как в Делфи написать функцию abs(x)?

[santa157]

Как в Делфи написать функцию abs(x)?

Помогите плизз, как в делфи написать функцию abs(x)??

 

[Gruvi]

Вот пример : Функция Abs возвращает абсолютную величину отрицательного или положительного числа (модуль). Это реализуется удалением отрицательного знака, если такой обнаружен.

Число может быть любым числовым типом, также может быть Variant, он будет преобразован в число. Например, Variant строку '-1.23' Abs всегда преобразовывает её в Extended.

var
float, bigFloat : single;
int : Integer;
varVar : Variant;

begin
float := -1.5; // Маленькое отрицательное число с плавающей точкой
bigFloat := -4.56E100; // Бесконечное отрицательное число с плавающей точкой
int := -7; // Отрицательное целое число
varVar := '-98'; // Variant преобразуется в число с плавающей точкой!

ShowMessage('Abs(float) = '+FloatToStr(Abs(float)));
ShowMessage('Abs(bigFloat) = '+FloatToStr(Abs(bigFloat)));
ShowMessage('Abs(int) = '+FloatToStr(Abs(int)));

// Variant преобразуется в Extended тип с плавающей точкой
float := Abs(varVar);
ShowMessage('Abs(varVar) = '+FloatToStr(float));
end;

Abs(float) = 1.5
Abs(bigFloat) = INF
Abs(int) = 7
Abs(varVar) = 98