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

santa157 · 09.01.2013, 21:33

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

Gruvi · 09.01.2013, 23:31

Вот пример : Функция 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

09.01.2013, 21:33	#1 (permalink)
santa157 Новичок Регистрация: 09.01.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Как в Делфи написать функцию abs(x)? Помогите плизз, как в делфи написать функцию abs(x)??

09.01.2013, 21:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Дабы не тратить время на поиски, отправлю вам сюда схожие обсуждения Написать функцию, которая получает введенные числа в качестве параметров Нужно написать функцию Делфи. Помогите написать программный код

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070