Как перевести полярные величины в линейные (радианы в градусы)? - Алгоритмы - Не стандартные примеры на Delphi - Каталог статей

procedure TForm1.Button1Click(Sender: TObject);
var
Angle : Double;
x : Double;
y : Double;
Distance : Double;
Radians : Double;
begin
Distance := 100;
Angle := 270;
Radians := Angle * DegToRad;
x := Round(Distance * Cos(Radians));
y := Round(Distance * Sin(Radians));
ShowMessage(FloatToStr(x) + ' ' + FloatToStr(y));
end;

Категория: Алгоритмы | Добавил: DelphiAiX (28.04.2012)

Просмотров: 829 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума