Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Тригонометрические функции [D7, XP]

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

Омлет (2011-05-25 13:58:00) [1]
label1.Caption := Format('%.2f', [cos_beta]);

Ega23 (2011-05-25 13:29:00) [2]

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

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

lewka (2011-05-25 13:28:00) [3]
Все понял. Сделаю округление до 4 знаков после запятой

Медвежонок Пятачок (2011-05-25 13:25:00) [4]
А почему тогда считает неверно?

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

Ega23 (2011-05-25 13:25:00) [5]

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

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

RWolf (2011-05-25 13:24:00) [6]
верно считает.
технически это ноль.

lewka (2011-05-25 13:22:00) [7]

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

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

Медвежонок Пятачок (2011-05-25 13:20:00) [8]
правильно уже.

RWolf (2011-05-25 13:20:00) [9]
это и есть правильно, с точностью до машинного ε.

lewka (2011-05-25 13:18:00) [10]
А как тогда правильно сделать?

Медвежонок Пятачок (2011-05-25 13:17:00) [11]
то результат выдает -2,71.

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

lewka (2011-05-25 13:11:00) [12]
В Эдит я вводу Угол в градусах.

Медвежонок Пятачок (2011-05-25 13:09:00) [13]
ты не то вводишь в эдит

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »