Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Округление дробной части числа 
:(
    Опции темы
Cashey
Дата 13.11.2002, 07:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60
Ребята! Помогите, пожалуйста, попроще решить задачу: нужно округлить десятичную дробь до заданного кол-ва знаков после запятой, но так, что бы в случае если изначальное число не имеет такой разрядности в ее конец добавлялись нули до нужной длины? Прим. (roundto убирает лишние цифры но не добавляет не достающие).


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Vit
Дата 13.11.2002, 08:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
недостающие цифры убираются всегда.

Например:

I:=2.100000000;
Showmessage(floattostr(i));

покажет 2.1

Так что добавление нулей к числовым типам бессмысленно.
Используйте строки, для формирования строки используйте команду Format - она может обрезать (не округлять) числа до нужного количества знаков и добавлять недостающие нули. См. хэлп по этой команде




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Vit
Дата 13.11.2002, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Вот тебе например с точностью до 5ти знаков:
Код

 var i:real;
begin
 I:=2.100000000;
 Showmessage(Format('%.5f',[i]))



--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
neutrino
Дата 14.11.2002, 00:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62
Вот алгоритм написал за 5 минут, корявый, наверное, и неэффективный, впрочем судить вам smile:

Код

function RoundN(Value:Real; Digits:Byte): Real;
var I, DigitsCnt: Byte;
begin
  while Value-Trunc(Value*10)<>0 do
  begin
    Value := Value*10;
    DigitsCnt := DigitsCnt+1;
  end;
  for I:=DigitsCnt-Digits downto 0 do
    Value:=Trunc(Value+0.5)/10;
  Result:=Value/10^(DigitsCnt-1);  //Vit, "^" - it's not a power?
end;


Это сообщение отредактировал(а) Alex - 12.8.2005, 08:10


--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
Vit
Дата 14.11.2002, 00:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(neutrino @ 13.11.2002, )
function RoundN(Value:Real; Digits:Byte): Real;
begin
 Result:=Integer(Value*10^Digits)/10^Digits;
end;

Ага, только функции ^ в Дельфи нет (точнее она обозначает совсем другое), и обрезать то она обрезает, только нули не доставляет, как автор просил...

А для округления надо использовать Round а не Int (или на крайняк добавлять 0.5)




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
neutrino
Дата 14.11.2002, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62
Вит, извини, я сделал ошибку, но сразу ее увидел. И когда исправлял, твоего сообщения еще не было. Так должно работать.


--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
neutrino
Дата 14.11.2002, 00:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62
Цитата(Cashey @ 12.11.2002, 20:49)
Прим. (roundto убирает лишние цифры но не добавляет не достающие).

Если у тебя число 2.3, то в памяти оно хранится точно так же как и 2.30000 (в типе Real). А если ты хочешь, чтобы функция возвращала еще и нули, то надо возвращать указатель на строку, в которой это число.


--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
Vit
Дата 14.11.2002, 00:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(neutrino @ 13.11.2002, )
Вот алгоритм написал за 5 минут, корявый, наверное, и неэффективный, впрочем судить вам :):

function RoundN(Value:Real; Digits:Byte): Real;
var I, DigitsCnt: Byte;
begin
 while Value-Trunc(Value*10)<>0 do
 begin
   Value := Value*10;
   DigitsCnt := DigitsCnt+1;
 end;
 for I:=DigitsCnt-Digits downto 0 do
   Value:=Trunc(Value+0.5)/10;
 Result:=Value/10^(DigitsCnt-1);  //Vit, "^" - it's not a power?
end;

Знаешь, а мой код компактнее :)  :

Format('%.5f',[i])




PS.

^ - это не возведение в степень. Это либо обозначения типа указателя:


Type PMyBool=^Boolean;

Либо обращение к содержимому по адресу:

var a:boolean
   b:^boolean;
...
a:=b^;




--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
neutrino
Дата 14.11.2002, 01:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62
Твои код только выводит с нулями, а мой округляет нужное количество цифр. Внимательно прочитай. :)


--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
Vit
Дата 14.11.2002, 01:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
И с округлением, и с добавлением незначащих цифр, и с заранее устанавливаемой точностью. Вроде бы все условия соблюдены...

Код
function RoundN(Value:Real; Digits:Byte): string;
begin
 result:=Format('%.'+inttostr(Digits)+'f',[roundto(Value,-Digits)]);
end;





--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Chingachguk
Дата 14.11.2002, 01:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1232
Регистрация: 25.3.2002
Где: Москва

Репутация: нет
Всего: 18
А вот в старом пасе была ф-ция Str:

PReal: real;
buf: string;

...

Str(PReal:3:4,buf);

И все ?!


--------------------
I don't like the drugs (but the drugs like me). M.Manson.
PM MAIL ICQ   Вверх
Vit
Дата 14.11.2002, 01:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Можно и так, только она обрежет, а не округлит, собственно Format использует тот же механизм что и Str, только возможностей там больше...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
neutrino
Дата 14.11.2002, 02:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Gothic soul
****


Профиль
Группа: Модератор
Сообщений: 3041
Регистрация: 25.3.2002
Где: Верхняя Галилея, Кармиэль

Репутация: нет
Всего: 62
Цитата

И с округлением, и с добавлением незначащих цифр, и с заранее устанавливаемой точностью. Вроде бы все условия соблюдены...

Код
function RoundN(Value:Real; Digits:Byte): string;
begin
 result:=Format('%.'+inttostr(Digits)+'f',[roundto(Value,-Digits)]);
end;



А код этой функции не приведешь (roundto, несмотря на то что она, скорее всего, стандартная)? В принципе она делает тоже что и моя или нет?

Цитата

Можно и так, только она обрежет, а не округлит, собственно Format использует тот же механизм что и Str, только возможностей там больше...

Только вот в задачах лучше использовать свои функции, оптимизированные под поставленную задачу. А все удобство требует память и время для обработки.




--------------------
The truth comes from within ...

Покойся с миром, Vit 
PM MAIL WWW ICQ Skype GTalk   Вверх
Vit
Дата 14.11.2002, 02:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Согласен


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1088 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.