Программа вычисления COS угла

[Asollka]

Вроде простенькое, но додумать не смог...
По делу: В Delphi7... Нужна программа типо, вводится в Edit1 мера угла и по нажатию Button1 выводится в Edit2 cos угла (в радианах)

p.s. Сори за подобную тему, но за долгие годы вылетает из головы, помогите... Если можно сделайте полный код и тупо скиньте сюда, свои наброски кидать не стану - стыдно =\
Заранее спасибо!

[p51x]

Edit2.Text := FloatToStr(cos(StrToFloat(Edit1.Text)));

[Asollka]

Если скажу, что высчитывает не точно, не обидишься!?))

[Stilet]

что высчитывает не точно

Ну дык округляй...

[Asollka]

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

Ну дык округляй...

при расчете cos 90 до нуля далековато....
походу он высчитывает, не то что надо (код норм. м.б. у меня руки кривые...) м.б. не по ленитесь, скинете исходник готовый в аську: 564-421-423 ну или куда-нибудь залейте...

[Stilet]

Edit2.Text := FloatToStr(cos(StrToFloat(Edit1.Text)/180*pi));

Он не неверно считает, он просто в радианах угол возвращает, и это нужно преобразовать

[Asollka]

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

180*pi[/B]);

нужно преобразовать

Спасибо! Выручили! надеюсь более не понадобится обращаться по пустякам...

[Stilet]

по пустякам

Это не пустяк...
Ты не представляешь себе как меня этот "пустяк" достал когда я эвольвенту рассчитывал...