 |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
 
|
|
Как сделать отрицательное число положительным, попрошу не кидать в меня гинилыми пом... 
| YURIC |
|
|||
 Бывалый  Профиль Группа: Участник Сообщений: 161 Регистрация: 5.8.2003 Репутация: нет Всего: 1 |
Подскажите пожалуйста функция которая переводит отрицательное число в положительное, например есть число -954212 мне нужно сделать из него 954212
З.Ы. Не кидайте пож. в меня гнилыми помидорами  |
|||
|
||||
Дата 14.12.2004, 18:00 (
Загрузка ...
| S.A.P. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 2664 Регистрация: 11.6.2004 Репутация: 2 Всего: 71 |
number:=abs(number);
|
|||
|
||||
| YURIC |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 161 Регистрация: 5.8.2003 Репутация: нет Всего: 1 |
Perchilla
Спасибо, тема закрыта |
|||
|
||||
| Satana |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 564 Регистрация: 15.9.2004 Где: Ставрополь, СЗ ра йон Репутация: 1 Всего: 5 |
или можно так:
number:=number*(-1); -------------------- |
|||
|
||||
| YURIC |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 161 Регистрация: 5.8.2003 Репутация: нет Всего: 1 |
Satana
Тоже спасибо  буду знать |
|||
|
||||
| Bes |
|
|||
|
Опытный Профиль Группа: Участник Сообщений: 806 Регистрация: 8.12.2004 Репутация: 5 Всего: 7 |
number:=-number;
number:=-1*number; Сдерживаю себя от хорошего броска уже разложившейся большой такой помидориной. %:-) |
|||
|
||||
| sergejzr |
|
|||
 Un salsero  Профиль Группа: Админ Сообщений: 13285 Регистрация: 10.2.2004 Где: Германия г .Ганновер Репутация: 1 Всего: 360 |
(not -954212)+1
|
|||
|
||||
| Guest |
|
|||
|
Unregistered |
chislo:=chislo*(-1); или
chislo:=0-chislo; |
|||
|
||||
| sergejzr |
|
|||
|
Un salsero Профиль Группа: Админ Сообщений: 13285 Регистрация: 10.2.2004 Где: Германия г .Ганновер Репутация: 1 Всего: 360 |
0-chislo
получше моего будет |
|||
|
||||
| Vladimir13 |
|
|||
 Бывалый Профиль Группа: Участник Сообщений: 208 Регистрация: 8.12.2004 Где: Волгоград, Россия Репутация: 1 Всего: 1 |
про 0-chislo написал я, Vladimir13, просто не посмотрел что не зарегестрировался.
--------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr |
|||
|
||||
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: нет Всего: 454 |
x=x*sign(x)
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| sergejzr |
|
|||
|
Un salsero Профиль Группа: Админ Сообщений: 13285 Регистрация: 10.2.2004 Где: Германия г .Ганновер Репутация: 1 Всего: 360 |
Ага, а может sqrt(sqr(x)) ? Ну , не увлекайтесь 0-chislo лучший метод. Выполняется за такт Быстрее просто невозможно сделать. |
|||
|
||||
| S.A.P. |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 2664 Регистрация: 11.6.2004 Репутация: 2 Всего: 71 |
|
|||
|
||||
| Vladimir13 |
|
|||
|
Бывалый Профиль Группа: Участник Сообщений: 208 Регистрация: 8.12.2004 Где: Волгоград, Россия Репутация: 1 Всего: 1 |
так на это дело можно условие поставить: if a<0 then a:=0-a;
хотя в условии стоит, что число гарантировано отрицательное  --------------------
Лучший метод - метод тыкаобращаться по адресу: mvdr |
|||
|
||||
| Zero |
|
|||
 Эксперт Профиль Группа: Завсегдатай Сообщений: 2169 Регистрация: 23.10.2004 Где: Россия, г. Рязань Репутация: 8 Всего: 24 |
Лучший метол, это который дал Perchilla, ещё в самом начале, через модуль. И дальше не было необходимости всё кидать, все остальные методы, хуже и бесполезные, т.к. автор уже скорее всего всё сделал что ему было надо, а больше врядли кому понадобится ответ на такой сложный вопрос. |
|||
|
||||
|
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0591 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |