|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Sin, Cos с точностью до 2 знака
К примеру возьмем такой код:
var a,b: double; begin a:= Sin(270); b:= cos(180); edit1.Text:=FloatToStr(a); edit2.Text:=FloatToStr(b); Вопрос первый. Почему на синус он выдает -0,176045946471211, а обычный калькулятор -1, а косинус -0,598460069057858, хотя так же по кальулятору -1. Второй вопрос. Как написать с точностью до 2 знака после запятой, к примеру -0,17 Заранее спасибо, а то сколько ломал голову к ответу не пришел |
#2
|
|||
|
|||
надо углы переводить из градусов в радианы:
Код:
implementation uses Math; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:= Format('%.2f', [sin(3*PI/2)]); Edit2.Text:= Format('%.2f', [sin(DegToRad(270))]); end; |