Delphi Cos В Градусах

Функция Cos возвращает косинус числа в радианах. Для того чтобы получить косинус угла в градусах, необходимо предварительно выполнить преобразование угла из градусов в радианы.

Для преобразования градусов в радианы можно воспользоваться следующей формулой:

радианы = градусы * Пи / 180

Например, чтобы получить косинус угла 45 градусов в Delphi, нужно выполнить следующий код:

var  angle_deg, angle_rad, cosine: Extended;begin  angle_deg := 45; // угол в градусах  angle_rad := angle_deg * Pi / 180; // преобразование угла в радианы  cosine := Cos(angle_rad); // вычисление косинуса  ShowMessage(FloatToStr(cosine)); // вывод результатаend;

В результате выполнения данного кода будет выведено значение 0.7071067811865476, что соответствует косинусу угла 45 градусов.