Статистика | Зарегистрировано на сайте: Всего: 51635
Онлайн всего: 16 Гостей: 16 Пользователей: 0
|
|
Каталог статей
Как перевести полярные величины в линейные (радианы в градусы)?
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;
|
|
Просмотров: 414
| Рейтинг: 1.0/
6
Оштрафовать
| Жаловаться на материал |
|
|