неправильно считает калькулятор

[-=Andriushka=-]

пишу прогу калькулятор...синус считает правильно...а вот косинус почемуто фиг знает как считает

procedure TForm1.Button11Click(Sender: TObject);
begin
Edit2.Text := FloatToStr(Cos(StrToFloat(Edit2.Text)*pi/180))
end;

подобным образом оформлен синус и считает его правильно,а вот с косинусом проблема...подскажите пожалуйста что делать

[Mad_Cat]

а вы что хотите посчитать то? синус угла в чем в радианах или в градусах7

[Serge_Bliznykov]

ну, проверил.
всё правильно. угол в Edit2.Text задан в градусах.

cos(0) = 1
cos(60)=0.5

правда для cos(90) получается
-2.71050543121376E-20
ну это -0.000000000000000000027105

чтобы подобного не было, округляйте до 15-16 знаков после запятой..
cos

[-=Andriushka=-]

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

ну, проверил.
всё правильно. угол в Edit2.Text задан в градусах.

cos(0) = 1
cos(60)=0.5

правда для cos(90) получается
-2.71050543121376E-20
ну это -0.000000000000000000027105

чтобы подобного не было, округляйте до 15-16 знаков после запятой..
cos

cos(0) у меня также считает но остальные углы не правильно...разговаривал с преподом седня в универе по этому поводу,он говорит раз синус правильно считает то делай косинус через формулу приведения (1-sin^2)^1/2...но как бы в дельфи нет ^...надо как бы exp(y*ln(x))...попробовал сделать чтото подобное,вот как то так:

exp(1/2*ln(1-exp(2*ln(sin(StrToFloat(Edit2.Text)*pi/180)))))

правильно ли так?

[Mad_Cat]

ппц) так не проще)

sqrt(1-sqr(sin(StrToFloat(Edit2.Text)*pi/180))));

[Serge_Bliznykov]

cos(0) у меня также считает но остальные углы не правильно...

НЕ ВЕРЮ (c) Станиславский.

Доказательства предоставьте... (исходный код, exeшник, скриншоты).