Тригонометрические функции

← →
lewka © (2011-05-25 12:58) [0]

Привет!!! Помогите пожалуйста с вычисление тригонометрических функций.
мой код:
beta:=StrToFloat(Edit1.Text); cos_beta:=cos(DegToRad(beta)); label1.Caption:=FloatToStr(cos_beta);
результат выдает неправильный (если в ТEdit1 ввести 90, то результат выдает -2,71...., хотя должно быть 0)
Подскажите что не так.

← →
Медвежонок Пятачок © (2011-05-25 13:09) [1]

ты не то вводишь в эдит

← →
lewka © (2011-05-25 13:11) [2]

В Эдит я вводу Угол в градусах.

← →
Медвежонок Пятачок © (2011-05-25 13:17) [3]

то результат выдает -2,71.

ага, только в минус двадцатой степени

← →
lewka © (2011-05-25 13:18) [4]

А как тогда правильно сделать?

← →
Медвежонок Пятачок © (2011-05-25 13:20) [5]

правильно уже.

← →
RWolf © (2011-05-25 13:20) [6]

это и есть правильно, с точностью до машинного ε.

← →
lewka © (2011-05-25 13:22) [7]

> это и есть правильно, с точностью до машинного ε.

А почему тогда считает неверно?

← →
RWolf © (2011-05-25 13:24) [8]

верно считает.
технически это ноль.

← →
Медвежонок Пятачок © (2011-05-25 13:25) [9]

А почему тогда считает неверно?

потому что у тебя лэйбл1 короткий

> А как тогда правильно сделать?

Это и есть правильно. Для машины 0.9(9) будет равно 1.
А вот строковое представление - это FormatFloat + F1

Все понял. Сделаю округление до 4 знаков после запятой

> Все понял. Сделаю округление до 4 знаков после запятой

Тебе не округление нужно, тебе нужно настроить вывод строкового представления числа.

label1.Caption := Format("%.2f", [cos_beta]);

Тригонометрические функции Найти похожие ветки