Вопрос о наболевшем. Рассчет тригонометрических функций

[Artsiom]

Доброго времени суток.
Почему обычный калькулятор может просто посчитать синус и косинус 180, а в делфи нужно ещё переводить в радианы + к этому выскакивает нехилая погрешность которая потом сводит на нет все усилия по написанию проги?

Можно как ни будь по другому рассчитать эти тригонометрические функции? Что бы результат 100*соs180 отличалось от результата 100*cos180.1, а не был как сейчас абсолютно одинаковым?

[Rin]

Эммм, вы о чем?

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:=floattostr(cos(180*pi/180)*100); \\ -100
Edit2.Text:=floattostr(cos(180.1*pi/180)*100); \\ -99,9998476913288
end;

[type_Oleg]

Я не понял, в чем проблема? Где эта " нехилая погрешность " ?

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2:Double;
begin
 x1:=StrToFloatDef(Edit1.Text,0);
 Edit1.Text:=FloatToStr(100*Cos(x1*PI/180));
 x2:=StrToFloatDef(Edit2.Text,0);
 Edit2.Text:=FloatToStr(100*Cos(x2*PI/180));
end;
end.

[Artsiom]

Да ну.
Так. А проблема может быть в битом Делфи?

[Rin]

Вставь код и посмотри, что тебе выдаст прога. Если у тебя не так, то, возможно, где-то в настройках нужно найти округление чисел с плавающей запятой.

[challengerr]

Расчет по разложению в ряд Тейлора