функции sin и cos

[BDA]

Reskov, да, действительно ffGeneral выводит красиво, но проблема со 180 градусами остается (при a=180 выводит -5,4E-20).

[Serge_Bliznykov]

вот Вы проблему придумали!

я, вот честно, не понимаю, чем не устраивает округление до 17-18 знаков после запятой!

или банальное:

 if abs(x)<1e-18 then x:=0;

[BDA]

Serge_Bliznykov, магия какая-то)
До вашего поста писал в коде abs(sin(...))<0.00001 then... - не работало, а сейчас работает.

[Serge_Bliznykov]

BDA, видимо, меня компилятор Delphi уже боится!

[nEm1z1s]

Наконец то у меня дошли руки до этих функций. И я опять начал думать, как сделать так, чтобы был чистый 0.
Но как то в голову нечего не лезло и я решил попробовать способ, который предложил DBA. Но безуспешно, почему-то программа не понимала функцию trunczero. Может для неё нужно дополнительные библиотеки подключать?!
После провала, я начал дальше думать . И тут я вспомнил про функцию pos( ). Я щас попробую поподробнее описать свои действия, вдруг кому-нибудь понадобиться.

Так вот, у меня на форуме три объекта: кнопка (SpeedButton; я думаю, что тут можно и другие кнопки выставить) и два поля для ввода и вывода (Edit). Edit1 (вводим число), Edit2(ответ). Сам код, который я записал в кнопке:

procedure TCalc.SpeedButton1Click(Sender: TObject);
begin
if Edit1.Text='' then Edit2.Text:='Надо вписать число'
else begin
  if pos(',', Edit1.Text)=0 then begin
  if strtoint(Edit1.Text) mod 180=0 then  Edit2.Text:='0'
  else Edit2.Text:=floattostr(sin(degtorad(strtofloat(Edit1.Text))));
  end
  else Edit2.Text:=floattostr(sin(degtorad(strtofloat(Edit1.Text))));
end;
end;

Вообщем как-то так. При проверки вроде ничего критичного не было и вычисления делает правильно.

[BDA]

nEm1z1s, попробуйте так (из поста Serge_Bliznykov):

z:=sin(degtorad(a));
if abs(z)<1e-18 then 
	memo1.lines.append('0')
else
	memo1.lines.append(floattostrf(z),ffGeneral,1, 7));

Странно, что функция не работает.
Ей требуются только стандартные библиотеки.

[s-andriano]

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

Наконец то у меня дошли руки до этих функций. И я опять начал думать, как сделать так, чтобы был чистый 0.

Это неверная тактика.
Вычисления с плавающей точкой в самой своей основе приближенные, поэтому пытаться получить "чистый 0" методологически неверно.
И потом - просто не нужно.

[nEm1z1s]

аааа... всё... понял, почему у меня не работала функция trunczero. Перед тем как её использовать надо код к ней было написать. Спасибо BDA, Ваш (так скажем) способ НАМНОГО лучше моего !

PS. Спасибо всем за помощь!