Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.08.21;
Скачать: CL | DM;

Вниз

Как корректно узнать, целое число или нет?   Найти похожие ветки 

 
pavor   (2011-05-13 09:34) [0]

Добрый день,
требуется решить задачу:
- если число содержит дробную часть - отображать его без изменений;
- если число не содержит дробной части - добавлять в конец ",0";

То есть, если
на входе 2,3 -> отображаем 2,3, если
на входе 2 -> отображаем 2,0

Использую следующий код:
procedure TForm1.Button1Click(Sender: TObject);
var test: real;
dim:ShortString;
const eps=0.0001;
begin
memo1.Lines.Clear;

test:=2.3;
memo1.Lines.Add("test="+floattostr(test));
test:=test-0.3;
memo1.Lines.Add("test-0.3="+floattostr(test));

if ((test-trunc(test))<eps)
 then dim:=FloatToStr(test)+",0"
   else dim:=FloatToStr(test);

memo1.Lines.Add("trunc(test)="+IntToStr(trunc(test)));
memo1.Lines.Add("dim="+dim);

end;


Вот что он выводит:
test=2,3
test-0.3=2
trunc(test)=1
dim=2

Вместо функции trunc пробовал floor, int - результат тот же.

Понятно, что проблема связана с представлением вещественных чисел, но как ее решить - пока неясно.


 
Anatoly Podgoretsky ©   (2011-05-13 09:37) [1]


> - если число содержит дробную часть - отображать его без
> изменений;
> - если число не содержит дробной части - добавлять в конец
> ",0";

Неправильное, грубое решение, просто освой Format. FormatFloat


 
pavor   (2011-05-13 09:44) [2]

Большое спасибо, работает. )



Страницы: 1 вся ветка

Текущий архив: 2011.08.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-1223610051
inferno
2008-10-10 07:40
2011.08.21
Прокрутка колесиком в ScrollBox


1-1262652069
MaKc32
2010-01-05 03:41
2011.08.21
Как из моей программы управлять TrayIcon другой программы?


1-1262678404
Michail89
2010-01-05 11:00
2011.08.21
Завершение дочернего процесса


2-1304994871
Gu
2011-05-10 06:34
2011.08.21
Аплеты панели управления в Win7x64


15-1303938718
Германн
2011-04-28 01:11
2011.08.21
Скан-коды клавиатуры