Что-то не то с Sin на Delphi

[Ybn2]

Вкратце, столкнулся с проблемой, что как то Sin в Delphi считается не так или я что-то не понимаю. Вот пример для Sin:

 Label1.Caption:=FloatToStr (Sin(pi/2));
  Label2.Caption:=FloatToStr (Sin(pi));
  Label3.Caption:=FloatToStr (Sin(3*pi/2));
  Label4.Caption:=FloatToStr (Sin(2*pi));

а результаты:
1 - этот правильный
-5,42101086242752E-20 ???? а должно быть 0
-1 - этот правильный
1,0842021724855E-19 ???? а должно быть 0

Кто понял, объясните пожалуйста в чем фишка.

[p51x]

-5,42101086242752E-20 ???? а должно быть 0

Ответ правильный. Читать про точность и конечность представления чисел в компе, округление.

П.С. FloatToStrF({само число}, ffGeneral, {количество цифр после запятой}, 0)

[Ybn2]

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

FloatToStrF({само число}, ffGeneral, {количество цифр после запятой}, 0)

Я это знаю, что результаты приближены к 0, как минимум говорит E степень в (-1), однако не 0, как нас всех учили. И это меня сегодня заставило задуматься, почему?

P.S. Ведь 1 и -1 считает точно?

P.SS Как же все таки правильно как нас учат или как считает компьютер? Очень нужно принять какое то решение!

[p51x]

Читать про точность и конечность представления чисел в компе, округление.

-5,42101086242752E-20 = - 0.00000000000000000005 - это фактически 0 флоата

[Ybn2]

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

Читать про точность и конечность представления чисел в компе, округление.
-5,42101086242752E-20 = - 0.00000000000000000005 - это фактически 0 флоата

Фактически, но не 0 !!!!!!А про точность Вам советую прочитать самому, а я читал, там все ясно описано как вычислялось "Пи" и почему оно в вычислениях не завершено (т.е. конца нет и надеются на наш ВЕК) и уж тем более как высчитать точно! Спасибо за ответ, но прошу перед тем как ответить - думать и не сбивать с мысли!

[p51x]

но прошу перед тем как ответить - думать и не сбивать с мысли!

[удалено...]. Читай предложения до конца! Я про Пи не слова не сказал.

А про точность Вам советую прочитать самому

Спасибо. Читал и ни раз. И знаю о ней побольше вашего.

Фактически, но не 0

FloatToStr converts the floating-point value given by Value to its string representation. The conversion uses general number format with 15 significant digits.

ЭТО 0! Фактически и практически.

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
const pi=3.14 ;
var a,b,c,d:real;
begin
 a:=Round(Sin(pi/2)) ;
 b:=Round(Sin(pi)) ;
 c:=Round(Sin((pi/2)*3))  ;
 d:=Round(Sin(2*pi)) ;
Label1.Caption:=floattostr(a);
  Label2.Caption:= floattostr(b)  ;
  Label3.Caption:= floattostr(c) ;
  Label4.Caption:= floattostr(d)  ;
end;

Может так?