Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Trunc его глюки и борьба с ними.

Автор: ivan219 1.10.2007, 11:47

Код


.
.
Temperatura(12);
.
.
.
procedure TFNPC01S.Temperatura(Tem: Real); // Tem имеет значения в диапазоне 999.9 ... 000.0
var
  Tem1: Real;
  I: Integer;
  S: String;
begin
 Tem1 := Trunc(Tem * 10); // Отбрасываем всё кроме первого знака после запятой получаем 0000 ... 9999.
 for I := 1 to 4 do  // Цикл на 4 знака 0000 ... 9999.
  begin
   Tem1 := Tem1 / 10;  // Определяем число после запятой.
   S := S + IntToStr(Trunc((Tem1 - Trunc(Tem1)) * 10)); // Преобразуем.
  end;
 Label1.Caption := S; // Выводим.
end;

На выходе имеем 011 хотя должно быть 021 если сделать так:

Код


Temperatura(13);

то получается правильно т.е. 031 вобщем так как и долно быть, такиеже глюки наблюдаются и с другими числами 4, 7, 9 на выходе получаем на 1 меньше.

Возможноли это обойти без перевода в String и дольнейшего разбота строки т.е. напрямую работать с числами???

Автор: Coder 1.10.2007, 12:06

если я правильно понял, то:

Код


str:=FormatFloat('0',Tem);
while length(str)<3 do
  str:='0'+str;
Label1.Caption := str;

Автор: skyboy 1.10.2007, 12:11

это не глюки, это особенности. и не у trunc, а у представления вещественных чисел.
то, что real(some - trunc(some)) * 10 выводится как "2", это не значит, что там реально хранится 2. Просто число, достаточно близкое к 2(1,999999999). И при выводе видим 2, а при обработке воспринимаем как "1,999999999". Соотвественно, trunc, которое просто отбросит дробную часть, получит 1, а не "2".
Т.е. у меня в Delphi 7

Код


var s: real;
...
  ShowMessage(floattostr((1.2 - 1) * 10));
  ShowMessage(IntToStr(Trunc((1.2 - Trunc(1.2)) * 10)));
  s:= 1.2;
  ShowMessage(IntToStr(Trunc((s - Trunc(s)) * 10)));
...

Первые два вернут "2"(видимо, сказывает оптимизация), а третие вернет "1". В принципе, то же, что и в твоем коде, но только можно увидеть, что при работе с константами отклонений не наблюдается.

Автор: ivan219 1.10.2007, 12:23

Печально

с Roun таже история только на оборот, придётся с Snring возится smile

Цитата(Coder @ 1.10.2007, 12:06

)

если я правильно понял, то:

ну почти в идеале мне ндо чтобы на выходе было 4 переменных Integer переменую S я ввёл для вас так как мой код отличается.
Я банально хотел избавится от лишний преобразований Real -> String -> [1..4] Integer но видать не удастся smile

Всем спасибо!!!

Автор: ivan219 1.10.2007, 13:19

Цитата(ivan219 @ 1.10.2007, 11:47

)

Возможноли это обойти без перевода в String и дольнейшего разбота строки т.е. напрямую работать с числами???

Можно

надо только до выполнения Trunc прибавить к числу 0.00001 (больше или менше всё зависит от кода и чисел) тем самым искуственно делаем завышенное число что приводит к нужному результату smile

Код


.
.
Temperatura(12);
.
.
.
procedure TFNPC01S.Temperatura(Tem: Real); // Tem имеет значения в диапазоне 999.9 ... 000.0
var
  Tem1: Real;
  I: Integer;
  S: String;
begin
 Tem1 := Trunc(Tem * 10 + 0.00001); // Отбрасываем всё кроме первого знака после запятой получаем 0000 ... 9999.
 for I := 1 to 4 do  // Цикл на 4 знака 0000 ... 9999.
  begin
   Tem1 := Tem1 / 10;  // Определяем число после запятой.
   S := S + IntToStr(Trunc((Tem1 - Trunc(Tem1)) * 10 + 0.00001)); // Преобразуем.
  end;
 Label1.Caption := S; // Выводим.
end;

Автор: stab 1.10.2007, 13:22

ivan219, долго смотрел на код.. что он делает? smile

Автор: Alexeis 1.10.2007, 15:04

ivan219, случайно не переписываешь функцию RoundTo для округления к десяткам, сотым?

Автор: skyboy 1.10.2007, 15:07

смотрим "правильные" тестовые данные:

Цитата

13 -> 031
12 -> 021

т.е. происходит реверс строки с впередиидущем нулем smile

хитро!

Автор: ivan219 1.10.2007, 15:25

Я же написал:

Цитата(ivan219 @ 1.10.2007, 12:23

)

переменую S я ввёл для вас так как мой код отличается.

А мой код если интересно вот:

Код


procedure TFNPC01S.Temperatura(Tem: Real);
var
  Tem1: Real;
  I: Integer;
  SS: TSevenSegment;
begin
 Tem1 := Trunc(Tem * 10 + 0.00001); // Отбрасываем всё кроме первого знака после запятой получаем 0000 ... 9999.
 for I := 4 downto 1 do  // Цикл на 4 знака 0000 ... 9999.
  begin
   if Tem1 < 1 then Break;
   SS := FindComponent('SevenSegment' + IntToStr(I)) as TSevenSegment;
   Tem1 := Tem1 / 10;  // Определяем число после запятой.
   SS.Segment := Trunc((Tem1 - Trunc(Tem1)) * 10 + 0.00001); // Преобразуем.
  end;
end;

Работает так как надо smile

TSevenSegment это мой компонент семисегментного индикатора smile

и так как ваш компилатор покозалбы большую фигу я перелелал под Label чтоб лишних вопросов небыло smile