Найти последнюю цифру от числа в Паскале

[Sazary]

Сообщение от __STDC__

showmessage(floattostr((443.432-440)*100)); = 343.2 =) А какой делфи у вас? у меня delphi 7

Если писать именно так, то у меня тоже все верно )
А вот если как здесь, то результат:
343.200000000002

У меня тоже семерка )

[__STDC__]

Хм.. и правда)) Интересно... что за странные погрешности...

[__STDC__]

Проинициализировал нулями переменные в начале..

  a:=0.0E+307;
  b:=0.0E+307;
  c:=0.0E+307;

основной код такой

  a:=4.34320E+2;
  b:=4.40E+2;
  c:=(a-b)*100;
  showmessage(floattostr(c));

и посмотрел все в отладчике внутреннем..
получилось так:
1.PNG - проинициализированные нулями переменные, все идентичны
2.PNG
3.PNG
4.PNG
5.PNG
т.е. получается все это вылезает на этапе преобразования в строку?? Надо будет в ollydbg посмотреть еще...

[Sazary]

Сообщение от __STDC__

т.е. получается все это вылезает на этапе преобразования в строку??

+1
Сейчас тоже посмотрел сразу после строчки

Edit1.Text := FloatToStr(a);

a = 343.2
floattostr(a) = '343.200000000002'

Странно..

[DomiNick]

Странно...

То что это "странно" сказал ещё Я...

Как сделать так, чтоб он нормально считал..?

[__STDC__]

А вот еще загадка. Пишем такой код

  while (b < 4.40E+2) do begin
    a:=a-2.0;
    b:=b+2.0;
    showmessage(floattostr(a));
  end;

получаем
1.PNG
2.PNG
вот эта двойка появляется при переходе из разряда 10 в разряд 1.. до этого на протяжении всего цикла нормальные результаты
с другой стороны, если написать такой

  a := 11.432;
  showmessage(floattostr(a));
  b := 2.0;
  c := a-b;
  showmessage(floattostr(c));

получим
1.PNG
3.PNG
возможно дело в накоплении погрешности?

[Sazary]

Предлагаю к прочтению интересную статью )
Неочевидные особенности вещественных чисел

[__STDC__]

мда) ну что тут можно сказать...
надо использовать extended тогда... с ним вроде правильно..

[__STDC__]

Хехехе... в самом деле.. ничего уже тут не поделаешь.. =)

#include <stdio.h>

main() {
       double a,b,c;
       
       a = 4.43432E+2;   
       b = 4.40000E+2;
       c = (a-b)*100;
       
       printf("%.20f",c);   
}

-----> 343.20000000000164000000
если с float:
-----> 343.20068359375000000000

[Sazary]

Похоже, мы проиграли эту битву