функции sin и cos

[nEm1z1s]

Я пока новичёк в программировании, но несмотря на это я недавно начал создавать калькулятор. И работая с функцией sin или cos, сталкнулся с такой проблемой: sin(180) или cos(90) они равны 0, но программа выдаёт число, отличное от 0, и записано оно в экспоненциальной форме. Ну в общем, кто работал с sin и cos должен меня понять.

Чтобы не путаться, речь будет идти ТОЛЬКО о sin. Так вот я тут начал думать, как можно сделать так, чтобы выдавал 0. Первое, что пришло мне в голову это floattostrf( ,ffFixed, ,n). Но оно мне сразу непонравилось, так как в ответе будет записано n-чисел после запятой и неважно оно какое (пример: 5,0000 если n=4).

Я начал дальше думать. И подошёл к такому решению:

x,y:real;
y:=sin(x);
if x=180 then y:=0;

Но другие значения X такие, как 360, -360 ... они не учтуться! А всех их таким способом учесть нереально. Я начал развивать свою мысль дальше:

y:real;
y:=sin(x);
if x mod 180 = 0 then y:=0;

Как видите я не написал, к какому типу относится x. Так вот, в этом коде всё нечего, кроме того, что, используя mod, х-целый тип (к примеру, integer). Но в дальнейшем, если мы захотим найти sin(36.89), то программа выдаст ошибку, так как х (как я понимаю) должен иметь вещественный тип. Так вот тут то у меня и проблема, как сделать так, чтобы программа работала нормально.

Значит, как я хочу сделать:

y:real;
y:=sin(x);
if (x содержит в себе запятую) then y:=sin(x) else
if x (не содержит запятую, те х-целый тип) mod 180 = 0 then y:=0 else y:=sin(x);

Ну вот как-то так. Надеюсь, что кто-то мне поможет! Просто я уже весь инет облазил и нечё не нашёл!

[BDA]

Достаточно было залезть в справку по математическим функциям в Дельфи.
Все тригонометрические функции работают с радианами, а не с градусами.
http://ru.wikipedia.org/wiki/Радиан
Похвально упорство, с которым вы пытались решить проблему.
Решение лежало на поверхности

[nEm1z1s]

Да кстати, забыл написать насчёт этих радиан и градусов. Я перевел радианы в градусы с помощью функции radtograd, предворительно подключив библиотеку Math. При этом cos(60) и sin(30) он выдает 1/2 - ну впрочем как и должно...

Вот только этот косяк с 0 при x=0+-180n для sinи x=90+-180n для cos (n - целое число).

[BDA]

Да уж, странный глюк.
У меня выводит 0, если записываю вот так:

if abs(sin(degtorad(a)))<5.42101086242752E-20 then
memo1.Lines.Append(floattostr(sin(degtorad(a))))
else
memo1.Lines.Append('0');

Там получается сверх маленькое число, которое получается сравнить только с ним самим.

[=master=]

Это не глюк это <плавающая точка>.

[BDA]

=master=, можно чуть подробнее)
Почему не получилось сравнить с 0.000001, например?

[nEm1z1s]

ну, да... можно конечно и такой вариант рассматривать, но:
sin(0)=0;
sin(180)=-5,42101086242752E-20
sin(360)=1,0842021724855E-19
sin(540)=-3,79470760369927E-19
sin(720)=2,16840434497101E-19
как видно эти значения изменяются ...

[dmitriegorovih]

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

ну, да... можно конечно и такой вариант рассматривать, но:
sin(0)=0;
sin(180)=-5,42101086242752E-20
sin(360)=1,0842021724855E-19
sin(540)=-3,79470760369927E-19
sin(720)=2,16840434497101E-19
как видно эти значения изменяются ...

надо как сказано выше "пихать" в радианах а не в градусах напишите вот это например sin(1.5707963) и это 90 градусов или (pi/2) оно вам покажет 1.

[BDA]

В общем, такой костыль:

function trunczero(s: string): string;
var
  i: integer;
begin
  if pos(DecimalSeparator, s) > 0 then
  begin
    i := length(s);
    while (s[i] = '0') do
      dec(i);
    if s[i] = DecimalSeparator then
      dec(i);
    result := copy(s, 1, i);
  end
  else
    result := s;
end;
...
trunczero(floattostrf(sin(degtorad(a)),ffFixed,0, 8))

Функция trunczero удалит лишние нули в конце представления числа.
При подсчете эти получающиеся значения не должны влиять, так как они ОЧЕНЬ маленькие.

[Reskov]

а почему ffFixed? из доки Delphi пишут что должно работать

floattostrf(sin(degtorad(a)),ffGeneral,1, 7)

разве не работает?
Ps нет Delphi чтоб проверить